Macro

    Sub CommentTONextLine()
        DTE.ActiveDocument.Selection.EndOfLine(True)
        DTE.ActiveDocument.Selection.Cut()
        DTE.ActiveDocument.Selection.LineDown()
        DTE.ActiveDocument.Selection.EndOfLine()
        DTE.ActiveDocument.Selection.Indent()
        DTE.ActiveDocument.Selection.Paste()
        DTE.ActiveDocument.Selection.LineUp()
        DTE.ExecuteCommand("Edit.LineDelete")
        DTE.ActiveDocument.Save()
    End Sub
    Sub TemporaryMacro_()
        DTE.ActiveDocument.Selection.EndOfLine(True)
        DTE.ActiveDocument.Selection.Cut()
        DTE.ActiveDocument.Selection.LineDown()
        DTE.ActiveDocument.Selection.WordRight(True)
        DTE.ActiveDocument.Selection.Delete()
        DTE.ActiveDocument.Selection.EndOfLine()
        DTE.ActiveDocument.Selection.WordRight(True)
        DTE.ActiveDocument.Selection.Delete()
        DTE.ExecuteCommand("Edit.LineCut")
    End Sub