word怎样批量修改表格的宽度汇编两篇
word表格可根据窗口自动调整表格宽度,使得所有的表格宽度和页面宽度一样。当页面设置了新的页边距后,所有的表格都需要调整新的宽度。或者文档中有许多大大小小的表格,希望宽度全部调整与页宽一样。那么下面就由读文网小编为您分享下批量修改Word表格的宽度的技巧,希望能帮助您。
Word批量修改图片大小长宽或按比缩放的方法
首先的批量添加图片到Word中其实很简单,就是我们平时添加照片的办法就行了。
步骤一:选中第1张图片,按住键盘Shift键,再选中最后一张图片。
步骤二:选中任意一张照片,同时按键盘“Ctrl”键和字母“A”键,全选
点击“插入”
添加完后接着就开始编辑图片了。
步骤一:在word软件界面中依次点击:开发工具→宏
步骤二:同时按键盘“Alt”键和“F8”键(后面简称Alt+F8)
弹出宏创建窗口。
步骤二::在宏名栏里任意输入一个宏的名字,本例中我们使用“setpiCSize”
步骤三:点击创建。
步骤四:弹出“Microsoft Visual Basic”窗口,复制下面的代码到代码窗口里替换掉原有内容:
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '设置图片高度为 5cm (1cm等于28.35px)
ActiveDocument.InlineShapes(n).Width = 4 * 28.35 '设置图片宽度 4cm
Next n
End Sub
'其中图片本例中图片尺寸为5cm和4cm
步骤五:点击“Microsoft Visual Basic”窗口工具栏里的“运行”按钮(类似播放器里的播放按钮)或者按键盘“F5”键
等待一会儿……(等待时间取决于你插入图片的多少和你电脑的运算速度)……
步骤六:待标题栏上方的[正在运行]消失后,点击右上角小叉关闭“Microsoft Visual Basic”窗口。
大功告成!!
批量修改表格的宽度的方法
第一步:打开Word文档,按下【Alt + F11】
第二步:在VBA编辑器窗口的左上方,双击【ThisDocument】
第三步:在右侧选择【Document】,再在其右侧下拉选择【Open】
第四步:然后在宏代码编辑窗口中,Document_Open()下面输入以下代码
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
第五步:点击左上方的保存图标。
第六步:在弹出的窗口中,点击【否】,如果文档已经启用了宏,就不会出现这个提示对话框了。
第七步:将文档另存为【启用宏的 Word 文档】,然后关闭VBA编辑器和当前文档。
第八步:找到你刚刚保存的启用宏的Word文档,双击打开,启用宏的Word文档的图标上,会有一个感叹号。
第九步:点击【启用内容】,宏代码开始运行。
第十步:您会发现,Word中的所有表格,都会自动调整其宽度与页面宽度一样啦,而且表格中的内容都居中对齐了。如果不希望居中对齐,就将宏代码中的水平居中和垂直居中两行去掉。