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
哈哈 人才啊  这个办法好
就可以了

加上一个  ReplaceMultiline