[ansu16]

Nguyên văn bởi Lôi Hổ

Mình thử dùng cái marco của pác chủ thớt ,mà ko làm dc cái phần đánh dấu chuơng để làm mục lục, nó đánh dấu cả chuơng lun chứ ko đánh dấu 1 dòng Chuơng xx: xxx , nên ko làm mục lục dc , mình đã thử 1 vài truyện copy từ phần lưu trữ của 4vn như Đạo, thông thiên chi lộ... pác nào bik chỉ mình với.

bạn dùng cái macro này của mình thử:

Sub Mucluc()
'
' Macro1 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.Style = ActiveDocument.Styles("Heading 2")
With Selection.Find
.Text = "ch^$^$ng ^#"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub