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

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

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

Sub 更改图片大小()& n: M1 g: i0 {% {# B& @: z8 A8 _
Dim pic As InlineShape
, T. t. R5 p; g7 { For Each pic In ActiveDocument.InlineShapes
0 H. V% W2 ^; Q  N6 m+ @ If pic.Width > 420 Then
8 ]3 g' u& h0 ~6 \; U pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度
! k) I  c! I* E End If
4 a  Y3 f# [7 ]4 r# _ Next
  I* n3 Z( E5 HEnd Sub

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

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

加老师是真的geek~

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

批量调整表格宽度

Sub 调整表格格式()1 `: H. {& u6 _5 o2 G6 b
Dim tb As Table* H( W8 m6 ?6 S. v+ j% ]) q5 \
For Each tb In ThisDocument.Tables()
) X2 o" ]5 h; }
tb.Select w6 l3 y1 T9 _5 p* Z; ^# S" v. c5 h
With Selection.ParagraphFormat) X& N$ W8 H, w o- g/ } [
'段前间距，单位：磅
% q# ? p7 x' {5 b* Y
.SpaceBefore = 0
! o. e" V5 ~: h/ Q( y1 y6 n
.SpaceBeforeAuto = False2 i2 {2 Z3 t$ d
'段后间距，单位：磅
# ]. T- e6 L+ k, @0 s' a
.SpaceAfter = 0' I) Y* J6 p3 e' p2 } T; \
.SpaceAfterAuto = False
; n; |# E6 Z; y7 u* l9 P
'行间距，单倍行距
# }! W8 B' \% O# f; S" X
.LineSpacingRule = wdLineSpaceSingle
. R* V/ _& x( e0 ^
'左缩进，单位：字符
9 O: R# m4 S; q4 ^, U9 D
.CharacterUnitLeftIndent = 0
1 ?& P o1 Y/ G6 u; `+ L7 Q# f
'右缩进，单位：字符8 F( F) L- [$ b# s' k; {5 ]
.CharacterUnitRightIndent = 0
'首行缩进，单位：字符5 F, K2 ]/ K% B8 t) ^: \( j
.CharacterUnitFirstLineIndent = 04 @2 w/ @% D% }3 @8 A1 h
End With0 k) x7 Z0 r5 J8 Z- n/ Z+ A
'根据窗口调整表格宽度; n) `! t% N& m n$ @
tb.AutoFitBehavior (wdAutoFitWindow)' h- [! G0 V$ C7 Z
Next
% ~* k0 {2 G9 J! S9 _4 g) a
End Sub
$ a" N1 j( m: n9 R4 A$ ]

复制代码