Forum Discussion

Copper Contributor

Feb 14, 2024

Solved

Selecting an entire line containing a specific word

I wished to know if there is any possible way to automatically select an entire line where a specific word occurs? If there is, how can we do it for multiple (all) occurrences as well?

Doug_Robbins_Word_MVP

Feb 19, 2024

roshanbangera Use the following code

Dim strWord As String
Dim rngFound As Range
strWord = InputBox("Insert the word to be found", "Word Finder")
Selection.HomeKey wdStory
With Selection.Find
    Do While .Execute(FindText:=strWord, Forward:=True, MatchWholeWord:=True, _
        MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=True) = True
        Set rngFound = Selection.Bookmarks("\line").Range.Duplicate
        Selection.Collapse wdCollapseEnd
        rngFound.Font.ColorIndex = wdRed
    Loop
End With

Replace the wdRed with whatever colour you want.

Doug_Robbins_Word_MVP

MVP

Feb 16, 2024

roshanbangera You can only select one at a time. However what is it that you want to do with each line of text that contains that word?

roshanbangera

Copper Contributor

Feb 19, 2024

Basically I wish to change the font color of the entire line in which a specific word is found. Thankyou

Doug_Robbins_Word_MVP

MVP

Feb 19, 2024

roshanbangera Use the following code

Dim strWord As String
Dim rngFound As Range
strWord = InputBox("Insert the word to be found", "Word Finder")
Selection.HomeKey wdStory
With Selection.Find
    Do While .Execute(FindText:=strWord, Forward:=True, MatchWholeWord:=True, _
        MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=True) = True
        Set rngFound = Selection.Bookmarks("\line").Range.Duplicate
        Selection.Collapse wdCollapseEnd
        rngFound.Font.ColorIndex = wdRed
    Loop
End With

Replace the wdRed with whatever colour you want.

roshanbangera
Copper Contributor
Feb 19, 2024
Awesome! Thannks Doug_Robbins_Word_MVP