Go to end of each line and bold text inside parenthesis - vba

Question

I need to automate formatting specific words at the end of each line in MS Word. Since I could not record a macro to do the job owing to limitations of Word macros, I have to post it here. All I need is to do the following:-
Check each line for a start of (
Start selecting the text inside parenthesis (including the parenthesis) till ) is found as end of a sentence
Format text to bold
Do this till the end of file
Exception: Don't format headings which are already bolded and underlined.
How could I do that? Or please rectify my code as it is doing nothing at all.
Sub m1()
'
' m1 Macro
'
'
Dim i As Integer
With Selection.Find
For i = 1 To lastRow
.Forward = True
.ClearFormatting
.MatchCase = False
.Wrap = wdFindContinue
.Execute FindText:="("
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Bold = wdToggle
Selection.Font.BoldBi = wdToggle
Next
End With
End Sub

Answer 1

You might not need a macro is you know the Style of your document’s body text is always a certain designated style other than a Heading style. Setup your Find and Replace like this:
If the wildcard code is difficult to read from the screen clip it is: [(]*[)]

Answer 2

I finally succeeded in building this code:
Sub m1()
Selection.HomeKey Unit:=wdStory
With Selection.Find
Do While .Execute(FindText:="(", Forward:=True, MatchWildcards:=False) = True
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Bold = wdToggle
Selection.Font.BoldBi = wdToggle
Selection.EndKey Unit:=wdLine
Loop
End With
End Sub
It Workded! :) Thanks for the support!

Answer 3

MS Word does not work with lines. The following VBA code will find paragraphs which end with parentheses and bold them together with the contents.
Sub Bold_ending_parentheses()
Dim par As Word.Paragraph
Dim str As String
Dim closes As Byte
Dim opens As Long
For Each par In ActiveDocument.Paragraphs
str = StrReverse(par.Range.Text)
closes = InStr(Left(str, 4), ")")
If closes Then
opens = InStr(str, "(")
If opens Then
With par.Range
.Find.Text = StrReverse(Mid(str, closes, opens - closes + 1))
Do
.Find.Execute
If .Find.Found Then .Font.Bold = True
Loop While .Find.Found
End With
End If
End If
Next
End Sub
EDIT:
An example of using Find and Replace. Using this, all the text in parentheses is bolded (not taking into account the requirement of being at the end of paragraph/line):
Sub ApplyBoldWithinParentheses()
With ActiveDocument.Content.Find
.ClearFormatting
.Text = "[(]*[)]"
.Replacement.Font.Bold = True
.Format = True
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
End Sub