如何用VBA编写查找替换

china-hz · 发表于 2002-10-26 13:55:00

在CAD中有_find命令，能实现查找替换，请问高手，如何用VBA程序实现这一功能。如将图形中的文字2全部替换为12。谢谢。

efan2000 · 发表于 2002-10-26 14:23:00

函数如下：
OldText-要查找的文字
NewText-替换文字
Sub ReplaceText(ByVal OldText As String, ByVal NewText As String)
Dim EntObj As AcadEntity

On Error GoTo ErrTrap
For Each EntObj In ThisDrawing.ModelSpace
      If StrComp(EntObj.ObjectName, "AcDbText", vbTextCompare) = 0 _
         Or StrComp(EntObj.ObjectName, "AcDbMText", vbTextCompare) = 0 Then
            If StrComp(EntObj.TextString, OldText, vbTextCompare) = 0 Then
                  EntObj.TextString = NewText
            End If
      End If
Next
Set EntObj = Nothing
Exit Sub

ErrTrap:
If Not (EntObj Is Nothing) Then Set EntObj = Nothing
On Error GoTo 0
End Sub
调用方法如下：
Sub Main()
ReplaceText "2", "12"
End Sub