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

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

Sub 更改图片大小()
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
& @4 I& I) G# ^; F, _6 @   If pic.Width > 420 Then
$ l( C, ?( O1 o! |$ Y6 V    pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度
. N& P0 x4 a# v9 t1 z    End If
: {! Y! t$ F2 T7 H3 i0 L    Next
. ?" M; B9 O$ G+ e% G+ [$ |& x6 M7 ~End Sub

7 g% u7 Q8 B) o! I3 n2 x$ i执行这个宏就可以一次性处理所有照片大小了。

加老师是真的geek~

批量调整表格宽度

1. Sub 调整表格格式()
   
2. Dim tb As Table
   & P7 `  l9 G* s8 W2 |) M
3. For Each tb In ThisDocument.Tables()
   
4.     tb.Select
   
5.     With Selection.ParagraphFormat
   1 K% [, E6 x; C* {+ N- W: L1 A
6.         '段前间距，单位：磅
   8 N1 N: t8 F! A
7.         .SpaceBefore = 0
   ' V+ J# @! L) M$ E9 g  c, h2 L
8.         .SpaceBeforeAuto = False
   # H/ U! h* n$ }: ?
9.         '段后间距，单位：磅
   , J. {$ E0 `/ H3 b& _# c* f) R& S' y
10.         .SpaceAfter = 0
    
11.         .SpaceAfterAuto = False
    
12.         '行间距，单倍行距
    ) d; H- U2 j- i
13.         .LineSpacingRule = wdLineSpaceSingle
    . i2 c. ~3 `% ^  D! ~
14.         '左缩进，单位：字符
    
15.         .CharacterUnitLeftIndent = 0
    ; e: b! x; Q! U
16.         '右缩进，单位：字符
    ! D5 P* `8 k: t
17.         .CharacterUnitRightIndent = 0
    
18.         '首行缩进，单位：字符
    0 {3 v( ~. L1 P- D6 L; X" X' V
19.         .CharacterUnitFirstLineIndent = 0
    
20.     End With
      o; U" i2 V8 K( J. v8 b
21.     '根据窗口调整表格宽度
    ; s, S% d; A. m( n. _: c# `: i
22.     tb.AutoFitBehavior (wdAutoFitWindow)
    - Y! B4 }9 @! b4 ?
23. Next
    
24. End Sub
      ]6 ]. z. ?0 k( j

复制代码