批量更改Word文档中图片大小

有时候想整理一下Flexsim学习资料，但是里面插的截图太大，超出了A4页面宽度，如何快速调整所有图片到合适的大小？如果会使用宏的话，可以创建一个宏，然后复制以下代码：
[quote]Sub 更改图片大小()
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
   If pic.Width > 420 Then
    pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度
    End If
    Next
End Sub[/quote]

执行这个宏就可以一次性处理所有照片大小了。

加老师是真的geek~

批量调整表格宽度
[code]Sub 调整表格格式()
Dim tb As Table
For Each tb In ThisDocument.Tables()
    tb.Select
    With Selection.ParagraphFormat
        '段前间距，单位：磅
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        '段后间距，单位：磅
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        '行间距，单倍行距
        .LineSpacingRule = wdLineSpaceSingle
        '左缩进，单位：字符
        .CharacterUnitLeftIndent = 0
        '右缩进，单位：字符
        .CharacterUnitRightIndent = 0
        '首行缩进，单位：字符
        .CharacterUnitFirstLineIndent = 0
    End With
    '根据窗口调整表格宽度
    tb.AutoFitBehavior (wdAutoFitWindow)
Next
End Sub
[/code]