Sub Hide_Between_Brackets()
'
' Rob Laumen
' To hide text between (), [], {}, or <>
' Text can be reverted using macro
' unhide_between_brackets()
'
Dim a$
Dim b$
a$ = WordBasic.[InputBox$]("Start character(s):")
b$ = WordBasic.[InputBox$]("Stop character(s):")
WordBasic.StartOfDocument
WordBasic.EditFind Find:=a$
While WordBasic.EditFindFound()
   WordBasic.ExtendSelection
   WordBasic.EditFind Find:=b$
   WordBasic.Cancel
   WordBasic.FormatFont Hidden:=1
   WordBasic.CharRight
   WordBasic.EditFind Find:=a$
Wend
End Sub

Sub Unhide_Between_Brackets()
'
' Rob Laumen
' To show text between (), [], {}, or <>
' that was previously hidden using
' macro Hide_between_brackets().
'
Dim a$
Dim b$
a$ = WordBasic.[InputBox$]("Start character(s):")
b$ = WordBasic.[InputBox$]("Stop character(s):")
WordBasic.StartOfDocument
WordBasic.EditFind Find:=a$
While WordBasic.EditFindFound()
  WordBasic.ExtendSelection
  WordBasic.EditFind Find:=b$
  WordBasic.Cancel
  WordBasic.FormatFont Hidden:=0
  WordBasic.CharRight
  WordBasic.EditFind Find:=a$
Wend
End Sub