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

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

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

Sub 更改图片大小() F6 P' o) P0 b0 {1 C
Dim pic As InlineShape6 u: ^6 m6 t4 ]
For Each pic In ActiveDocument.InlineShapes
1 _/ n* K5 ?9 ~% r% j If pic.Width > 420 Then, q8 i% n0 d/ J( n3 F/ D# m
pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度5 H6 u5 B/ \/ _) E
End If& n0 z/ L k, `6 d
Next4 A& P' A0 h7 k2 D* ]
End Sub

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

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

加老师是真的geek~

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

批量调整表格宽度

Sub 调整表格格式()
& P, n. @' J, J6 u2 S6 Y
Dim tb As Table
/ P/ R/ u/ g% I' s
For Each tb In ThisDocument.Tables()4 H$ `& O- }- q2 B2 x
tb.Select a$ F! ?8 V3 J- c' _* z
With Selection.ParagraphFormat9 y% ^. J: G2 ~; T
'段前间距，单位：磅! q- r9 n% v1 z @" T' @+ S& t/ f
.SpaceBefore = 0
: v* L* c9 T, y% |0 e2 t
.SpaceBeforeAuto = False
, [% m" d6 T4 S, [$ g
'段后间距，单位：磅
) ~7 ]! T: H) l
.SpaceAfter = 0
' x) U0 Y7 h0 y2 g
.SpaceAfterAuto = False
1 h! d7 o# F7 o( d* U$ u" P
'行间距，单倍行距
8 [* F1 b) D9 r8 q) |/ j) T
.LineSpacingRule = wdLineSpaceSingle
& j# D) t& ^' y/ D
'左缩进，单位：字符
; A i8 a, a% H5 p1 U. I( I
.CharacterUnitLeftIndent = 0; o4 J) I6 l- d
'右缩进，单位：字符2 d8 E) f: [0 V1 G/ a
.CharacterUnitRightIndent = 0, y- _- ~& O( [( Z1 E( s- B
'首行缩进，单位：字符, a) B; X- n" o9 D
.CharacterUnitFirstLineIndent = 0$ l( D& _& _1 { A
End With. ^3 }& z- ]5 A
'根据窗口调整表格宽度
2 \! Z- R+ d! q. x) S: \7 [. L
tb.AutoFitBehavior (wdAutoFitWindow)" ?/ }! K' Y9 C! W. o
Next
/ I! E2 g6 {9 P
End Sub5 v9 x! ]5 Z5 D( R F; Z

复制代码