扩展VC6的编辑能力－宏

一直感觉vc6不好用，没有像vi,或者emacs命令式的文本编辑能力。写代码的时候，键盘－鼠标平凡的切换，太费力了。如果VC能有命令编辑能力该有多好啊！可惜某在网上找不到这方面的资料，唯一感到欣慰的是，VCIDE有addin 和宏的功能，对这些功能绑定快捷键也是比较方便的。

下面是我在codeguru和codeproject上挑选的一些宏。

说明：安装宏和绑定快捷键步骤：
1. 将代码保存为.dsm格式，拷贝到
   你的安装目录/Microsoft Visual Studio/Common/MSDev98/Macros目录下。
2. 打开"Tools|Customize"对话框
3. 选择 "Add-ins and Macro Files" 选项卡,
  勾选相应的宏选项"
4. 然后 "Keyboard" ，在category选项中中选择Macros，可以看到一些宏功能，选择。在press new shortcut 指定  你想要的快捷键就ok了。vc6中可以指定两级的快捷键，如:指定为Ctrl+M,O （先按Ctrl+M,在按o）,感觉前面的Ctrl+M 像一个宏开关.

对于喜欢按按钮的家伙，这可以指定宏为一个按钮。步骤：
1。如果喜欢可以添加一个工具栏，Tools|Customize，选择Toolbar ,然后点new.
2。选择Command选项卡，在category里选择macros，右边就可以看到宏功能，直接拖动到工具栏。ok.

第一个宏，模拟双击选中单词。

Sub doubleclick()
'DESCRIPTION: For simulated double clicking

'Begin Recording
    ActiveDocument.Selection.WordLeft
    ActiveDocument.Selection.WordRight dsExtend
'End Recording
End Sub

简单吧

第二个宏，注释和解除注释块

Sub CommentBlock()
  With ActiveDocument.Selection 
 '对于当前窗口打开的文档中选中的文本
     .ReplaceText "%", "//", dsMatchRegExpB
 '在开始位置增加 // 注释
  End With
End Sub

Sub UncommentBlock()
 With ActiveDocument.Selection
    .ReplaceText "%//", "", dsMatchRegExpB
    '同样的，去掉在选择文本中开头找到的注释符号
 End With
End Sub

Sub CommentLine()
   With ActiveDocument.Selection
     n = .SelectLine
     .MoveTo n,0
   End With
   ActiveDocument.Selection = "//"
End Sub

Sub UnCommentLine()
End Sub

第三个，以资源脚本形式打开资源文件;

Sub OpenRCFile()
'DESCRIPTION: Opens the primary .rc file as text
'NOTE: If the resource file is already open within the
'      resource editor, you may be asked if you wish to
'      close it.

    ' Simply strip the project filename of its extension...
    ' ...and replace it with "rc"
    If Projects.Count = 0 Then
        MsgBox "Load a project first."
        Exit Sub
    End If
    PathName = ActiveProject.fullname
    PathName = Left(PathName, Len(PathName)-3)
    PathName = PathName + "rc"
    Documents.Open PathName, "Text"
End Sub

算了，还有的就不写了，其他的还有增强光标移动，添加xp风格，代码模板，文件注释，等等。感觉挺不错的。自己写或者上codeproject上找吧。

我一直没有找到VCIDE提供给的VBA的对象，属性和方法，不然可以自己安装需求写宏，把VC做的像emacs一样强的功能。遗憾！