作者：乔山办公网日期：
返回目录：word文档
目录下有几百个WORD文档知，每个文档内都有一行文字： 编号：（随机数字 ）道 。现在想把每个文档按照文档内回的随机数字改名。
比如：该WORD内的文本如下：
编号：1231
[以下是正文]
则将该WORD的文件名改为“答1231.doc”。
1.单击“编百辑”菜单中的“替换”命令。
2.在“度查找内容”框内输入要搜索的文字。
3.在“替换为”问框内输入替换文字。
4.选择其他答所需选项。
5.单击“查找下一处”专、“替换”或者“全部替换”按属钮。
按 Esc 可取消正在执行的搜索。
是要修改“表***”中的“表”吗？例如：改为“表格***”。
我也遇到这个问题，貌似word不支持直接修改功能，只能删掉并挨个重新添加新的题注。。。
第一步，先用宏将所有表zd格选中：
Sub 宏1()
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
第二步，设置格式。先设置好字体字号，再设置表格属性：右键——表格属性（或者点菜单栏的表格——表格属性）版——行，选中“指定高度”，在“行权高值是”中选择“固定值”，设定一个适当值。