Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "[\[\(]*[\]\)]"
    .MatchWildcards = True
    .Wrap = wdFindStop
    While .Execute
      oRng.Characters.First.InsertBefore Chr(Asc(oRng.Characters.First))
      oRng.Characters.Last.InsertAfter Chr(Asc(oRng.Characters.Last))
      oRng.Collapse wdCollapseEnd
    Wend
  End With
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "(("
    .Replacement.Text = "[["
    .Execute Replace:=wdReplaceAll
  End With
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "))"
    .Replacement.Text = "]]"
    .Execute Replace:=wdReplaceAll
  End With
lbl_Exit:
  Exit Sub
End Sub