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.
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
Ko dc rồi bạn oi ,nó vẫn đánh dấu cả tên chuơng và nội dung thành heading 2 hết. Mình thử cách dòng Chuơng xx: xx trên 1 dòng dưới 1 dòng thì mới dc, hix, gặp truyện mấy trăm 1k chuơng thì mất time lắm
Ko dc rồi bạn oi ,nó vẫn đánh dấu cả tên chuơng và nội dung thành heading 2 hết. Mình thử cách dòng Chuơng xx: xx trên 1 dòng dưới 1 dòng thì mới dc, hix, gặp truyện mấy trăm 1k chuơng thì mất time lắm
Bác làm truyện gì mà vất vả thế. Mình làm có thấy gì đâu nhỉ :D
