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

有时候想整理一下Flexsim学习资料，但是里面插的截图太大，超出了A4页面宽度，如何快速调整所有图片到合适的大小？如果会使用宏的话，可以创建一个宏，然后复制以下代码：
: S2 _- X- H# @* h

Sub 更改图片大小()
Dim pic As InlineShape
6 H, m4 Y0 P, I* f# ?, _ For Each pic In ActiveDocument.InlineShapes
   If pic.Width > 420 Then
. v3 S: a8 i. C, P1 M$ ^$ [# U    pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度
8 E, l6 H8 S) c4 U# I8 D# l    End If
    Next
4 K5 H# E; N  d* l( U8 ^# _2 R$ ^+ }2 uEnd Sub

# D) F* S) F' |' O执行这个宏就可以一次性处理所有照片大小了。

加老师是真的geek~

批量调整表格宽度

1. Sub 调整表格格式()
   8 a9 S1 Q6 A$ V3 m* I1 r4 m4 D
2. Dim tb As Table
   ( g* F+ q$ g2 e5 n7 x/ {! s$ ^# o1 l6 k
3. For Each tb In ThisDocument.Tables()
   * t2 y1 x2 |$ O- @/ }# Y) y2 I
4.     tb.Select
   $ M% p( n4 {) @' f3 @! L; g, S% z
5.     With Selection.ParagraphFormat
   
6.         '段前间距，单位：磅
   
7.         .SpaceBefore = 0
   2 d# r3 k0 C5 U
8.         .SpaceBeforeAuto = False
   % |3 b+ q/ D( e2 ?* r
9.         '段后间距，单位：磅
   
10.         .SpaceAfter = 0
    / M9 H, q6 N  a( Z2 V0 @
11.         .SpaceAfterAuto = False
    ( x/ K: S% D5 p  d8 o; x; M
12.         '行间距，单倍行距
    
13.         .LineSpacingRule = wdLineSpaceSingle
    
14.         '左缩进，单位：字符
    * y) B1 r3 I! A, @: l: z' x
15.         .CharacterUnitLeftIndent = 0
    
16.         '右缩进，单位：字符
    2 o" y0 P, t  A
17.         .CharacterUnitRightIndent = 0
    
18.         '首行缩进，单位：字符
    5 ^9 o# M0 G& v% E+ l
19.         .CharacterUnitFirstLineIndent = 0
    2 z/ a, L# ?+ }* c
20.     End With
    % S' ~- K7 Y) O0 r
21.     '根据窗口调整表格宽度
    : g2 C) A- \% C, v: e  g/ e1 x+ y
22.     tb.AutoFitBehavior (wdAutoFitWindow)
    
23. Next
    
24. End Sub
    ; R& R& i2 u6 E

复制代码

$ [$ E( c3 I; u8 C) J) F