Скрытый текст — отличный помощник для тех, кто хочет «скрыть» определенные части документа от просмотра или печати. Однако это не очень хорошо для сокрытия информации, которую вы не хотите, чтобы другие видели в документе, который вы распространяете. Они (те, кому вы передаете документ) могут отображать или печатать скрытый текст так же легко, как и вы.

В Word нет встроенной функции, позволяющей «заблокировать» скрытый текст, чтобы его нельзя было просмотреть. Лучшее решение — просто удалить весь скрытый текст в качестве последнего шага перед распространением документа.

Вы можете сделать это, используя функции поиска и замены Word, как показано ниже:

  1. Нажмите Ctrl + H. Word отображает вкладку «Заменить» диалогового окна «Найти и заменить».

  2. Нажмите кнопку «Еще», если она доступна. (См. Рис. 1.)

  3. Поместите курсор в поле «Найти» и убедитесь, что оно пусто.

  4. Нажмите кнопку «Формат» и выберите «Шрифт». Word отображает диалоговое окно «Найти шрифт». (См. Рис. 2.)

  5. Установите флажок Скрытый атрибут, пока в нем не появится сплошная черная галочка. (Возможно, вам придется щелкнуть по нему несколько раз.)

  6. Щелкните ОК. Диалоговое окно «Найти шрифт» исчезнет, ​​и сразу под полем «Найти» должны появиться слова «Формат: скрытый».

  7. Убедитесь, что поле «Заменить на» пусто.

  8. Нажмите «Заменить все».

Если вы обнаружите, что немного удаляете скрытый текст, вы можете автоматизировать процесс, записав макрос, который выполняет вышеуказанные шаги, или вы можете использовать следующий макрос:

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

Другое преимущество использования этого макроса заключается в том, что он также будет искать скрытый текст в тех местах, где обычная функция поиска и замены не работает: сноски, концевые сноски, верхние и нижние колонтитулы и т. Д.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (625) относится к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

ссылка: / wordribbon-Protecting_Hidden_Text [Защита скрытого текста].