合 如何批量处理word中的表格
👉 本文共约481个字，系统预计阅读时间或需2分钟。
批量设置word中的表格宽度
比如，我这有一个word文档有200多个表格（全部是3列的），现在要求第一列宽度3cm，第二列4cm，第三列5cm。一个一个改不太可能吧？？？执行如下的宏代码就搞定：
1 2 3 4 5 6 7 8 9 | Sub Macro1() Dim MyTable As Table For Each MyTable In ActiveDocument.Tables MyTable.PreferredWidth = CentimetersToPoints(16) MyTable.Columns(1).PreferredWidth = CentimetersToPoints(3) MyTable.Columns(2).PreferredWidth = CentimetersToPoints(4) MyTable.Columns(3).PreferredWidth = CentimetersToPoints(5) Next End Sub |
word中批量选中所有的表格
执行如下的宏代码即可：
1 2 3 4 5 6 7 8 9 10 | Sub select_all_tables() Dim mytable As Table Application.ScreenUpdating = False For Each mytable In ActiveDocument.Tables mytable.Range.Editors.Add wdEditorEveryone Next ActiveDocument.SelectAllEditableRanges (wdEditorEveryone) ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone) Application.ScreenUpdating = True End Sub |
方便大家查看，这里给出 word中批量选中所有的表格 例子，第一个类似：
本人提供Oracle(OCP、OCM)、MySQL(OCP)、PostgreSQL(PGCA、PGCE、PGCM)等数据库的培训和考证业务，私聊QQ646634621或微信dbaup66，谢谢！
