VBA Word Tô màu HighLight cả dòng

[hlacom]

Trước hết mình cảm ơn sự giúp đỡ của mọi người. Về vấn đề của mình là:
1. Có 1 dòng word trong đó có một số từ đã highlight.
2. Yêu cầu: tìm tất cả các dòng có từ đã highlight và highlight cả dòng đó.
Ví dụ:
A. Quả trứng ==> A. Quả trứng.
Cần giúp: CODE thực hiện quá trình trên. Xin cảm ơn!

 

[tuhocvba]

Các Mod chú ý, sau sự việc vừa qua, các Mod không hỗ trợ thành viên tránh thù hằn không cần thiết.
Để thành viên tự giúp đỡ lẫn nhau.

 

[snow26]

Bạn thử:

Sub tuhocvba()
    Dim xx, xxxx, xxx, xxxxxxxx
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
        With Selection.Find
            .Highlight = True
            .Forward = True
            Do While .Execute
                xxx = Selection.Range.HighlightColorIndex
                xx = Selection.Words(1).End
                Set xxxx = ActiveDocument.Range(Start:=0, End:=xx)
                xxxxxxxx = xxxx.Paragraphs.Count
                ActiveDocument.Paragraphs(xxxxxxxx).Range.HighlightColorIndex = xxx
            Loop
        End With
    
End Sub