用word时自动编号的格式调整是个问题,因为自动编号时格式不能随意调整,特别是汇总不同人做的稿子,有的用自动编码,有的不用,很混乱。在百度上搜了一番居然有批处理的解决方案,试过很方便,遂拿出来分享。
如何把WORD编号转换为普通文本
原帖地址:
http://www.topsage.com/dispbbs.asp?boardID=22&ID=53405&page=1
解决方案:
打开WORD,依次点击:工具-宏-宏-在“宏名”框内输入宏名(好比:NumToTxt)-单击“创建”按钮,弹出Visual Basic编辑器窗口,窗口内自动出现以下内容:
Sub NumToTxt()
NumToTxt Macro
宏在 2006-12-3 由 www.TopSage.com 创建
End Sub
其中宏在哪天由谁创建,是根据你的创建的时间、电脑设置来决定的!
把下面的这段代码复制下来:
ActiveDocument.Content.ListFormat.ConvertNumbersToText
粘贴到编辑器窗口内容“End Sub”前面,现在,编辑器窗口的内容应该是这个样子:
Sub NumToTxt()
NumToTxt Macro
宏在 2006-12-3 由 www.TopSage.com 创建
ActiveDocument.Content.ListFormat.ConvertNumbersToText
End Sub
最后点Visual Basic编辑器保存按钮,将宏保存到Normal模板,然后关闭VBA窗口并返回Word。
打开你要处理的WORD文档,依次点击:工具-宏-宏-选中NumToTxt这个我们刚刚创建的宏(选中后在“宏名”框内会显示NumToTxt)-运行。OK
______________
如何把WORD编号转换为普通文本
原帖地址:
http://www.topsage.com/dispbbs.asp?boardID=22&ID=53405&page=1
解决方案:
打开WORD,依次点击:工具-宏-宏-在“宏名”框内输入宏名(好比:NumToTxt)-单击“创建”按钮,弹出Visual Basic编辑器窗口,窗口内自动出现以下内容:
Sub NumToTxt()
End Sub
其中宏在哪天由谁创建,是根据你的创建的时间、电脑设置来决定的!
把下面的这段代码复制下来:
ActiveDocument.Content.ListFormat.ConvertNumbersToText
粘贴到编辑器窗口内容“End Sub”前面,现在,编辑器窗口的内容应该是这个样子:
Sub NumToTxt()
ActiveDocument.Content.ListFormat.ConvertNumbersToText
End Sub
最后点Visual Basic编辑器保存按钮,将宏保存到Normal模板,然后关闭VBA窗口并返回Word。
打开你要处理的WORD文档,依次点击:工具-宏-宏-选中NumToTxt这个我们刚刚创建的宏(选中后在“宏名”框内会显示NumToTxt)-运行。OK
______________
