Giúp em Find trong word (1 người xem)

[thangcola113]

Sub Find()
' Tim kiem cum tu "Ch??ng I" =>ok
With Selection.Find
.Text = "CH" & ChrW(431) & ChrW(416) & "NG I"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
' ???????????????? Lấy tất cả kết quả tìm kiếm được ở trên và bôi đậm (giờ viết code như thế nào?)


End Sub

Giúp em viết code đoạn màu đỏ

 

[thangcola113]

Em đang tính tập tành làm code để làm code tạo mục lục tự động trong word 2007, mà bí ở đoạn trên vẫn đang phải làm tay. Mong các bác giúp đỡ em viết đoạn code trên

 

[thangcola113]

Không thấy bác nào vào giúp em với, hiện em đang có nhiều đoạn code lặp đi lặp lại rất nhiều lần, chỉ khác nhau có 1 dòng (dòng em bôi đỏ). Nhờ các bác giúp em chỉnh sửa lại đoạn code cho ngắn gọn hơn

Sub Lenh2()
''Find từ 1
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Style = ActiveDocument.Styles(wdStyleHeading1)
With Selection.Find
.Text = "Ph" & ChrW(7847) & "n ^#"
.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
''''Find từ 2
'PHAN danh vao bang unicode dung san
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Style = ActiveDocument.Styles(wdStyleHeading1)
With Selection.Find
.Text = "PHÂ" & ChrW(768) & "N"
.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