У Томаса есть большой документ, в котором есть элементы, которые следует удалить перед публикацией документа для других. Части документа, которые необходимо удалить, были выбраны и отмечены комментарием о том, что его следует удалить перед публикацией. Томас хотел бы быстро найти и заменить весь текст, который был прокомментирован таким образом, и удалить его.

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

Это звучит как довольно сложная задача, поскольку она включает в себя много шагов. Вам нужно найти комментарий, вам нужно посмотреть на тело комментария, чтобы увидеть, соответствует ли он вашей желаемой формулировке, вам нужно удалить прокомментированный текст в теле документа, а затем вам нужно удалить сам комментарий. Это работа для макроса.

К счастью, все комментарии в документе доступны через группу комментариев с помощью VBA. Вы можете просмотреть каждый из комментариев и посмотреть, содержит ли он «триггерный текст», чтобы указать, что комментарий (и текст, к которому он относится) следует удалить. В следующем примере, если текст комментария содержит слова «удалить это» в любом месте комментария, то это служит триггером.

Sub DeleteCommentsBaseText()

Dim c As Comment For Each c In ActiveDocument.Comments     If LCase(Trim(c.Range.Text)) Like "delete this" Then         c.Scope.Delete         c.DeleteRecursively     End If Next c End Sub

Если триггерные слова находятся в комментарии, то свойство Scope удаляется; именно это свойство указывает текст документа, который был выбран при создании комментария. Затем метод DeleteRecursively используется для удаления фактического комментария. (Метод DeleteRecursively был добавлен в Word 2013. В более ранних версиях вместо него следует использовать метод Delete.)

Помните, что когда вы запускаете макрос, он выполняется очень быстро, и изменения нельзя отменить. Если вместо этого вам нужно немного больше контроля над тем, какие комментарии и текст удаляются, вы можете переосмыслить свой рабочий процесс. Если вы используете «Отслеживать изменения», любой, кто размещает комментарий, также может пометить текст документа для удаления. Затем, перед окончательной доработкой документа, вы можете отключить отслеживание изменений и пройти через каждое изменение, чтобы определить, следует ли его принять или нет. Это не так быстро, как вышеупомянутый макрос, но дает больший контроль.

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (2490) относится к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365.