Поиск текста в файлах чертежей Инвентора

ThisApplication.ActiveSheet.DrawingNotes.GeneralNotes

Sub Findtext()
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim Message, Title, Default, MyValue
Message = "Enter a text string"    ' Set prompt.
Title = "Search text in drawing"    ' Set title.
Default = "TITLE"    ' Set default.
' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)
If oDrawDoc.Sheets.Count > 0 Then
    Dim sh As Sheet
    For Each sh In oDrawDoc.Sheets
        'поиск среди текстовых полей на листе
        If sh.DrawingNotes.GeneralNotes.Count > 0 Then
            Dim gn As GeneralNote
            For Each gn In sh.DrawingNotes.GeneralNotes
                If InStr(gn.Text, MyValue) > 0 Then
                    MsgBox gn.Text
                End If
            Next
        End If
        'поиск среди текстовых полей в спецификациях
        If sh.PartsLists.Count > 0 Then
            Dim oPartList As PartsList
            For Each oPartList In sh.PartsLists
                Dim i As Long
                For i = 1 To oPartList.PartsListRows.Count
                    ' Get the current row.
                    Dim oRow As PartsListRow
                    Set oRow = oPartList.PartsListRows.Item(i)
                    ' Iterate through each column in the row.
                    Dim j As Long
                    For j = 1 To oPartList.PartsListColumns.Count
                        ' Get the current cell.
                        Dim oCell As PartsListCell
                        Set oCell = oRow.Item(j)
                        If InStr(oCell.Value, MyValue) > 0 Then
                            MsgBox oCell.Value
                        End If
                    Next
                Next
            Next
        End If
        'поиск среди текстовых полей в эскизах
        If sh.Sketches.Count > 0 Then
            Dim ds As DrawingSketch
            For Each ds In sh.Sketches
                If ds.TextBoxes.Count > 0 Then
                    Dim tb As TextBox
                    For Each tb In ds.TextBoxes
                        If InStr(tb.Text, MyValue) > 0 Then
                            MsgBox tb.Text
                        End If
                    Next
                End If
            Next
        End If
    Next
End If
End Sub