把自动编号的数字改为正常数字

tangqingfu · 发表于 2009-4-10 23:06

请楼主以"自动编号"或"手动编号"为关键字搜索本版

yisuylm · 发表于 2009-4-11 10:19

有时候自动编号确实很烦，体验并不好，我也有楼住的疑惑，不知道如何实现

xbq602 · 发表于 2009-4-12 09:31

将编号剪切下来，再使用选择性粘贴，选择无格式文本粘贴就行了。

lsss1111 · 发表于 2014-11-8 15:28

CTRL+A－－CTRL+C－－菜单编辑－选择性粘，选无格式文本，点确定

zbsyy · 发表于 2015-7-28 14:56

Sub 自动编号转文本()
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
End Sub

413191246se · 发表于 2015-7-28 21:37

楼上不错，但该宏已经精简如下：
Sub 自动编号转文本()
ActiveDocument.Content.ListFormat.ConvertNumbersToText
ActiveDocument.Content.Find.Execute findtext:="^t", replacewith:="", Replace:=wdReplaceAll
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 把自动编号的数字改为正常数字