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

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

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

Sub 更改图片大小()
0 I  m0 H0 p' ?Dim pic As InlineShape
7 Q/ y, @, J% f$ \) P For Each pic In ActiveDocument.InlineShapes
' Z7 ]6 i  v, V  \0 X# ? If pic.Width > 420 Then
: U" G7 C3 F! Y) h pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度- m- T& j5 T- K  W; R; ~
End If
' |' O; _  n3 `# O5 ?9 { Next
! v9 I( J0 O' j. F, H$ sEnd Sub

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

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

加老师是真的geek~

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

批量调整表格宽度

Sub 调整表格格式()
, ]6 b6 a3 o# x; b' [/ `6 e! v. w! m
Dim tb As Table
: @0 \) D* Y9 Q8 B4 e
For Each tb In ThisDocument.Tables()
5 e8 h" R, B* L* x! N* B
tb.Select
. B7 n: j- r& G/ l
With Selection.ParagraphFormat- d: i9 ^( m' \9 g+ n9 Z
'段前间距，单位：磅
" C- T3 W% K4 A, d- R
.SpaceBefore = 0* L) N* ]/ G4 k0 {0 {
.SpaceBeforeAuto = False
1 [; |% i! W4 T l5 Q; r
'段后间距，单位：磅- K& M3 i) L/ Z4 a
.SpaceAfter = 0/ P( j$ S5 C) ^
.SpaceAfterAuto = False
" z* ?3 f, d0 P" q) ^
'行间距，单倍行距
# m3 L0 q, @4 z# v1 |4 W0 G: b- M1 [
.LineSpacingRule = wdLineSpaceSingle" E( r' |! T! r1 s! m
'左缩进，单位：字符
; g/ G& x) h% E* `8 |$ ^
.CharacterUnitLeftIndent = 0
/ e2 h% |5 e' h3 u$ v W( U. |
'右缩进，单位：字符. @# U5 K, j6 T$ }: |- b# u" r( G+ z
.CharacterUnitRightIndent = 0
" R0 W( z& m& x0 W/ @
'首行缩进，单位：字符2 _7 [3 @0 g) {& C4 T
.CharacterUnitFirstLineIndent = 0. P+ P, e6 F4 Q1 N; p( m5 n1 H
End With
' x. J9 u' ?& Q' n7 Q4 |0 y+ k
'根据窗口调整表格宽度
& W9 T' {! y6 v3 ~5 x3 r" y
tb.AutoFitBehavior (wdAutoFitWindow)
4 m- V0 m4 Z. I0 H r
Next
8 E5 m2 C# q) e0 ^9 S# C) U% [
End Sub; c0 p; M; A0 q! U) K- G0 b

复制代码