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

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

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

Sub 更改图片大小()
+ A  r' u7 T0 C; ]: K6 ]% ODim pic As InlineShape6 \. y* m1 ~1 t9 I5 g  G! a" P
For Each pic In ActiveDocument.InlineShapes/ z, g% E2 b% \, y
If pic.Width > 420 Then
) l4 k$ n0 c4 k5 y2 p% A  _1 S1 b pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度  q1 N3 n: L* O' j1 _( L% v
End If$ M) b% |3 |- T& w% H1 `2 G7 R
Next
0 v; t, B/ O  E, o  mEnd Sub

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

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

加老师是真的geek~

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

批量调整表格宽度

Sub 调整表格格式()% [8 ~! p. ~2 [( B- d9 ^! f0 z
Dim tb As Table- |, f+ i! U, T1 X
For Each tb In ThisDocument.Tables(): H3 ^, B& J% ?! k( Z
tb.Select
! i! R8 p& V0 G
With Selection.ParagraphFormat* a$ `6 _& p+ T/ ?, }
'段前间距，单位：磅3 a* W/ C7 f: t. v
.SpaceBefore = 0" X& M, g: x- c$ M6 G3 Q' e
.SpaceBeforeAuto = False0 e* c Y; p1 H' x4 ^3 ]
'段后间距，单位：磅 [. O2 a2 W# Q5 E" R1 s
.SpaceAfter = 0
* G/ e# j9 \1 t
.SpaceAfterAuto = False( a8 T4 M% n0 o6 k6 t/ z
'行间距，单倍行距 F) k& f! v: [
.LineSpacingRule = wdLineSpaceSingle* Z2 h- s) r9 V# ]9 ]) a
'左缩进，单位：字符* a3 b4 d b8 Z: ?5 Z
.CharacterUnitLeftIndent = 0' @" V" C8 n! w( t6 H- E! t
'右缩进，单位：字符
6 V9 H/ A4 c$ i4 ~- d" X
.CharacterUnitRightIndent = 0
5 m: R/ @, S+ d9 p
'首行缩进，单位：字符! J0 Q+ T* ~* S2 s( H7 b
.CharacterUnitFirstLineIndent = 02 E; r4 Y" H$ T7 l# c0 i
End With
% |" t8 n5 q& X- e2 q" v
'根据窗口调整表格宽度8 t2 \+ q3 I; n" g7 I8 z# S+ T; Y
tb.AutoFitBehavior (wdAutoFitWindow)
5 ~, d5 j* [! z( y$ E( o: P: b
Next
) l6 F2 @+ [$ z) Q/ G
End Sub6 L& P2 k. ~% u+ i

复制代码

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

浏览过的版块