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

Если ваши текстовые поля встроены в текст, вы можете использовать «Найти и заменить», чтобы найти и заменить их. Все, что вам нужно сделать, это открыть вкладку «Заменить» в диалоговом окне «Найти и заменить» и в поле «Найти» ввести ^ g. Это код для поиска графики, но Word обрабатывает текстовые поля как графические, если они встроены.

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

Sub ReplaceTextBox()

Dim shp As Shape

For Each shp In ActiveDocument.Shapes         If shp.Type = msoTextBox Then             shp.Select             shp.Delete             Selection.PasteAndFormat (wdPasteDefault)

End If     Next End Sub

Чтобы использовать макрос, выберите изображение, которое хотите использовать для замены, а затем нажмите Ctrl + C. Это поместит изображение в буфер обмена. Когда вы запускаете макрос, именно этот рисунок — тот, что находится в буфере обмена, — вставляется в документ вместо каждого текстового поля.

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

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

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

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

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

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