Show Hidden Text

S

StevenM

If your hidden text has a style you could try something like:

Sub ToggleHiddenText()
Dim sStyle As String
sStyle = "Normal"
If ActiveDocument.Styles(sStyle).Font.Hidden = True Then
ActiveDocument.Styles(sStyle).Font.Hidden = False
Else
ActiveDocument.Styles(sStyle).Font.Hidden = True
End If
End Sub
 
G

Graham Mayor

Or even simpler


Sub ToggleHidden()
With ActiveWindow.View
.ShowHiddenText = Not .ShowHiddenText
End With
End Sub

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Blank pages 0
Finding Hidden text in word VBA 2
Create form with checkbox les that expand and collapse sections of the form? 0
How to make scroll bar permanently visible, Word 365 0
Maintaining visible Window portion in Word 2007 0
creating new template - change default heading style 7
WordPad blocked content 2
hidden rows, column copy-paste 0

Top