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

最新文章

1. 解决bootstrap模态框内输入框无法获取焦点
2. Emphasis on Filtering & Depth Map Occlusion Filling
3. 大新闻！HoloLens即将入华商用
4. 【行业交流】2016 TiD质量竞争力大会——移动互联网测试到质量的转变之路
5. CDOJ 1251 谕神的密码 贪心
6. varchar
7. winform模拟鼠标按键
8. 十五、C# 使用查询表达式的LINQ
9. Shell-WEB目录监控
10. RabbitMQ 消息队列
11. delphi 关于命名
12. 算法——A*——HDOJ：1813
13. 【PHP SDK for OpenStack/Rackspace APIs】身份验证
14. Python进阶内容（四）--- 迭代器(Iterator)与生成器(Generator)
15. 基于HA机制的Nginx配置实现
16. OO第一次博客
17. js实现进度条
18. C++：vector的用法详解
19. phpstorm10使用服务激活
20. kafka参数

热门文章

1. 马婕 2014MBA专硕考试报刊选读 5 朱令案悬而未决引起全社会的关注(转)
2. JSP中的一个树型结构
3. PHP（六）PHP和HTML混合的一种形式
4. awk基础02-变量-分隔符-数组
5. 深水划水队项目---七天冲刺之day4
6. Tomcat 系统架构与设计模式2
7. Mysql错误: ERROR 1205: Lock wait timeout exceeded try restarting transaction解决办法
8. 【转】不用软件，解压Win8/Win8.1的install.wim文件
9. c#设计模式之代理模式(Proxy Pattern)
10. 3-C#面向对象概念