Анита переформатирует длинный документ (более 300 страниц), преобразованный из PDF в Word. У нее большой опыт работы с Word и стилями, а также с помощью функции «Найти и заменить» для исправления плохо отформатированных документов. В этом случае есть проблема, которую она не может понять. Исходный документ имел горизонтальные линии в верхнем и нижнем колонтитулах, которые были преобразованы в графические линии в документе Word. Она хочет удалить все эти графические линии, но поиск по ^ g их не находит. Анита задается вопросом, есть ли способ автоматизировать удаление этих графических линий, поскольку она предпочла бы не щелкать и нажимать Del 600+ раз.

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

Sub FooterHeaderGraphicFind()

Dim rStory As Range     Dim i As Integer

For Each rStory In ActiveDocument.StoryRanges         If rStory.StoryType = wdPrimaryFooterStory Or _           rStory.StoryType = wdPrimaryHeaderStory Then             For i = rStory.Shapes.Count To 1 Step -1                 rStory.Shapes(i).Delete             Next i         End If     Next rStory End Sub

Обратите внимание, что он удаляет все фигуры в верхнем или нижнем колонтитуле, а не только строки. (Невозможно отличить содержание одной графической фигуры от другой.)

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

  1. Откройте документ Word, преобразованный из файла PDF.

  2. Откройте новый документ. (Теперь у вас должны быть открыты два документа одновременно.)

  3. В преобразованном документе нажмите Ctrl + A. Это выбирает все в документе.

  4. Нажмите Ctrl + C. Это копирует все в буфер обмена.

  5. Переключитесь на новый документ.

  6. Убедитесь, что на ленте отображается вкладка «Главная».

  7. Щелкните стрелку вниз под инструментом «Вставить». Word отображает множество вариантов вставки.

  8. Щелкните инструмент Сохранить только текст. (Он выглядит как буфер обмена с буквой A в правом нижнем углу.) Word вставляет неформатированный текст из буфера обмена в целевой документ.

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

В результате получается «чистый» документ, который вы можете форматировать как хотите.

Этот подход особенно прост, если вы реализовали и можете применять стили по всему документу.

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

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

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

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

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