Sub Hide_source_text()

Dim dlg As Object: Set dlg = WordBasic.DialogRecord.ToolsOptionsView(False)
WordBasic.CurValues.ToolsOptionsView dlg
If dlg.Hidden = 0 Then
      dlg.Hidden = 1
      Verborgen = 1
      WordBasic.ToolsOptionsView dlg
Else
      Verborgen = 0
End If

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Hidden = True
With Selection.Find
      .Text = "\{0\>*\<\}"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindStop
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = True
      .MatchSoundsLike = False
      .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Hidden = True
With Selection.Find
      .Text = "{0>"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindStop
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
      .Text = "<}"
      .Replacement.Text = "^&"
      .Forward = True
      .Wrap = wdFindStop
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll


If Verborgen = 1 Then
      dlg.Hidden = 0
      WordBasic.ToolsOptionsView dlg
End If

End Sub