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

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

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

Sub 更改图片大小()
+ b6 Q x( C6 I$ C7 z8 a* kDim pic As InlineShape8 b' }+ x0 v+ i0 I
For Each pic In ActiveDocument.InlineShapes
$ ^! P$ K4 p" o1 R* C7 g' n% Y% k If pic.Width > 420 Then
; P, j: e5 v, K! g7 S pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度
% J! ^( {1 R" U. I5 A! }4 {7 m7 z End If
; x9 D- S: r/ ^. ~, S" h Next/ m$ A# c6 B W& W
End Sub

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

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

加老师是真的geek~

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

批量调整表格宽度

Sub 调整表格格式()8 \! i8 Y0 b9 E) T4 O# q* C$ t
Dim tb As Table
6 J' _' h' f1 |/ g$ r
For Each tb In ThisDocument.Tables()* Z6 p" ]4 z' g
tb.Select
( `, K6 ?+ @$ `, x& S3 G3 W9 D
With Selection.ParagraphFormat& W" O6 v2 n1 ?+ D" w! q& u
'段前间距，单位：磅
. i* s! r" P! s& c- L6 G- A5 f
.SpaceBefore = 0& ?/ A& C( H. w+ T" e* g" `
.SpaceBeforeAuto = False! G' m5 L8 s7 V& b- @# a- M' m$ s
'段后间距，单位：磅0 m. ]7 w( b# x1 P+ b- z# g: `6 `
.SpaceAfter = 0
( s2 Z( G. U8 B3 ?! J; q/ Q! k
.SpaceAfterAuto = False0 q Y$ i' _& o* c! @
'行间距，单倍行距
6 [- a! s. A H, U: o! ?
.LineSpacingRule = wdLineSpaceSingle
4 b: X7 {8 C5 e4 N" K) D* S6 j6 V- K
'左缩进，单位：字符- b. Z5 E! q; o |5 S2 p+ J% V
.CharacterUnitLeftIndent = 03 n+ g* s. l: a
'右缩进，单位：字符1 ~, b1 B0 }9 q! c# t8 X$ z& X
.CharacterUnitRightIndent = 0
3 f% A; Q: Q7 J; _4 B& v
'首行缩进，单位：字符
. g% j( W6 K: |- q% y L2 F7 `0 q
.CharacterUnitFirstLineIndent = 0
+ e! e3 b* i% y' l# J2 i
End With7 C: Y" R" s6 R9 j0 P9 W5 H5 j1 e
'根据窗口调整表格宽度# g7 M; k% V5 ^0 H/ d( w- Z
tb.AutoFitBehavior (wdAutoFitWindow)( M. K' U6 h, B+ `
Next& }! ?* C, ] a, J; m' k# x
End Sub$ m2 E: z; b. g5 K, k9 y

复制代码

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

浏览过的版块