یافتن جعبه های متن

Question

Word دارای قابلیت جستجو و جایگزینی قدرتمندی است که به شما امکان می دهد تقریباً هر چیزی را در سند خود جستجو کنید. Word حتی شامل کدهایی است که می توانید از آنها برای جستجوی موارد خاص استفاده کنید. (دکمه ویژه را در گفتگوی Find and Replace کلیک کنید تا ببینید چه کدهایی در دسترس هستند.) با این حال، یکی از مواردی که نمی توانید آن را جستجو کنید، کادرهای متنی است. هیچ کد خاصی وجود ندارد که به شما امکان می دهد جعبه های متن را پیدا کنید و نمی توانید آنها را با استفاده از مرورگر شی جستجو کنید.

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

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