Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "Answer [A-D]{1}"
    .MatchWildcards = True
    While .Execute
      With oRng
        .MoveStart wdCharacter, 7
        .InsertBefore "("
        .InsertAfter ")"
        .Collapse wdCollapseEnd
      End With
    Wend
  End With
End Sub