如何在Word文档中统一改图片大小（2007版）

如何在Word文档中统一改图片大小（2007版）

使用word vba快速对图片进行排版。

如图，以此文档举例，如何通过word vba快速统一改图片大小。

使用，打开宏编辑工具。

在示例文档（根据文档名称），双击，在弹出的界面右侧，输入如下宏代码：

Sub 遍历图片并处理()

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oSP As Shape

Dim oInLineSp As InlineShape

With oDoc

For Each oInLineSp In .InlineShapes

oInLineSp.Width = CentimetersToPoints(14.5)

oInLineSp.Select

With Selection.ParagraphFormat

.Alignment = wdAlignParagraphCenter

.LineSpacingRule = wdLineSpaceSingle

End With

Next

End With

End Sub

按，执行该宏代码，执行结果如下图所示。

以上就是全部操作步骤，望采纳。