У цій статті ми раді показати вам 3 ефективні способи перегляду за текстовим полем у вашому документі Word.
У програмі Word є команда «Вибрати огляд об’єкта», що дозволяє переглядати лише вибрані вами об’єкти. Наприклад, ви можете вибрати перегляд за таблицею або сторінкою. На жаль, вбудованої функції перегляду за текстовим полем немає. Тому ми надамо вам 3 способи зробити це.
Спосіб 1: Використовуйте клавішу “Tab”
- Спочатку натисніть «Ctrl+Home», щоб перейти на початок документа.
- Потім знайдіть і клацніть на першому текстовому полі.
- Далі натисніть “Tab”, щоб перейти до наступного текстового поля.
До речі, цей спосіб також знайде вам форми та зображення в документі.
Спосіб 2: Запустіть макрос, щоб перейти від одного текстового поля до іншого
- Перш за все, натисніть «Alt+F11», щоб запустити редактор VBA у Word.
- Далі натисніть “Звичайний”.
- Потім натисніть «Вставити» та виберіть «Модуль» у спадному меню.
- Відкрийте новий модуль подвійним клацанням.
- Тепер у область кодування вставте такі коди:
Sub BrowseByTextBox()
Dim objShape As Shape
Dim strBoxText As String
Dim strButtonValue As String
Dim objDoc As Document
Set objDoc = ActiveDocument
For Each objShape In objDoc.Shapes
If objShape.Type = msoTextBox Then
objShape.Select
Selection.ShapeRange.TextFrame.TextRange.Select
strBoxText = objShape.TextFrame.TextRange.Text
strButtonValue = MsgBox("This text box contains: " & vbNewLine _
& strBoxText & vbNewLine & "Is this your desired text box?" _
& vbNewLine, vbYesNo, "Desired Text Box")
If strButtonValue = vbYes Then
Exit Sub
End If
End If
Next objShape
End Sub
- Натисніть кнопку «Виконати» на рядку меню або натисніть «F5», щоб виконати коди.
Після запуску макросу з'явиться вікно повідомлення, як показано нижче:
На полі відображається вміст поточного вибраного текстового поля. Ви можете натиснути “Так”, щоб зупинити його, якщо це потрібне текстове поле. В іншому випадку натисніть «Ні», щоб перейти до наступного текстового поля.
Спосіб 3: Знайдіть конкретне текстове поле
Якщо ви встановили заголовок для текстового поля в документі, ви можете використовувати його в поєднанні з макросом, що подається, щоб негайно знайти його.
- Перш за все, зверніться до кроків у способі 2, щоб встановити та запустити макрос.
- Тоді не забудьте замінити макрос цим:
Sub FindASpecificTextBox()
Dim objShape As Shape
Dim strBoxTitle As String
Dim objInlineShape As InlineShape
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
strBoxTitle = InputBox("Enter the title of the text box to be found here: ")
For Each objShape In objDoc.Shapes
If objShape.Type = msoTextBox Then
objShape.Select
Selection.ShapeRange.TextFrame.TextRange.Select
If objShape.Title = strBoxTitle Then
Exit Sub
End If
End If
Next objShape
For Each objInlineShape In objDoc.InlineShapes
If objInlineShape.Type = msoTextBox Then
objInlineShape.Select
Selection.ShapeRange.TextFrame.TextRange.Select
If objInlineShape.Title = strBoxTitle Then
Exit Sub
End If
End If
Next objInlineShape
Application.ScreenUpdating = True
End Sub
- Далі у полі введення, що з’явиться, введіть назву текстового поля, яке потрібно знайти, і натисніть «OK», щоб продовжити. Ви побачите потрібне текстове поле у списку.
Справитися з втратою даних
З огляду на те, що Word є одним з найбільш використовуваних програм, необхідно знати деякі хитрощі, коли Word перестає відповідати. Для важливого корумпований док, ваш єдиний вибір - відновити його. І для цього вам потрібно ретельно вибрати сторонній інструмент, якому можна довіряти.
Вступ автора:
Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі корумпований xlsx та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com



