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

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

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

Sub 更改图片大小()
6 e2 l  f$ d( L/ XDim pic As InlineShape2 Q& M! k  G, x4 ~/ Y
For Each pic In ActiveDocument.InlineShapes4 |  e% a. O' H$ d2 o7 b( |
If pic.Width > 420 Then
; I' Q& a/ i1 N1 W& T! C  \ pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度/ x" Y: W% U/ M) Z( c( d
End If; v' |4 y0 F. K# i
Next% A4 J2 F* E% t( X
End Sub

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

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

加老师是真的geek~

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

批量调整表格宽度

Sub 调整表格格式()" }$ K" i, [1 m3 f% _
Dim tb As Table6 y# ` w5 C2 j* } ~$ m
For Each tb In ThisDocument.Tables()
4 u0 x! r1 A) y. i4 _* e
tb.Select
( h* t/ V) r# z1 G5 C$ B3 b8 b
With Selection.ParagraphFormat2 ~; @# |% b- @) E( d
'段前间距，单位：磅3 q0 P6 ^& c6 B
.SpaceBefore = 0
8 p7 S* y6 K# h3 v# E' U% E1 i$ {
.SpaceBeforeAuto = False
1 V# B1 V. a3 O: c W# U
'段后间距，单位：磅0 w$ v! v: O' _( U u; V) z/ `
.SpaceAfter = 0! B" O; ]2 D( N: [9 a) q b
.SpaceAfterAuto = False6 | t% [' Z, p) A- _6 d
'行间距，单倍行距$ e% {" k/ x6 {, U& D J3 V
.LineSpacingRule = wdLineSpaceSingle
; i4 V2 D( M# v& F# V. c
'左缩进，单位：字符
9 P! o& m( D$ h4 D- s3 w% ^
.CharacterUnitLeftIndent = 0
! D, N8 d0 K c5 S6 ~; a( `- Z5 b' d
'右缩进，单位：字符5 X7 @& p5 R0 ^! P1 W+ m
.CharacterUnitRightIndent = 07 F5 d+ _' G$ v Z: A. T
'首行缩进，单位：字符
8 U$ ?( ]/ s5 `% b
.CharacterUnitFirstLineIndent = 0
) d/ B: O# Q4 }0 I; U% L% X7 ?: s
End With0 E. J3 z* O5 S l* m c: x1 N6 w
'根据窗口调整表格宽度1 g ~: M; r N) k
tb.AutoFitBehavior (wdAutoFitWindow)
3 g$ W8 w" G, ] [
Next
4 B- L; b4 n8 [/ j' B! Z/ X
End Sub& T1 M9 c& @) b2 q

复制代码