Based on your example the following should work
Code:
Sub Macro1()
'Graham Mayor - http://www.gmayor.com - Last updated - 28 Oct 2018
Dim orng As Range
Set orng = ActiveDocument.Range
orng.Font.Bold = True
orng = Replace(orng, Chr(11), Chr(13))
orng = Replace(orng, Chr(13) & Chr(13), Chr(13))
With orng.Find
Do While .Execute(FindText:="[0-9]{1,}-", MatchWildcards:=True)
If orng.Start = orng.Paragraphs(1).Range.Start Then
orng.MoveEndUntil ")"
orng.End = orng.End - 2
orng.Select
orng = Replace(orng, Chr(13), Chr(32))
orng = Replace(orng, Chr(32 & Chr(32)), Chr(32))
End If
orng.Collapse 0
Loop
End With
Set orng = ActiveDocument.Range
With orng.Find
Do While .Execute(FindText:="A)", MatchWildcards:=False)
If orng.Start = orng.Paragraphs(1).Range.Start Then
orng.MoveEnd wdParagraph, 2
orng.End = orng.End - 1
orng = Replace(orng, Chr(13), Chr(32))
orng = Replace(orng, Chr(32 & Chr(32)), Chr(32))
orng.Font.Bold = False
End If
orng.Collapse 0
Loop
End With
lbl_Exit:
Set orng = Nothing
Exit Sub
End Sub