文本框中字符串查找

ckjd80

比如在文本框中贴了一段程序代码,现在要选中所有的注释语句(即//后的或者是/* 到*/之间的所有文字).用VBA该怎么选呀?

spanker

有没有高手呀

jinshuseze

PPT的查找替换是不支持通配符的，所以只能用别的办法来变通。下面是我想的一个笨办法：
Sub 条件查找替换()
Dim pos1 As Long, pos2 As Long, myTxtRng As TextRange, shpTxtRng As TextRange
Set shpTxtRng = ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange
pos1 = shpTxtRng.Find("/").Start
pos2 = shpTxtRng.Find("/", pos1).Start
Set myTxtRng = shpTxtRng.Characters(pos1, pos2 - pos1 + 1)
myTxtRng.Select
End Sub
应该还有别的办法。抛砖引玉，大家不妨都来想想办法。

user_oixrz

谢谢楼上的仁兄,再求教一个问题,要想对一个允许自动换行的文本框中//以后的所有文字怎么选定?

user_jvzbf

换一个问问,怎样获得用户选定的文本框中的一段文本

user_qaoolbzd

还有新问题,如何在查找过程中忽略全角/半角?怎么找不到matchByte属性??
比如字符"和字符＂怎么查找?

vklkwo4i0

怎么看不了了！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！抗议设置权限