输入代码, 这个是选择文本当中所有表格的(可参考:https://baijiahao.baidu.com/s?id=1606462499778026432&wfr=spider&for=pc)
1. 视图中查看宏,建立一个宏,贴上下面框内的代码,保存。会出现一个 批量修改表格 的宏。
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
|
2. 录制宏
2.1 ctrl+a先全部选择, 也就是文本以及表格中的代码全部选择,文字大小10,行间距13
2.2 运行那个 之前建立的 批量修改表格 宏,大小8,行距设置,多倍行距,数值为0.83.
注意:设置行距的时候 段前段后都改成0.
3. 按停止,红录制好了。YEAH!!!
No comments:
Post a Comment