扩展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一样强的功能。遗憾！