irpas技术客

word批量修改表格属性_Tinko123_word表格批量修改内容

irpas 1849

比如修改表格尺寸、修改表格边框、修改表格属性

一、用样式修改

选中第一个表格——开始——样式——应用样式——修改——按需修改——确定。这样就可以同时修改所有表格的样式了,比如字体、边框、段落等 。

二、用宏修改(表格尺寸无法用样式修改,只能用宏批量修改了)

1、要开启宏

(1)打开要修改的word——文件——选项——自定义功能区——将开发工具选上——确定。

(2)开发工具——宏——拷贝以下代码:(以下代码功能是选中所有表格)

Sub 批量修改表格() Dim tempTable As Table Application.ScreenUpdating = False If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护,此时不能选中多个表格!" Exit Sub End If ActiveDocument.DeleteAllEditableRanges wdEditorEveryone For Each tempTable In ActiveDocument.Tables tempTable.Range.Editors.Add wdEditorEveryone Next ActiveDocument.SelectAllEditableRanges wdEditorEveryone ActiveDocument.DeleteAllEditableRanges wdEditorEveryone Application.ScreenUpdating = True End Sub

(3)Ctrl+S保存此宏

(4)将word另存为‘带有宏的word模板(*.dotm)’

(5)打开此dotm宏文档——开发工具——宏——运行,点了‘运行’后会选中word中所有的表格,此时将鼠标移动到最后一个表格(注意若是选中第一个表格,只能修改第一个表格的尺寸,经测试发现尺寸这一个属性有点特殊),右键选中‘表格属性’,修改相应内容,比如若要设置表格尺寸,则修改如下:

确定后,word中所有的表格都会设置成16cm了。


1.本站遵循行业规范,任何转载的稿件都会明确标注作者和来源;2.本站的原创文章,会注明原创字样,如未注明都非原创,如有侵权请联系删除!;3.作者投稿可能会经我们编辑修改或补充;4.本站不提供任何储存功能只提供收集或者投稿人的网盘链接。

标签: #word表格批量修改内容 #批量修改表格Dim #tempTable #as