Protecting Hidden Text

Hidden text is a great help to those who want to "hide" certain parts of a document, either from viewing or from printing. However, it is not very good for hiding information that you don't want others to see in a document you are distributing. They (the ones to whom you are distributing the document) can display or print hidden text just as easily as you can.

There is no built-in feature of Word that allows you to "lock" hidden text so it can't be viewed. The best solution, then, is to simply remove all your hidden text as a last step before distributing your document. You can do this by using the Search and Replace features of Word, as follows:

1. Press Ctrl+H. Word displays the Replace tab of the Find and Replace dialog box.
2. Click on the More button, if it is available. (Click here to see a related figure.)
3. Position the insertion point in Find What box and make sure it is empty.
4. Click on the Format button and choose Font. Word displays the Find Font dialog box. (Click here to see a related figure.)
5. Click on the Hidden attribute check box until it has a solid black check mark in it. (You may have to click it more than once.)
6. Click on OK. The Find Font dialog box disappears and the words "Format: Hidden" should appear just below the Find What box.
7. Make sure the Replace With box is empty.
8. Click on Replace All.

If you find yourself stripping out hidden text quite a bit, you can automate the process by recording a macro that performs the above steps, or you can use the following macro:

Sub StripAllHidden()
    Dim rngsStories As Word.StoryRanges
    Dim rngStory As Word.Range

    On Error GoTo NoDocOpen
        Set rngsStories = ActiveDocument.StoryRanges
    On Error GoTo 0

    'Need to loop through all 'stories' to
    'remove hidden text from footnotes, headers,
    'etc. as well as body text.

    For Each rngStory In rngsStories
        With rngStory.Find
            .ClearFormatting
            .Font.Hidden = True
            Call .Execute(vbNullString, False, False, False, _
                False, False, True, wdFindContinue, True, _
                ReplaceWith:=vbNullString, _
                    Replace:=wdReplaceAll)
        End With
    Next
    Exit Sub
NoDocOpen:
End Sub

The other advantage of using this macro is that it will also look for hidden text in places where the regular Search and Replace function won't: footnotes, endnotes, headers, footers, etc.