如何把word的自动编号变成文本
发布网友
发布时间：2022-04-23 06:14
共2个回答
热心网友
时间：2023-10-03 01:16
步骤如下：
1、选中要改的自动编号。
2、在工具栏中点击“编号”按钮。
3、自动编号去消，手动改为普通的数字即可。
热心网友
时间：2023-10-03 01:16
要用到宏，具体宏怎么用，很简单的，我都是通过录制宏之后，然后再将录制的代码删掉，把想要的代码粘贴进去就可以了，百度上有很多教程。不懂的话再追问。
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
把上面的代码贴到宏里，可以批量转换为文本，亲测有用，来源：
获取文件名称、小标题加粗、自动编号转为文本-代码
热心网友
时间：2023-10-03 01:16
步骤如下：
1、选中要改的自动编号。
2、在工具栏中点击“编号”按钮。
3、自动编号去消，手动改为普通的数字即可。
热心网友
时间：2023-10-03 01:16
要用到宏，具体宏怎么用，很简单的，我都是通过录制宏之后，然后再将录制的代码删掉，把想要的代码粘贴进去就可以了，百度上有很多教程。不懂的话再追问。
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
把上面的代码贴到宏里，可以批量转换为文本，亲测有用，来源：
获取文件名称、小标题加粗、自动编号转为文本-代码
