如何编写CATIA宏来搜索图纸中的一组文本并替换它们

Sub SearchAndReplace()
    Dim Drawing As DrawingDocument
    Set Drawing = CATIA.ActiveDocument
    
    Dim Sheets As Sheets
    Set Sheets = Drawing.Sheets
    
    Dim Sheet As DrawingSheet
    For Each Sheet In Sheets
        Dim Views As Views
        Set Views = Sheet.Views
        
        Dim View As DrawingView
        For Each View In Views
            Dim DrawingTexts As DrawingTexts
            Set DrawingTexts = View.DrawingTexts
            
            Dim DrawingText As DrawingText
            For Each DrawingText In DrawingTexts
                If InStr(DrawingText.Text, "要搜索的文本") > 0 Then
                    DrawingText.Text = Replace(DrawingText.Text, "要搜索的文本", "要替换的文本")
                End If
            Next DrawingText
        Next View
    Next Sheet
End Sub