批量修改word中图片大小及页面设置

Sub 批量修改图片大小()
'设置图片大小


Dim n
'图片个数
On Error Resume Next
'忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count
'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 160
'设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 250
'设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count
'Shapes类型图片
ActiveDocument.Shapes(n).Height = 160
'设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 250
'设置图片宽度 300px
Next n

With ActiveDocument.PageSetup
.Orientation = 1
'页面设置方向横向为1/纵向为2
.TopMargin = CentimetersToPoints(1.5)
'上页边距1.5页面设置
.BottomMargin = CentimetersToPoints(1.5)
'下页边距1.5页面设置
.LeftMargin = CentimetersToPoints(1.5)
'左页边距1.5页面设置
.RightMargin = CentimetersToPoints(1.5)
'右页边距1.5页面设置
End With

End Sub