把页面改为横的不是一样效果吗
。如果里面有文字需要竖的,可通过分节的方法解决。
选中一张,旋转90度不难。但一次选择所有比较难。
如有疑问,请追问。旋转的我不会,但是调整大小的我可以给你提供一个 ,你可以参考下面的代码
Sub t()
WordBasicPageSetupMargins TopMargin:="03", BottomMargin:="03", LeftMargin:="03", RightMargin:="03"
Dim j '计数个数
For j = 1 To ActiveDocumentInlineShapesCount '文件中总个数,类型为inlineshapes
If ActiveDocumentInlineShapes(j)Height > 145 28346 Then
ActiveDocumentInlineShapes(j)Height = 145 28346 '设置高度 145cm
End If
If ActiveDocumentInlineShapes(j)Width > 101 28346 Then
ActiveDocumentInlineShapes(j)Width = 101 28346 '设置宽度 101cm
End If
Next j
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)