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

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

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

Sub 更改图片大小()
: z, l; o; E/ nDim pic As InlineShape' h* O8 u4 U7 v: I! X, y
For Each pic In ActiveDocument.InlineShapes
" |( b7 V. K& ~9 h+ Z If pic.Width > 420 Then
, {' ^4 L+ ]% d5 B pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度: l' a. `- L1 B9 x
End If
* V" {4 Y G! |3 j Next
/ U- p" [& h6 ?4 y! w4 B- kEnd Sub

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

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

加老师是真的geek~

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

批量调整表格宽度

Sub 调整表格格式()' s" N2 I, n( _& _* J1 ?
Dim tb As Table
0 c h, W. r& i2 [& A9 J
For Each tb In ThisDocument.Tables()
; M- F* X1 R7 f6 q: |: V
tb.Select, ~+ ^ M6 q2 ?9 A8 }$ K/ y# D; o4 Q
With Selection.ParagraphFormat0 q' c" D$ O- Y5 Z
'段前间距，单位：磅# R2 B% }2 H2 P5 i1 Z! P
.SpaceBefore = 0
! p1 O% K* T& c4 E+ ^
.SpaceBeforeAuto = False5 Y% B( }' X. U' V* o
'段后间距，单位：磅
+ S0 G: P0 u/ q2 u6 H9 G$ T) d
.SpaceAfter = 0
4 }# a+ ~4 Z6 h3 J2 h& @7 M
.SpaceAfterAuto = False. \7 T8 z1 A2 z6 ~ v
'行间距，单倍行距: G& V6 E2 }( B6 \7 d) D( \% D5 E8 E
.LineSpacingRule = wdLineSpaceSingle
0 y+ V0 A# h; E+ Q7 u; x
'左缩进，单位：字符! u5 W6 z3 S3 \5 ?0 b9 U
.CharacterUnitLeftIndent = 0: s' L _3 B) G$ Y, W" ^3 q7 c, J
'右缩进，单位：字符5 {+ X6 K% \3 ~0 ]
.CharacterUnitRightIndent = 02 ^4 y6 G+ Q- [: B t0 i
'首行缩进，单位：字符. O. }/ M0 y; K! |; |; ~
.CharacterUnitFirstLineIndent = 02 T- y; r# ? K' Y
End With2 |" ]7 N/ _( R N! @, X
'根据窗口调整表格宽度9 @) V2 N( a7 t7 h3 w: \- }
tb.AutoFitBehavior (wdAutoFitWindow)
* K; u* ?" s; g
Next
( @- w2 T& x8 k
End Sub
- @# Q' X5 S4 z4 k5 @

复制代码