删除域

dongdonggege

如何删除编号类的域？在打字时，经常出现：输入1，再输入顿号“、”，回车后，就出现的域。不知道是数字域，还是编号域。如果是几个，手工删除无所谓，太多了，好像就觉得很累。请问：如何删除这样的域？我的附件，只使用了几个，而且没有间隔，麻烦大侠编个程序解决，谢谢！！

TFQWFN

什么域还真没明白

413191246se

楼主，只须点击“工具——自动更正选项”——将“键入时自动套用格式”和“自动套用格式”这两个标签中的“自动项目……”和“自动编号……”这两个复选框前面的小勾取消勾选即可——确定退出，再退出WORD，重新打开WORD即可。

duquancai

1. Sub shishi()
   
2.     With CreateObject("VBScript.Regexp")
   
3.         .Pattern = "^\t"
   
4.         ActiveDocument.Content = .Replace(ActiveDocument.Content, "")
   
5.     End With
   
6. End Sub

复制代码

dongdonggege

duquancai 发表于 2016-9-15 00:36

大侠辛苦，请教大侠：这个域确实能清除了，但是数字“1，2”却没有了。我的本意是：把这个域换成对应的数字。比如把带域的“1、”，换成普通的“1、”，把带域的“2、”换成普通的“2、”。谢谢！

duquancai

dongdonggege 发表于 2016-9-15 09:12
大侠辛苦，请教大侠：这个域确实能清除了，但是数字“1，2”却没有了。我的本意是：把这个域换成对应的数 ...

1. Sub shishi()
   
2.    ActiveDocument.Content.ListFormat.ConvertNumbersToText
   
3. End Sub

复制代码

dongdonggege

duquancai 发表于 2016-9-15 10:16

谢谢高手，确实能解决，再次感谢。

dongdonggege

1. Sub 自动编号转文本()
   
2. If Selection.Type = wdSelectionIP Then
   
3.     ActiveDocument.Content.ListFormat.ConvertNumbersToText
   
4.     ActiveDocument.Content.Find.Execute FindText:="^t", replacewith:="", Replace:=wdReplaceAll
   
5. Else
   
6.     Selection.Range.ListFormat.ConvertNumbersToText
   
7.     Selection.Find.Execute FindText:="^t", replacewith:=" ", Replace:=wdReplaceAll
   
8. End If
   
9. End Sub

复制代码

dongdonggege

duquancai 发表于 2016-9-15 00:36

大侠，你好，就运行结果继续请教你。
如果，点击域中的“1、”或“2、”，运行程序，出现部分灰色的。
而不选择或全选择，则没有这样的情况出现。
请看我的截图，为什么会出现不同的结果？

duquancai

dongdonggege 发表于 2016-9-18 07:11
大侠，你好，就运行结果继续请教你。
如果，点击域中的“1、”或“2、”，运行程序，出现部分灰色的。
...

1. Sub shishi()
   
2.     With ActiveDocument.Content
   
3.         .ListFormat.ConvertNumbersToText
   
4.         .HighlightColorIndex = wdNoHighlight
   
5.     End With
   
6. End Sub

复制代码