在word中怎样取消项目编号的连接但是不改变数字

在word中怎样取消项目编号的连接但是不改变数字

如果你想取消word中已经存在的项目符号与编号的数据格式，但是又想保留项目符号与编号里面的数字，那么，使用普通方法是不行的，你得使用VBA才能顺利完成。因为普通的办法可令项目符号与编号自动取消，但是问题是连编号里面的数字也被删除了。

　　下面的VBA代码的功能是这样的，如果你选中了文档中的内容，那么，就把选中部分的项目符号格式去掉，保留数字，否则，没选中任何段落的话，就对整篇文档的项目符号与编号删除格式并保留数字。

　　If Selection.Type = wdSelectionIP Then

ActiveDocument.Content.ListFormat.ConvertNumbersToText

ActiveDocument.Content.Find.Execute FindText:="^t", replacewith:=" ", Replace:=wdReplaceAll

Else

Selection.Range.ListFormat.ConvertNumbersToText

Selection.Find.Execute FindText:="^t", replacewith:=" ", Replace:=wdReplaceAll

End If

　　此代码用于VBA环境，在word中使用。