Article ID: 198843
Article Last Modified on 10/11/2006
Sub ToggleTextBoundaries()
n = ActiveWindow.View.ShowTextBoundaries
ActiveWindow.View.ShowTextBoundaries = _
Abs(ActiveWindow.View.ShowTextBoundaries = -n)
End Sub
Sub ToggleAnyTrueFalseItem
If ActiveWindow.View.ShowTextBoundaries = True Then
ActiveWindow.View.ShowTextBoundaries = False
Else
ActiveWindow.View.ShowTextBoundaries = True
End If
End Sub
Additional query words: vba toggle
Keywords: kbdtacode kbhowto kbinfo kbmacroexample kbprogramming KB198843