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

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

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

Sub 更改图片大小()5 A5 y4 i9 ~2 n/ Q7 X# F6 t
Dim pic As InlineShape0 _) R' U$ i( N, n4 @
For Each pic In ActiveDocument.InlineShapes
- o! \) d1 ]; u; D3 I: [ ?: P If pic.Width > 420 Then
. a4 Q, T1 n& V9 l, G& k/ g- U pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度
$ m& K( y% D. l6 y3 G) A9 w& q End If! s9 l9 q+ d/ n% U) G2 e
Next
, x0 {# I: @# ~( J9 CEnd Sub

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

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

批量调整表格宽度

Sub 调整表格格式()2 P( T+ x7 `, i, I+ ^8 i/ H
Dim tb As Table% P" U+ ~: a/ C, s+ c! `$ [! C3 c- v
For Each tb In ThisDocument.Tables()
% ~1 T% \( N; ?8 U' |( ~
tb.Select$ G6 e$ N* L: u8 j0 l6 R: [
With Selection.ParagraphFormat
7 h" M2 J! v5 q
'段前间距，单位：磅
' Z0 H5 i! ^7 j8 _! W3 o8 Q
.SpaceBefore = 0* l0 w/ }) \ m& ^
.SpaceBeforeAuto = False
; a: `% v" K( g$ ]
'段后间距，单位：磅
3 a3 ?; x" `7 h N8 ?
.SpaceAfter = 0
) @2 X7 T- e |! r
.SpaceAfterAuto = False: n9 R, d4 E$ o
'行间距，单倍行距8 G0 P& \3 ^' ]1 [/ D
.LineSpacingRule = wdLineSpaceSingle3 q0 Y2 f! k: W$ f8 Z
'左缩进，单位：字符6 _( h8 h" E: _9 X3 v0 \
.CharacterUnitLeftIndent = 02 l# ^- F; q& e8 R2 w" f( ^
'右缩进，单位：字符 w/ o* h( P, C2 G7 `
.CharacterUnitRightIndent = 0
3 e: n( v* n; U: _7 [
'首行缩进，单位：字符: W+ w' S7 U# t: ^* ]) F3 f
.CharacterUnitFirstLineIndent = 0% Z3 {- ]1 S& ?) a4 E, q
End With
( z9 D% n" U& k8 u- m3 r# m
'根据窗口调整表格宽度/ c6 E1 l" e6 y7 e( O6 {' \
tb.AutoFitBehavior (wdAutoFitWindow)
: F" Q/ L* X2 T/ ?# x1 V5 K
Next
8 H3 S7 A2 Z* f" K9 v+ X) e
End Sub1 d8 g7 @3 q8 E6 K" M

复制代码

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

加老师是真的geek~

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

浏览过的版块