Sub ScratchMacro()
  'A basic Word macro coded by Greg Maxey
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "USD"
    Do While .Execute
      If oRng.HighlightColorIndex = wdYellow Then
        oRng.Text = "U.S. Dollars"
      End If
      oRng.Collapse wdCollapseEnd
    Loop
  End With
lbl_Exit:
  Exit Sub
End Sub