批量更改Word文档中图片大小 - 全球FlexSim系统仿真中文论坛

Sub 更改图片大小()- E7 [/ d3 q( ~
Dim pic As InlineShape
, t) F |. p: Q For Each pic In ActiveDocument.InlineShapes3 _( t- w9 `0 j' {
If pic.Width > 420 Then. O) B3 _2 ?; I% s- T0 ?& v6 }
pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度
$ o7 d X. r; ?$ v) S2 D End If
( o( x5 D+ U4 L( v Next
: g+ x+ H4 @3 F3 U% b% J; gEnd Sub

Sub 调整表格格式()1 N" l* Z. R3 r. X9 X1 Q: p
Dim tb As Table+ z1 i( h" i! j% k
For Each tb In ThisDocument.Tables()# m8 z2 u1 m4 j5 n) ?; ]$ R) e
tb.Select5 x- O5 Z- E0 L1 O
With Selection.ParagraphFormat2 h7 [3 N3 k7 V. ~. w
'段前间距，单位：磅$ q, |$ R, j/ @5 m9 Q, ^9 L
.SpaceBefore = 00 _, y: B, T2 B8 g# g7 m( b
.SpaceBeforeAuto = False
* Z: Q* N5 T% C' W6 A4 t
'段后间距，单位：磅
: O2 ]9 J# e4 n1 b
.SpaceAfter = 0 ], q; Z' J- }; q2 c- Y, V
.SpaceAfterAuto = False
4 w5 U, e5 g! J. U3 x) B
'行间距，单倍行距+ ?$ Q: q/ t5 [5 w/ q# H/ j3 a
.LineSpacingRule = wdLineSpaceSingle/ h, o | h1 F# u! b+ J
'左缩进，单位：字符
' `0 M! S" Y: P* Z _
.CharacterUnitLeftIndent = 0
* H. p' F, }0 {' R8 \2 ?$ K
'右缩进，单位：字符8 k% w. B5 [9 R1 m8 g6 ^
.CharacterUnitRightIndent = 0
* l" f! r2 [! t9 F
'首行缩进，单位：字符
. Q/ L( u7 C4 F8 K* a
.CharacterUnitFirstLineIndent = 0
- V$ J# Q- R7 q% S: W7 k: d, ^
End With7 G# E5 I0 m+ u
'根据窗口调整表格宽度
9 x1 l2 K3 j& m7 |' w- ]
tb.AutoFitBehavior (wdAutoFitWindow); g1 y' ?: W) T6 F
Next- h4 E# Y G! S% V, I+ N: |% [
End Sub
5 v; _' H7 R; z

复制代码