FindLine把多行查找改为多行替换 

Sub FindLine()
        Dim textSelection As TextSelection

        textSelection = DTE.ActiveDocument.Selection
        textSelection.CharLeft(True)
        DTE.ExecuteCommand("Edit.replace")
        DTE.Find.FindWhat = textSelection.Text
        DTE.Find.ReplaceWith = textSelection.Text
    End Sub

成都-零  15:38:47
因为文本框有记忆，所以你find一次，再find一次，把替换那儿调出刚才的内容就行了．
广州-小牛  15:42:50
哈哈 人才啊  这个办法好
就可以了
(@5ID$AXC)Y[XIH~B})Y6_Q
加上一个  ReplaceMultiline

posted @ 2013-07-30 15:38  寒殇  阅读(368)  评论(0)  编辑  收藏  举报