长篇文档哪种模块最难排版?
马成功老师
创作者俱乐部成员
在一个图文混排并且含有大量表格的长文档里,哪种模块或内容排版最花时间?
经验告诉我:表格最难排版,尤其是将多个文档汇总到一个文档内,最头疼的是如何批量处理大量的不规范的表格:
每个表格的边框要一样;
每个表格的内部的字体字号几乎一样;
每个表格的行高要一致;
.............
头大,脑壳疼:
长文档里有句话:得表格者得天下。
如何降服表格?
掌握下面代码能让你事半功倍:
===============================================
Sub 选中文档内所有的表格()
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
===============================
这段代码只是做到了批量选中当前文档内的所有表格,选中完毕后呢?
再做其他的操作,比如,同时调整表格边框、字体字号等,这样所有的表格会跟着同步操作。
创作者俱乐部成员