CAD 搜尋特殊字元一問

最近接手電氣系統清圖作業

苦惱於想搜尋有上引線(%%O)的字串

如下圖



搜尋鍵入%%O14是搜尋不到的...

要單獨搜尋14 或是3-14

但這樣資料量會太大 或是 會有漏項(如搜尋3-14 會 漏2-14/4-14之類)

是否有針對控制碼的字串精準搜尋的方式呢?

我也試過預設方式真的找不到
可能要尋求程式或其他方式!

上傳一個簡單 sample 我試試, 3Q

檔案已上傳如附件~

Option Explicit

Public tm As AcadModelSpace

Public Sub test()

On Error Resume Next

Dim text_obj As AcadText
Dim obj As AcadObject
Dim cir As AcadCircle

Set tm = ThisDrawing.ModelSpace

For Each obj In tm

   If TypeOf obj Is AcadText Then

      Set text_obj = obj
 
      If InStr(text_obj.TextString, "%%O") > 0 Then ' 如果字串裏面有引線
     
         Set cir = tm.AddCircle(text_obj.InsertionPoint, 100): cir.color = 3: cir.Update ' 就在字串插入點畫一個 100 的圓
     
      End If
   End If
Next obj

MsgBox "OK"

End Sub

沒接觸過VBA 來試試看

感謝協助