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

Однако вы можете использовать макрос для просмотра документа и останавливать его, когда он находит текстовое поле. Следующий макрос останавливается на каждом найденном текстовом поле и спрашивает пользователя, нужно ли это текстовое поле.

Sub SearchTextBox()

Dim shp As Shape     Dim sTemp As String     Dim iAnswer As Integer

For Each shp In ActiveDocument.Shapes         If shp.Type = msoTextBox Then             shp.Select             Selection.ShapeRange.TextFrame.TextRange.Select             sTemp = Selection.Text             sTemp = Left(sTemp,20)

iAnswer = MsgBox("Box contains text beginning with:" & vbCrLf _               & sTemp & vbCrLf & "Stop here?", vbYesNo, "Located Text Box")

If iAnswer = vbYes Then Exit For         End If     Next End Sub

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (12249) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Finding_Text_Boxes [Поиск текстовых полей].