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

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

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

Sub 更改图片大小()' N( b" _) k' b1 u3 G- y
Dim pic As InlineShape
4 d4 S  p* U7 |% R; _ For Each pic In ActiveDocument.InlineShapes3 A! C7 o1 u5 l. T5 ?4 X
If pic.Width > 420 Then
# T  {4 j* z% p! z& k# o+ y5 F pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度7 y5 }  K; G9 U3 ~; o' ~8 r  i
End If
1 ^5 N$ V% a' O1 U Next
) o( u, u5 B  t4 w) yEnd Sub

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

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

批量调整表格宽度

Sub 调整表格格式()# Q. n% {& o2 O& C: V
Dim tb As Table$ A' m7 G7 K7 H2 d5 a# Q! W- v* K
For Each tb In ThisDocument.Tables()
6 o% o2 y$ [. s8 q8 H5 W: x
tb.Select
' z+ l2 D6 |* s2 Z9 P9 I
With Selection.ParagraphFormat% U1 ^2 M$ Q0 j# S! H$ l6 S4 d
'段前间距，单位：磅
; q; \6 }3 t+ D8 K& |) R" C
.SpaceBefore = 0( W e7 i Q$ L0 l9 U7 ~; a
.SpaceBeforeAuto = False2 l% H2 T+ C; U
'段后间距，单位：磅
2 \ @5 \+ s. g
.SpaceAfter = 0
+ O3 y" P. W4 w2 j" j3 R/ |
.SpaceAfterAuto = False
" r8 X0 ]& S* M+ {( n: v3 @
'行间距，单倍行距7 V- w+ ?3 @4 a
.LineSpacingRule = wdLineSpaceSingle' ~! g8 m) L9 l+ V
'左缩进，单位：字符2 }& o/ f* \/ ]: y7 \* Q* w! M6 \' ]2 Z
.CharacterUnitLeftIndent = 0* Q5 ]+ b0 D4 ~) b4 P% Y
'右缩进，单位：字符
4 B! v: J, w& H# ], f' ~
.CharacterUnitRightIndent = 0, f+ B+ j2 l" r4 h
'首行缩进，单位：字符0 G4 w+ M4 G3 ^
.CharacterUnitFirstLineIndent = 0
' x$ U) K/ {4 k% R0 F
End With
& m$ f' ]: s( j: ]+ g% k4 R, p
'根据窗口调整表格宽度& f8 X( n7 y+ D
tb.AutoFitBehavior (wdAutoFitWindow)
- ?0 w! M, Q8 r) u3 V
Next
* [* g5 U1 d* |/ J) @/ G+ {
End Sub/ m; _* E* [3 @6 [0 Y+ u

复制代码

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

加老师是真的geek~

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

浏览过的版块