自动编号如何去除？

keeriao

各位高手们，怎样让WORD中的自动编号问题不要自动出现？用的是Word2000。谢谢各位了！

henterwu

试试这个：

Sub DelAutoNum() For s = 1 To ActiveDocument.Fields.Count If ActiveDocument.Fields(s).Type = wdFieldAutoNum Then ActiveDocument.Fields(s).Delete End If Next End Sub

keeriao

谢谢henterwu,要这样的话下次再启动WORD时会不会又出现了？有没有更简单的办法。等一会儿我会试试看的。

henterwu

不会的，你的编号是不是AUTONUM，如果不是可改变TYPE判断类型。

keeriao

以下是引用henterwu在2005-2-27 11:36:00的发言： 不会的，你的编号是不是AUTONUM，如果不是可改变TYPE判断类型。

高手高手，可是我没接触过VB啊，我看了有点晕，我是说自动编号，比如：

输入：“一、单项选择题”后按回车，电脑自动出现”二、……“，这时按”Backspace“键两次，就可以消除，有没有简单的方法，敲回车后不出现自动编号。

你说的是不是这个问题的解答方法。 [em04]

keeriao

以下是引用henterwu在2005-2-27 10:58:00的发言：

试试这个：

Sub DelAutoNum() For s = 1 To ActiveDocument.Fields.Count If ActiveDocument.Fields(s).Type = wdFieldAutoNum Then ActiveDocument.Fields(s).Delete End If Next End Sub

我试了可是不好用，是不是新录制宏输入以上程序然后存为模板？

henterwu

我理解错了，我的宏代码是删除AUTONUM格式的自动编号域的。

你的自动编号可通过选中编号文档，在快捷菜单打开自动编号编辑窗口，选择编号为“无”就行了。

守柔

去勾即可。

办公之星

2000的界面与守柔用2002做的有所不同，但操作是一样的，即撤消“自动项目符号列表”和“自动编号列表”。