天朗可赏月，气清好做人

VBA代码收集

上一篇 / 下一篇 2006-08-11 13:53:16 / 天气: 晴朗 / 心情: 高兴 / 个人分类：工作

批量修改word图片大小

Sub kk()
Dim a As InlineShape
For Each a In ActiveDocument.InlineShapes '(在其中循环)
a.Width = 126.4
a.Height = 126.4
Next
End Sub

粘贴网页上的内容去掉边框

Sub 去除边框()
Dim a As Table
For Each a In ActiveDocument.Tables

a.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _
NestedTables:=True
Next
End Sub