使用VBA统一修改word图片样式、大小和边框

Sub SetPictureBorders()

Dim n '图片个数

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片

If ActiveDocument.InlineShapes(n).Width > 394 Then

ActiveDocument.InlineShapes(n).Range.Style = "Figure" '设置图片样式

ActiveDocument.InlineShapes(n).LockAspectRatio = msoTrue '锁定图片缩放比

'ActiveDocument.InlineShapes(n).Width = 394 '设置图片宽度为13.9cm

ActiveDocument.InlineShapes(n).Borders.Enable = True '设置图片边框

End If

Next n

End Sub