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