Sub 全文编号转文本2()
'将文档中全部自动编号转成正常文本。
ActiveDocument.Range.ListFormat.ConvertNumbersToText
End Sub
2.
Sub 全文编号转文本()
Dim i As List
For Each i In ActiveDocument.Lists
i.ConvertNumbersToText
Next
End Sub
3.
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
4.
Sub 自动编号转文本()
Dim n
On Error Resume Next
n = MsgBox("默认转换文档中所有项目符号、自动编号、多级列表,如果只转换某区域,请点击“取消”选中该区域后再运行", 1 + 64)
If n = 1 Then
i = Len(Selection.Range)
If i = 0 Then
ActiveDocument.Content.ListFormat.ConvertNumbersToText
MsgBox "完成"
Else
Selection.Range.ListFormat.ConvertNumbersToText
MsgBox "完成"
End If
End If
End Sub
联系客服