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

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

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

Sub 更改图片大小()
) \8 D: _: i# [, P& }Dim pic As InlineShape& D4 o$ L$ d1 l( I/ ~
For Each pic In ActiveDocument.InlineShapes
% ^" b6 b' H# Z5 n7 A' w; r0 K If pic.Width > 420 Then3 ?3 f+ [$ E2 s) U( A
pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度" E' e: p- D* g# V
End If0 e. f; H' ]6 Y
Next
: T7 K4 L. r! p; ?3 k( x# v3 _End Sub

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

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

加老师是真的geek~

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

批量调整表格宽度

Sub 调整表格格式()6 Z0 S" `) |' ?- e3 Y/ M! y
Dim tb As Table
! R: ~; z* R, @0 s4 M& O0 s
For Each tb In ThisDocument.Tables()
; m" f& P- l% F1 i* }& L. a
tb.Select
: X& E$ n& F3 q; l r, Q3 W2 \
With Selection.ParagraphFormat4 @9 y3 p6 _: p7 h6 @. R' v
'段前间距，单位：磅
" T( b* L1 M) z3 D" r! u4 d
.SpaceBefore = 0
7 `; U1 }' R$ P. Y5 R$ B
.SpaceBeforeAuto = False: l# s: O9 O4 F2 S
'段后间距，单位：磅
1 L3 W. e: L3 l* M' N$ Y
.SpaceAfter = 0
2 ?5 F" [- S5 U
.SpaceAfterAuto = False
$ W- x. p- m) |, v( t! z
'行间距，单倍行距3 r% |; d6 V1 g
.LineSpacingRule = wdLineSpaceSingle
' E _- I& a0 w8 ~3 W" ~
'左缩进，单位：字符
0 O/ C1 h, r: h [% T" M. F- k
.CharacterUnitLeftIndent = 01 X9 Z( G3 I; g8 g
'右缩进，单位：字符
) h5 d; L( B1 I5 T* I
.CharacterUnitRightIndent = 01 b9 E( m7 P! U: ^
'首行缩进，单位：字符4 ^+ O: {& G6 B
.CharacterUnitFirstLineIndent = 05 O5 f+ N- X; h, V2 j
End With3 l$ F% O* T0 E4 b
'根据窗口调整表格宽度
) D: a$ n. l8 D# c/ G Y8 G
tb.AutoFitBehavior (wdAutoFitWindow)8 c9 _; }- _! k; t9 N7 e
Next2 J' _: ~! q* k1 M
End Sub
* h9 K( R# v ^1 ?$ b; O; P

复制代码