wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior
myRange.Select
Dim i As Paragraph
For Each i In Selection.Paragraphs
i.Range.Characters(1).Select
Do While Selection.Characters.Last Like “#”
Selection.MoveEnd unit:=wdCharacter, Count:=1
Loop
If Selection Like “*[、.．]” Then Selection.Delete
myRange.Select
Next
Selection.ParagraphFormat.TabStops.ClearAll
ActiveDocument.DefaultTabStop = CentimetersToPoints(0.19)
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0.74)
.FirstLineIndent = CentimetersToPoints(-0.74)
End With
End Sub
使用的时候，还是点击开发工具选项卡中的“宏”选中“手动编号变自动编号”，点击运行即可 。如果只是某一个段落需要自动编号，可以圈选要编号的文档内容再进行操作就可以了 。

• 教你怎样用word做三线表 论文三线表怎么做
• 学会这几个Word间距技巧 段前间距设置了没反应
• word文档恢复最简单方法 word搜索功能在哪里
• word一键生成手写签名 word怎么签名手写
• word删除页面的三种方法 word怎么删除一页
• word图片批量导出图片方法 怎么把word导出成图片
• 如何将pdf文档转化为word文档免费 怎么将pdf转换成word
• word调整页边距的几种方法 页眉边距怎么设置
• word三栏表头制作方法 word表头怎么设置
• 这3款软件轻松实现PDF转Word pdf转word软件