Word自动编号转为手动编号

Sub 自动编号变手动() ActiveDocument.Content.ListFormat.ConvertNumbersToText End Sub Sub 选中的自动编号变手动() Selection.Range.ListFormat.ConvertNumbersToText End Sub