ckjd80 发表于 2016-4-12 12:24:33

文本框中字符串查找

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

spanker 发表于 2016-4-12 14:39:23

有没有高手呀

jinshuseze 发表于 2016-4-12 15:10:09

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 发表于 2016-4-12 15:12:18

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

user_jvzbf 发表于 2016-4-12 16:10:53

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

user_qaoolbzd 发表于 2016-4-12 16:42:46

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

vklkwo4i0 发表于 2016-4-12 17:04:12

怎么看不了了！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！抗议设置权限
{:5_195:} {:5_195:} {:5_195:} {:5_195:}
页: [1]
查看完整版本: 文本框中字符串查找