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

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

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

Sub 更改图片大小(), z7 z' @& f- w1 x, }6 s" E
Dim pic As InlineShape8 h& Y' L( d5 q
For Each pic In ActiveDocument.InlineShapes
/ H. }( m2 N, E: I If pic.Width > 420 Then
1 Y8 @- |% q7 l4 U pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度1 H9 `3 p3 |$ k& M
End If! m8 _% S b% q) ~& c/ q2 V2 ]
Next
3 P) ~" f8 v- k8 O; hEnd Sub

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

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

加老师是真的geek~

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

批量调整表格宽度

Sub 调整表格格式(), G0 O1 n% T. e0 N2 g0 u
Dim tb As Table) _) ~9 B7 |$ D5 _; g# i$ y* l
For Each tb In ThisDocument.Tables()
$ j& @4 Y' L, c* E
tb.Select+ `! }( N2 N; M, _ v7 N- L5 F
With Selection.ParagraphFormat
8 p$ @$ E# p4 |# {9 I. x9 T% ^) X$ j
'段前间距，单位：磅$ e: y8 @' m) F4 ~8 U
.SpaceBefore = 03 l# u) S2 i, Y' C8 P) E
.SpaceBeforeAuto = False
8 Z8 F" F6 H# i# L4 ]
'段后间距，单位：磅
7 a/ ` {: b) d2 Q2 _
.SpaceAfter = 0' l' n* c1 Q1 D2 ~. G$ e* R
.SpaceAfterAuto = False" D0 d. w6 @7 E p1 N
'行间距，单倍行距+ K/ S4 D$ a) a5 K+ |1 d2 A/ X5 g. M
.LineSpacingRule = wdLineSpaceSingle
$ R+ j1 c: k ?9 K; z- k8 v7 S
'左缩进，单位：字符
- i+ z4 h: U( ]
.CharacterUnitLeftIndent = 0
8 w" e1 v; A/ b
'右缩进，单位：字符. w, l- r8 y! x- C$ k! Z* A' A
.CharacterUnitRightIndent = 06 ]5 t9 v) j' ~7 v$ U
'首行缩进，单位：字符
, B3 K1 d. z$ G8 ^3 A r
.CharacterUnitFirstLineIndent = 0: y- o1 }4 @" n/ Y! \7 r. f
End With2 w! P$ ]/ b, `6 e0 v$ L
'根据窗口调整表格宽度
9 t# q3 D; |4 x3 d
tb.AutoFitBehavior (wdAutoFitWindow)6 Q- T) ?0 A; }6 K* E* r1 j- A
Next
2 h. s% ~0 W# O8 |- |
End Sub; Z2 {! s# j" S

复制代码

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

浏览过的版块