جستجو برای گرافیک شناور

Question

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

این ماکرو از یک متغیر سند برای پیگیری آخرین بار انتخاب گرافیک استفاده می کند. اگر نیاز به جستجوی کمی گرافیک های شناور دارید، به این معنی است که می توانید این ماکرو را به نوار ابزار دسترسی سریع یا یک کلید میانبر اختصاص دهید و به نوبه خود هر گرافیک شناور را در سند خود جستجو کنید.