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

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

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

Sub 更改图片大小()4 ?+ h' Q% m% R: X( a( @+ h7 g
Dim pic As InlineShape
& M+ [. M1 w. e6 @( A3 l! Q For Each pic In ActiveDocument.InlineShapes
4 S" r- W( Q8 P" S9 G If pic.Width > 420 Then
( w `( l# O& c+ Y& P pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度0 g* E3 E& B1 @" ^+ J
End If7 y! K8 r8 o0 o
Next0 x0 y# R$ _$ e( ?) G/ O# @0 q
End Sub

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

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

加老师是真的geek~

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

批量调整表格宽度

Sub 调整表格格式()
- b- m$ A: K. z7 c) Q
Dim tb As Table
5 n. j1 \: j! X& r. E9 Y
For Each tb In ThisDocument.Tables()3 x# `# R: C" ^4 O& B& M& b
tb.Select
8 L, a; \9 E/ F3 z, }$ @; O3 @
With Selection.ParagraphFormat
- Q$ ?7 F( ]! j9 o( R) V
'段前间距，单位：磅) N# w: x$ [) `+ U- N$ n8 Z% i
.SpaceBefore = 0
4 g* P. G8 x$ ]2 A
.SpaceBeforeAuto = False0 T2 n0 W$ ]( o9 d2 H) V6 m
'段后间距，单位：磅
. O1 w& [0 ~; ^
.SpaceAfter = 0* u' O' V* e* U2 n
.SpaceAfterAuto = False9 o. w J1 U6 s$ }
'行间距，单倍行距
\* v6 H: r/ m \1 k ~
.LineSpacingRule = wdLineSpaceSingle
" c+ u% L) r1 H% I; f9 M" q C6 d
'左缩进，单位：字符. v' ]# d2 ]- g0 n
.CharacterUnitLeftIndent = 0) Q8 j1 N0 D, e- m$ j
'右缩进，单位：字符$ ~; o I7 j% E" q8 X0 E* u" K
.CharacterUnitRightIndent = 0
! s% d; j) W5 A( i( Y2 s
'首行缩进，单位：字符. m& V0 h7 s9 g6 [
.CharacterUnitFirstLineIndent = 0
$ E5 q; k8 C9 n" t3 C: Y* G1 i
End With9 R4 d# A2 `, z; ?/ ?7 [6 s, |, t& B2 O. Z
'根据窗口调整表格宽度
5 H. w$ u9 C. l: f# F
tb.AutoFitBehavior (wdAutoFitWindow)
, R' [- K' q3 i
Next
) S% A2 K1 x) q1 R
End Sub
. [) _6 R5 K* N/ ] v

复制代码