vs2010自动补齐双引号

1、让vs2010自动完成双引号 广大码奴们，敲码时遇到需要输入双引号，方括号，圆括号是不是很烦躁，如果有一种只需要输入一个左边括号，就可以自动补齐另一边括号，并且可以自动将光标定位到括号中间，输入完毕后又可以方便的跳出括号的工具，那效率会不会高很多。 百度了很久，都没有什么好的解决方案，不是装VA就是resharper插件，但是也只是可以自动补齐和定位而已，想要跳出仍然需要利用键盘上的右方向键，手部移动幅度很大有木有，完全打乱了敲码的节奏，破坏了忧郁的气质，好吧，我之前一直都用鼠标来的。 找不到现成的方法，只能自己动手丰衣足食了。突然发现 virtual studio是支持宏操作的，于是楼主灵光

2、一闪，想到了利用宏来自动实现上述功能的方法，不多说，直接上图。 1.工具-宏-记录TemporaryMacro2. 接下来就不用我多说了，和office中的一样，录制宏，比如你可以在文本编辑窗口输入“ （ ”，“ ） ”，“ ”（方向键），然后停止录制宏。这样我们就有了可以自动完成双引号并定位到中间位置的快捷操作，依次可以得到自动完成圆括号，方括号等等的宏。这是我自己录制的7个宏。3. 接下来我们还要把这些宏和具体的快捷键绑定起来，这样我们只要在键盘上敲打快捷键就可以自动完成在“显示命令包含”中输入“宏”，会自动显示你刚刚录制的所有宏，选择一个，设置快捷键，注意设置完要点“分配”这样一个宏就设

3、置完了，接下来把你录制的所有宏都设置一个你认为方便你操作的快捷键即可。4. 接下来和大家分享一下我的设计方案。我选取了H,J,K,L,N,M,Alt,空格这8个元素，她们在键盘上的位置都在右手可以控制的范围内，非常灵活便捷，不想录制的朋友也可以直接粘贴我设置好的宏代码。Alt+H : 删除，即backspaceSub 删除() DTE.ActiveDocument.Selection.DeleteLeft()End SubAlt+J：输入双引号并定位到中间 Sub 打出双引号() DTE.ActiveDocument.Selection.Text = DTE.ActiveDocument.Se

4、lection.CharLeft() End SubAlt+K：输入圆括号并定位到中间 Sub 打出括号() DTE.ActiveDocument.Selection.Text = () DTE.ActiveDocument.Selection.CharLeft() End SubAlt+L：输入方括号并定位到中间Sub 打出方括号() DTE.ActiveDocument.Selection.Text = DTE.ActiveDocument.Selection.CharLeft()End SubAlt+N：撤销 Sub 撤销() DTE.ExecuteCommand(Edit.Undo)

5、End SubAlt+M：反撤销 Sub 反撤销() DTE.ExecuteCommand(Edit.Redo) End SubAlt+空格：自动跳出括号Sub 跳出() DTE.ActiveDocument.Selection.CharRight()End SubPs:1. 所有的vs编辑器都支持宏，所以这个方法可以用在vs各个版本上，你也可以依此在office上操作2. 事实上由于升级的微软补丁冲突，很多vs的宏功能已经被破坏，是无法运行任何宏的。基本都是在安装KB2898869、KB2901126、KB2898857等更新后宏停止运行。查看了一下提供的解决方案，修改宏配置文件，VS201

6、0的配置文件路径为：C:Program Files (x86)Common Filesmicrosoft sharedVSA9.0VsaEnv目录下的vsmsvr10.exe.config，在RunTime配置节添加配置项：即可32bit和64bit的windows，以及vs不同版本的路径和配置文件如下在之前7个宏的基础上再新加8个宏，一共15个，基本涵盖了所有常用的操作。alt+e：光标向上alt+d：光标向下alt+s：光标向左alt+f：激活文件窗口，有时由于鼠标操作或别的问题代码页面会失去焦点，这个快捷键可以让光标重新出现在代码文件上alt+i：复制代码段，指定行号，当前光标位置和指定

7、行之间代码全部选定alt+g：指定行号，光标自动跳到改行alt+r：将选定代码段注释alt+t：将注释代码段解开15个快捷键全部由alt带动， s,e,d,f,r,t,g,h,j,k,l,n,m,i,空格 充分考虑手指的摆动幅度，几乎可以保证最大限度的连续操作。并不想将vs真的改造成vim，简单，甚好。另外vs的宏模块全部可以导出，快捷键的绑定配置文件也可以导出，这样，把这两个文件上传到你的微云或百度云盘，就可以保证你的随时随地使用了。15Macros.vb( 宏模块文件，可导入）-Option Strict OffOption Explicit OffImports SystemImport

8、s EnvDTEImports EnvDTE80Imports EnvDTE90Imports EnvDTE90aImports EnvDTE100Imports System.DiagnosticsPublic Module RecordingModule Sub 打出括号() DTE.ActiveDocument.Selection.Text = () DTE.ActiveDocument.Selection.CharLeft() End Sub Sub 向右() DTE.ActiveDocument.Selection.CharRight() End Sub Sub 打出方括号() DT

9、E.ActiveDocument.Selection.Text = DTE.ActiveDocument.Selection.CharLeft() End Sub Sub 打出双引号() DTE.ActiveDocument.Selection.Text = DTE.ActiveDocument.Selection.CharLeft() End Sub Sub 删除() DTE.ActiveDocument.Selection.DeleteLeft() End Sub Sub 撤销() DTE.ExecuteCommand(Edit.Undo) End Sub Sub 反撤销() DTE.Ex

10、ecuteCommand(Edit.Redo) End Sub Sub 向左() DTE.ActiveDocument.Selection.CharLeft() End Sub Sub 向上() DTE.ActiveDocument.Selection.LineUp() End Sub Sub 向下() DTE.ActiveDocument.Selection.LineDown() End Sub Sub 激活() ActiveDocument.Activate() End Sub Sub 转行() Dim command As Integer command = InputBox(Enter

11、 a number: ) DTE.ActiveDocument.Selection.GotoLine(command) End Sub Sub 复制() Dim textSelection As EnvDTE.TextSelection Dim textSelectionPointSaved As TextPoint Dim command As Integer textSelection = DTE.ActiveWindow.Selection textSelectionPointSaved = textSelection.ActivePoint.CreateEditPoint() comm

12、and = InputBox(Enter a number: ) selection = ActiveDocument.Selection d = selection.TopPoint.Line If (d - command) 0) Then For arrIdx = 1 To (d - command) selection.LineUp(True) Next textSelection.StartOfLine() ElseIf (d - command) 0) Then For arrIdx = 1 To (command - d) selection.LineDown(True) Next textSelection.EndOfLine() Else textSelection.StartOfLine() textSelectionPointSaved = textSelection.ActivePoint.CreateEditPoint() textSelection.EndOfLine() End I