Word включает несколько команд и ярлыков, позволяющих искать изображения в ваших документах. К сожалению, эти методы поиска хороши только для поиска встроенной графики. Если вы хотите найти плавающую графику, вам не повезло; поскольку они находятся на графическом слое, а не в фактическом документе, Word их практически игнорирует.

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

Sub FindFigs()

Dim varItem As Variable     Dim bExists As Boolean     Dim iShapeCount As Integer     Dim iJumpTo As Integer

' ensure variable exists     bExists = False     For Each varItem In ActiveDocument.Variables         If varItem.Name = "FigNum" Then             bExists = True             Exit For         End If     Next varItem

' initialize document variable if doesn't exist     If Not bExists Then         ActiveDocument.Variables.Add _           Name:="FigNum", Value:=0     End If

' figure to jump to     iJumpTo = ActiveDocument.Variables("FigNum") + 1

' get number of shapes     iShapeCount = ActiveDocument.Shapes.Count     If iJumpTo > iShapeCount Then iJumpTo = 1

If iShapeCount > 0 Then         'Display the shape         ActiveDocument.Shapes(iJumpTo).Anchor.Select         'Select the shape         ActiveDocument.Shapes(iJumpTo).Select     End If     'Set the variable for next time     ActiveDocument.Variables("FigNum") = iJumpTo End Sub

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

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1771) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Searching_for_Floating_Graphics [Поиск плавающей графики].