Sub PrintDateTime()
    If (Not IsNothing(DTE.ActiveDocument)) Then
        Dim selection As TextSelection = DTE.ActiveDocument.Selection
        selection.Insert(DateTime.Now.ToString())
    End If
End Sub

您可以使用Alt F8打开您的宏浏览器,并创建一个新模块,并将代码粘贴到生成的模块内.

然后创建一个新的键盘快捷键并将其绑定到您的宏.