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

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

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

Sub 更改图片大小()6 T$ n! A; s# [* p7 l& v/ }
Dim pic As InlineShape/ m! V# C" O+ X4 ?
For Each pic In ActiveDocument.InlineShapes. Y7 _/ \% A J: H
If pic.Width > 420 Then
% M5 p6 b8 i8 j6 n5 n& D pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度
- w; b1 J% _# _ End If
4 e5 M: a! `& r( z Next1 b& ?+ J7 R4 M4 K* s0 w! |
End Sub

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

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

加老师是真的geek~

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

批量调整表格宽度

Sub 调整表格格式()) J; }( E* }- B4 r# g3 }1 B$ @3 H
Dim tb As Table
9 P9 Z0 H$ K1 s, t& h" {% k
For Each tb In ThisDocument.Tables()
% z4 K+ v( n1 k( r) O/ m
tb.Select0 q5 y2 B. q, W- e! v4 Y! U/ N
With Selection.ParagraphFormat! p" R5 m+ i3 F; e
'段前间距，单位：磅( [3 j* I5 ?4 x8 p( v) {' z* F
.SpaceBefore = 0 Q: C5 R0 O- B8 V* `
.SpaceBeforeAuto = False
+ d8 K- b$ Z6 H2 V
'段后间距，单位：磅4 E5 i2 o+ t% X' m3 j t0 v0 C7 B
.SpaceAfter = 07 `1 K3 ] c$ f/ K5 v" N. } R+ l& `
.SpaceAfterAuto = False! S" A- r, m4 ^, h4 \- |3 R0 L
'行间距，单倍行距
$ {* K+ _6 G+ Z3 p5 j V$ O
.LineSpacingRule = wdLineSpaceSingle5 @ M- O7 Q1 M! h& m
'左缩进，单位：字符
3 T# R6 @- W; _( B8 u1 B4 t; H
.CharacterUnitLeftIndent = 06 o# P2 k. ]. `6 ^8 ^4 ^9 g
'右缩进，单位：字符( i& r5 I8 `3 q& ~8 z% \
.CharacterUnitRightIndent = 0" I ]) ~0 T, z
'首行缩进，单位：字符# J" O" g9 n, R+ s# N% n
.CharacterUnitFirstLineIndent = 0
$ Q4 u9 A) o" k
End With$ H, g4 q, {+ h! W. ?& G9 _
'根据窗口调整表格宽度
, Z+ i2 v) p+ `9 d5 t
tb.AutoFitBehavior (wdAutoFitWindow)
" g! Q0 b6 m: A2 ]6 @3 T6 O( B
Next
& i# w' {1 H# U9 f; e6 _. l9 c h
End Sub
: U$ k8 d$ k @/ g1 Q

复制代码

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

浏览过的版块