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

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

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

Sub 更改图片大小()! Y2 S1 h7 f2 c
Dim pic As InlineShape
) e6 h: A$ B* M; Y For Each pic In ActiveDocument.InlineShapes
5 a" v2 z( N$ |- Z8 ?. h' D If pic.Width > 420 Then
! C: R& ~4 k& G. q pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度6 ^5 n! c ~& ^' e/ h! m
End If4 o$ `" X& F% z j
Next& f5 j. C! \1 q3 O/ W
End Sub

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

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

加老师是真的geek~

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

批量调整表格宽度

Sub 调整表格格式()0 [) M" p9 K6 L0 Y7 L4 O3 e
Dim tb As Table
9 f, Y8 W; n6 a/ p
For Each tb In ThisDocument.Tables()
. w0 k2 R7 X8 F: V
tb.Select
5 Y' K+ R9 j' L) v
With Selection.ParagraphFormat0 ~% Q* l. x: @& z; t/ L
'段前间距，单位：磅! d, z2 ?8 e/ A' l0 @1 V
.SpaceBefore = 0
* [( W9 Z! L& d
.SpaceBeforeAuto = False
6 f! ]- a* D/ a+ H7 {
'段后间距，单位：磅
% m# d/ z2 h+ A/ a7 \
.SpaceAfter = 0
0 p8 s' ^2 z/ ?+ { v! F% ^3 Y
.SpaceAfterAuto = False
, g$ e: s w: C: C
'行间距，单倍行距5 k X G b8 g. B
.LineSpacingRule = wdLineSpaceSingle! I0 }3 g$ c! k, |
'左缩进，单位：字符
7 Y5 Y7 F, o" o( ~- L4 r
.CharacterUnitLeftIndent = 07 ~) o; l% @( e3 A
'右缩进，单位：字符7 K1 P, L, p* y0 {3 J
.CharacterUnitRightIndent = 0# V1 c7 A d. H$ j0 c) h
'首行缩进，单位：字符& w" v0 k4 U7 m6 V
.CharacterUnitFirstLineIndent = 0
6 j* U- X8 p% i5 {
End With
1 y& G# l0 i* @+ v% E% C+ G8 n
'根据窗口调整表格宽度6 a9 k: J* H& H! x- R: m* w3 u& ?* Y
tb.AutoFitBehavior (wdAutoFitWindow)) B$ x4 C2 ?: T* ?
Next# j; P( v# l2 p T
End Sub
2 b7 v6 _, H0 I% b7 q* k8 P& ]8 c

复制代码

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

浏览过的版块