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

zorsite · 发表于 2016-1-13 10:05:59

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

Sub 更改图片大小()
3 A' Z: c& ?/ G+ S' Q, ^9 @Dim pic As InlineShape9 l, E A3 }7 w- S7 b3 z' Q1 H
For Each pic In ActiveDocument.InlineShapes
) X, ^. U5 M! a If pic.Width > 420 Then) f3 S: L2 z! d, g) E
pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度
; T+ T# W8 S$ x" Y End If9 X$ m7 J% P" _+ K' |) `
Next7 \$ K/ ]* m0 m) y6 a; c
End Sub

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

慧娴亚伦 · 发表于 2016-1-13 11:19:23

加老师是真的geek~

zorsite · 发表于 2019-12-13 11:07:18

批量调整表格宽度

Sub 调整表格格式(): U, D. Y; q7 N
Dim tb As Table
. e" ]6 E# k5 [0 a' ]1 T8 i; k. _7 @
For Each tb In ThisDocument.Tables()
& [0 A: i4 r1 o2 f
tb.Select1 W8 ]4 E' `1 O, N. w
With Selection.ParagraphFormat3 K9 a% h5 r$ ~. ?+ c
'段前间距，单位：磅$ h! Y' k# t5 W; ^' S
.SpaceBefore = 00 a* Z0 ~% Y; p- a. Q* m+ O" n
.SpaceBeforeAuto = False
+ Y/ |3 b0 g+ ^; r0 o, n3 H
'段后间距，单位：磅
* m: d1 V& c* o; v4 c
.SpaceAfter = 0
: h5 y/ y& t! E, r
.SpaceAfterAuto = False; |2 ?. Q! L) f1 L2 D
'行间距，单倍行距8 Q4 l- s% p5 B8 y$ J
.LineSpacingRule = wdLineSpaceSingle
4 [- G# b; M& e
'左缩进，单位：字符+ j: E& E ^0 K' q
.CharacterUnitLeftIndent = 0
$ C1 o6 v: `/ D
'右缩进，单位：字符, T( J! O4 a% `. K
.CharacterUnitRightIndent = 0
' @0 M& R8 q: W8 c8 }. n
'首行缩进，单位：字符0 z0 Q' U: S. u3 _7 x
.CharacterUnitFirstLineIndent = 0
; f: v: b; a* \" y8 B
End With
" |5 r% B9 n& S0 w/ k* p! U
'根据窗口调整表格宽度6 t3 X0 _$ I) f5 P2 ?; r: l
tb.AutoFitBehavior (wdAutoFitWindow)8 F+ }7 V, |$ V6 {6 h5 F9 Z
Next
5 n( V2 ^5 H1 B. ~
End Sub9 y1 S# z" ?* g$ J! z1 B, c& ?

复制代码