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

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

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

Sub 更改图片大小()" r. d' k/ g8 L) `, i" }
Dim pic As InlineShape. L1 f5 A5 D9 ^- A/ T' }5 J
For Each pic In ActiveDocument.InlineShapes, ~/ L Z( A. n T$ i) c
If pic.Width > 420 Then% j, H1 b' x" |- Y! g2 H9 f
pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度9 `% c- J4 i! `6 V$ p, s2 O# |( J3 f8 Y5 [
End If$ o/ @5 q' t- t% |6 v$ Q( B5 q
Next$ b( I4 X2 S- ^
End Sub

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

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

加老师是真的geek~

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

批量调整表格宽度

Sub 调整表格格式()2 n- j# \* f( D2 |
Dim tb As Table
( @. [9 }' x1 m. N
For Each tb In ThisDocument.Tables()
3 d+ {, U1 ]8 E$ W) T: s0 Y
tb.Select+ J2 j; F; h; M+ ~
With Selection.ParagraphFormat) V5 f1 d6 P$ _, e- a! F) e
'段前间距，单位：磅" |' u# k* @5 W+ u9 m S+ f
.SpaceBefore = 0
/ s0 v2 O1 A; ^7 O% @8 H9 Y6 b9 J
.SpaceBeforeAuto = False
+ K( {% a: m; J o( @1 n+ A# s* Y
'段后间距，单位：磅
! S1 m! p% v) }: y( e4 p7 `9 J
.SpaceAfter = 01 d! U5 @3 j& x) k/ B
.SpaceAfterAuto = False# j$ m! X- V, b5 ~2 L2 p6 @
'行间距，单倍行距
. ?- b. @# r. j0 W3 P
.LineSpacingRule = wdLineSpaceSingle
0 B" ~( r7 x' o
'左缩进，单位：字符
6 E3 T* m. |# D- F& L9 i' d8 A* X
.CharacterUnitLeftIndent = 0; V8 }% Q4 X5 H7 C$ \4 H( L1 z5 u( W
'右缩进，单位：字符0 @% v& \- X; a) d# m
.CharacterUnitRightIndent = 0
4 ~5 K2 M3 K" H% q
'首行缩进，单位：字符
, X; P7 @3 x8 h
.CharacterUnitFirstLineIndent = 0# h E* Q2 r" L+ l) } G2 [
End With
" L% I0 z6 u! g+ |. @0 H3 N7 G
'根据窗口调整表格宽度" N6 f3 |# x) ~+ j D; {& v2 m3 @" U
tb.AutoFitBehavior (wdAutoFitWindow)& U* V! @8 u m+ ~9 k
Next$ ]8 p( a" @) X; x. Q
End Sub J6 Q, c: |5 n6 O, d0 z. O& _: T

复制代码