这两天在处理数据的时候,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
http://wenku.baidu.com/link?url=scHbokjqF7nK8kca00Pxrm8uaUmm7HNkgXLGaq0tNU-9T2zOrc08oZ7YJkXagD-QoBesB7Srb0zJ9GZJEqVCGBrTxB4uDzpjqRPwVxxnQia

发表评论

电子邮件地址不会被公开。 必填项已用*标注