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

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

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

Sub 更改图片大小()/ V" x) u( w2 x0 M, f, I
Dim pic As InlineShape
: [/ A+ v7 X9 w' o; a( k7 G. m For Each pic In ActiveDocument.InlineShapes
! n% X$ Q2 \5 F/ _: _ If pic.Width > 420 Then0 N/ Z# ]1 t) y5 P
pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度
% V* Q& W4 l5 V, W! g End If& F5 ]7 X6 Q: x9 z7 _2 |
Next @" a/ m$ w" j
End Sub

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

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

加老师是真的geek~

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

批量调整表格宽度

Sub 调整表格格式()
; L3 ^, ^. M8 ?* v7 Z& o( m
Dim tb As Table- T5 d" `& `( {: g
For Each tb In ThisDocument.Tables()
9 E; A" O; F: T/ P+ H. }
tb.Select* d4 S( A$ O. j v, I
With Selection.ParagraphFormat
% d0 R7 Y8 ?$ r3 `3 O) x3 V
'段前间距，单位：磅. h. Y2 E$ q& M/ S
.SpaceBefore = 0
, p2 e( r! e( E! ~' k
.SpaceBeforeAuto = False
/ f* I+ f) B0 }% x2 I! H
'段后间距，单位：磅
, ?; `" Y/ @/ Y" k( E+ F
.SpaceAfter = 0% `( J' h1 _4 d4 a$ G$ W1 e# t
.SpaceAfterAuto = False
6 q5 {8 p; C' A! ]
'行间距，单倍行距
3 d! c# R1 I" q. J) b" n
.LineSpacingRule = wdLineSpaceSingle- k$ ^& J$ I4 v
'左缩进，单位：字符8 ~( J! Z6 q5 s% a s
.CharacterUnitLeftIndent = 0
0 c5 @& f: C* ~( ]0 m
'右缩进，单位：字符' O1 T! z' J, O2 B" i' ?* N6 P
.CharacterUnitRightIndent = 0; m, m5 ~9 Z1 Q( K
'首行缩进，单位：字符6 y# e% x9 @( ?1 R
.CharacterUnitFirstLineIndent = 0
$ j7 I) r' k7 i) x3 g8 d
End With
) j: V3 ^$ c4 h
'根据窗口调整表格宽度
5 s8 f' x. I& d$ A+ n! ^( r& W
tb.AutoFitBehavior (wdAutoFitWindow)
/ I- i4 W5 i# X, S! P9 g9 g
Next, X0 z) w% H( v/ K" B4 I/ Y$ n' N8 ?
End Sub/ P" ^8 L8 n2 j+ w5 t. y

复制代码