【2.2.1】word通过宏调整所有图片大小与表格大小
这两天在处理数据的时候,word中有大量的图片和表格需要插入,如果一个个去统一图片与表格的大小,实在太麻烦了,我们可以通过宏来批量处理,简单好用。
一、统一图片大
在”视图”–”宏“–“查看宏”–选择“宏的位置”–“创建”–“将下面一段代码插入进去”–“运行”
Sub FormatPics()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse '不锁定纵横比
iSha.Width = CentimetersToPoints(4.3) '宽4.3CM
iSha.Height = CentimetersToPoints(4.3) '高4.3CM
End If
Next
End Sub
二、批量设置表格宽度自动适应页面宽度
怎么批量修改Word表格的宽度呢。Word表格可根据窗口自动调整表格宽度,使得所有的表格宽度和页面宽度一样。
当页面设置了新的页边距后,所有的表格都需要调整新的宽度。或者文档中有许多大大小小的表格,希望宽度全部调整与页宽一样。
Sub FormatPics()
Application.Browser.Target = wdBrowseTable
For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent) '根据内容自动调整表格
ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow) '根据窗口自动调整表格
ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中
ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中
Next i
End Sub
参考资料:
http://jingyan.baidu.com/article/870c6fc3326588b03fe4beeb.html
这里是一个广告位,,感兴趣的都可以发邮件聊聊:tiehan@sina.cn
个人公众号,比较懒,很少更新,可以在上面提问题,如果回复不及时,可发邮件给我: tiehan@sina.cn
个人公众号,比较懒,很少更新,可以在上面提问题,如果回复不及时,可发邮件给我: tiehan@sina.cn