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

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

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

Sub 更改图片大小()
) q0 Z, q4 L% U- a: YDim pic As InlineShape
1 v% S5 D* A' X& W& n# t For Each pic In ActiveDocument.InlineShapes$ f; @6 z% i$ Z2 ^
If pic.Width > 420 Then
) \& }( j8 Y& u# k3 V' P1 f; G pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度: \9 C- A" X. l- f4 n
End If' b! P" ~/ s0 t |
Next
$ v/ L' ~# \+ v. w6 w8 mEnd Sub

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

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

加老师是真的geek~

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

批量调整表格宽度

Sub 调整表格格式()% T% S/ { H8 G0 g" v* p/ N
Dim tb As Table4 f+ M) j$ O% o5 p& o2 l
For Each tb In ThisDocument.Tables()
/ G8 N" {: k; I
tb.Select& c; s" w. O: |
With Selection.ParagraphFormat+ u5 H' `6 r3 O( Y5 k
'段前间距，单位：磅4 J( y5 x K& b8 h0 j0 Z
.SpaceBefore = 06 }* k' o9 R9 F% d; P i
.SpaceBeforeAuto = False
5 K! g" ^. @! D1 Q3 q+ L. O
'段后间距，单位：磅: r2 d9 \2 I9 z' Y6 C
.SpaceAfter = 09 H7 [" [, y7 r2 z, n$ G
.SpaceAfterAuto = False8 ?3 w) P+ |! [
'行间距，单倍行距( O7 \: @2 _5 S/ X* |' ]* u
.LineSpacingRule = wdLineSpaceSingle8 c, F6 ?: O' `* F
'左缩进，单位：字符
4 H) b* ?) \, |
.CharacterUnitLeftIndent = 0' Q1 v( L) U7 \* s
'右缩进，单位：字符6 x4 ^( d5 r2 T5 a7 N( ]. d- _' _
.CharacterUnitRightIndent = 07 ` D: g0 w& G) ~9 w
'首行缩进，单位：字符) w+ }0 J- n7 _! R$ r3 ?
.CharacterUnitFirstLineIndent = 0$ v8 l. J1 U* E- g K
End With" z$ A4 \6 i0 _0 o. P5 t9 p0 S
'根据窗口调整表格宽度
% i5 s. l& z. `8 F7 R* K' l
tb.AutoFitBehavior (wdAutoFitWindow)- N+ j0 q! I' `# E5 |+ c
Next
, K" m' X5 {/ u, n8 P c
End Sub
% { f/ ]. s- V3 ^; W; H

复制代码

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

浏览过的版块