我一直在使用Wael发布的宏:Visual Studio的重复行命令，但它一周前就停止工作了，我猜是因为Windows更新。 我是正确的，在2014年2月，宏在VS2010(和2008显然)已经被禁用。

要解决这个问题，您要么必须卸载安全更新，要么向配置文件中添加一行代码，如下所示。

在64位的Windows机器上，这些文件的默认路径是:

C:\Program Files (x86)\Common Files\Microsoft Shared\VSA\9.0\VsaEnv\vsaenv10.exe.config C:\Program Files (x86)\Microsoft Visual Studio 10.0\Common7\IDE\devenv.exe.config .．. < >配置 运行时> < < AllowDComReflection启用= " true " / > .．.

你必须运行你的文本编辑器与管理权限，否则它不会工作!希望这能帮助那些突然有宏功能的人。

http://www.jetbrains.com/resharper/

我的故事:开始在一家新公司工作，以前从未使用过Visual Studio。第一件事之一，如何复制线条。设置宏后ReSharper告诉我:你想取代我的快捷方式是:“复制文本”:)

Ctrl + D为我工作在VS2012与Resharper。这是Resharper的热键。

有一个免费的扩展，你可以下载这里，让你复制行无需替换剪贴板的内容。

默认情况下，它被绑定到Alt + D，但你可以通过点击工具->选项->环境->键盘将其更改为任何你想要的。在搜索框中输入“复制”，然后查找“编辑”。DuplicateSelection”，并编辑快捷方式为任何你想要的。我更喜欢Ctrl + D与其他编辑器保持一致。

针对Visual Studio 2012、2013、2015、2017，点击链接下载扩展

https://marketplace.visualstudio.com/items?itemName=ctlajoie.DuplicateSelection

现在进入工具>选项>键盘，在搜索框中输入“复制”(完整的命令字符串是“Edit.DuplicateSelection”)。在这里，您可以以与其他命令相同的方式将其绑定到任何快捷方式。

不是答案，只是一个有用的补充: 作为免费赠品，我刚刚发明了(嗯……记得不能用调整由Lolo发布的代码)RemoveLineOrBlock宏。享受吧!

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics

Public Module RemoveLineOrBlock

    Sub RemoveLineOrBlock()
        Dim selection As TextSelection = DTE.ActiveDocument.Selection
        Dim lineNumber As Integer
        Dim line As String

        If selection.IsEmpty Then
            selection.StartOfLine(0)
            selection.EndOfLine(True)
        Else
            Dim top As Integer = selection.TopLine
            Dim bottom As Integer = selection.BottomLine

            selection.MoveToDisplayColumn(top, 0)
            selection.StartOfLine(0)

            selection.MoveToDisplayColumn(bottom, 0, True)
            selection.EndOfLine(True)
        End If

        selection.LineDown(True)
        selection.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstColumn,True)

        selection.Delete()

        selection.MoveToDisplayColumn(selection.BottomLine, 0)
        selection.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstText)

    End Sub

End Module