zjbook 发表于 2005-10-5 16:49:00

[求助]VBA如何在本图遍寻找字符串且代替

<P>请给个例子，我是新手。谢谢</P>

mikewolf2k 发表于 2005-10-5 17:20:00

我在源码共享里发了一个文字多重替换程序，你可以找找看

zjbook 发表于 2005-10-6 07:43:00

我的程序，为何不好用

本帖最后由 作者 于 2005-10-6 8:09:15 编辑 <br /><br /> <P>On Error Resume Next<BR>&nbsp;&nbsp;&nbsp; Dim n As Integer<BR>&nbsp;&nbsp;&nbsp; Dim textold As String, textnew As String<BR>&nbsp;&nbsp;&nbsp; Dim Enttype As Variant<BR>&nbsp;&nbsp;&nbsp; Dim Endata As Variant<BR>&nbsp;&nbsp;&nbsp; textold = "MetalclipsLONG"<BR>&nbsp;&nbsp;&nbsp; textnew = "sss"<BR>&nbsp;&nbsp;&nbsp; On Error Resume Next<BR>&nbsp;&nbsp;&nbsp; For n = 0 To ThisDrawing.ModelSpace.Count - 1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'If ThisDrawing.ModelSpace(n).EntityType = acText Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.ModelSpace(n).GetXData "", 0, Enttype<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Enttype = "text" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.ModelSpace(n).GetXData "", 1, Endata<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Endata = textold Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.ModelSpace(n).SetXData 1, textnew<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp; Next<BR>&nbsp;&nbsp;&nbsp; On Error Resume Next</P>

jsyang_ren 发表于 2005-10-7 08:28:00

<P>如果要替换的文字在一个字符串中就不能用了，我建议你遍历所有字符，可以解决</P>
页: [1]
查看完整版本: [求助]VBA如何在本图遍寻找字符串且代替