- ·上一篇:word混乱数据如何整理
- ·下一篇:如何用word批量做题库
word如何粘贴后没有编号
1.word替换后序号消失了
要解决这种情况,首先要把编号转换成正文,然后再进行替换去掉空格空行。
编号转换成正文有两种方法:
一是全选要处理的行复制,粘贴到记事本里,然后再从记事本粘贴回word文档,去掉原格式,编号会自己转换成正文。
二是给当前文档创建一个新宏,在宏过程里添加以下代码。
'ActiveDocument.Content.ListFormat.ConvertNumbersToText
Selection.Range.ListFormat.ConvertNumbersToText
注:第一个语句是将当前文档时所有的编号都转换成文本,如果使用该语句请将句首的注释符”'“删掉;第二个语句是将当前文档里选中内容里的编号转换成文本,如果不使用该语句请在语首加注释符。
附:创建宏的方法:
1. 点击菜单”开发工具“,点击”代码“控件组里的”宏“,会弹出一个”宏“对话窗。
2. 在”宏“对话窗里,”宏名“标签下的文本框里输入宏名,比如”AutoNumToTxt"。
3. 点击“右侧的”创建“命令按钮,会弹出宏编辑IDE环境窗口。该窗口里已经自动生成了"AutoNumToTxt"框架。即:
Sub AutoNumToTxt()
'
' AutoNumToTxt 宏
'
'
End Sub
4. 添加编号转换成文本的宏代码。添加后为:
Sub AutoNumToTxt()
'
' AutoNumToTxt 宏
'
'
ActiveDocument.Content.ListFormat.ConvertNumbersToText
End Sub
或
Sub AutoNumToTxt()
'
' AutoNumToTxt 宏
'
'
Selection.Range.ListFormat.ConvertNumbersToText
End Sub
5. 如果你不想保存该宏, 直接按“F5”功能键即可。注意:如果添加是第二个语句,需要先点击任务栏上文档图标,激活当前文档,选中要转换的内容段落,再回到宏编辑IDE窗口,在该宏过程中点击鼠标后再按F5或点击工具栏上的三角形运行工具或使用“运行”菜单执行该宏。
