全球FlexSim系统仿真中文论坛

标题: 批量更改Word文档中图片大小 [打印本页]
作者: zorsite    时间: 2016-1-13 10:05
标题: 批量更改Word文档中图片大小
有时候想整理一下Flexsim学习资料，但是里面插的截图太大，超出了A4页面宽度，如何快速调整所有图片到合适的大小？如果会使用宏的话，可以创建一个宏，然后复制以下代码：1 I+ u* X& Q  {2 p4 F" a
Sub 更改图片大小()/ v; ?. a* H' b/ p
Dim pic As InlineShape
9 R% h1 c& E3 {+ {. H For Each pic In ActiveDocument.InlineShapes' S' V, [" l$ `
   If pic.Width > 420 Then; e1 D  `  ~; O5 f; z
    pic.Width = 420 '设置图片宽度 420px刚好适合一个面页宽度1 U( ~" O$ F9 n5 q* U2 ?- f
    End If
4 s9 B# V# A: Y; T# G# m  O    Next$ r; q$ n" T0 o) b3 H8 z
End Sub

3 |( I+ ^( R" ?* s' ]. n+ `8 H( X* y2 m' V2 P
执行这个宏就可以一次性处理所有照片大小了。
作者: 慧娴亚伦    时间: 2016-1-13 11:19
加老师是真的geek~
作者: zorsite    时间: 2019-12-13 11:07
批量调整表格宽度
9 Z3 _+ j* ~+ r% l
  1. Sub 调整表格格式()4 y6 s. f. X5 s$ R7 B
  2. Dim tb As Table* ^) V+ ]! h+ F
  3. For Each tb In ThisDocument.Tables()
    8 G. F1 N0 @& R+ x
  4.     tb.Select  O" }5 |+ x7 Q& H! v0 b
  5.     With Selection.ParagraphFormat# L5 X& F+ X  p/ C1 u
  6.         '段前间距，单位：磅
    7 Q* j+ t6 F5 F$ U* q
  7.         .SpaceBefore = 0
    * {5 k7 q2 l# b/ J0 R: b  T
  8.         .SpaceBeforeAuto = False* N1 I% }  D7 \7 U# `4 F: ?/ v7 _
  9.         '段后间距，单位：磅1 G5 I0 j$ y6 m! w
  10.         .SpaceAfter = 0' k+ Y2 D3 o" W; ~5 t
  11.         .SpaceAfterAuto = False! w1 {) N: D& ]6 p3 t4 C
  12.         '行间距，单倍行距
    5 t1 h) b. @5 M) L3 }0 b0 o" F
  13.         .LineSpacingRule = wdLineSpaceSingle  R0 i' r2 p" G& i! {
  14.         '左缩进，单位：字符8 a0 V1 k) K  @4 e( q
  15.         .CharacterUnitLeftIndent = 0" H5 J) B3 F  S# S, E
  16.         '右缩进，单位：字符
    ! V, X' ~9 r# V/ g' Z
  17.         .CharacterUnitRightIndent = 0
    ; M: G' v6 W0 s5 i( t1 B3 G, ]4 y* A
  18.         '首行缩进，单位：字符. S+ o* x2 @! I- [  L: t
  19.         .CharacterUnitFirstLineIndent = 0
    " \4 C: L7 q' }# r
  20.     End With
    / I) a4 W8 I0 i( z& r. A, p
  21.     '根据窗口调整表格宽度
    ( R  o4 K. j# ?& j* b5 f
  22.     tb.AutoFitBehavior (wdAutoFitWindow)
    * y/ S; \0 {) P! b* X4 H
  23. Next" Y5 L" J' x: y/ G
  24. End Sub. W+ f( Y& e$ T
复制代码

7 F2 Z2 e$ u* p3 k: D1 V9 i( H7 ]( ]& d7 {4 D




欢迎光临 全球FlexSim系统仿真中文论坛 (http://www.flexsimasia.com/) Powered by Discuz! X3.3