You can use my Visual Commander extension to create such command and assign a shortcut to it:
Sub Run(DTE As DTE2, package As Package) Implements ICommand.Run
Dim textSelection As EnvDTE.TextSelection
textSelection = CType(DTE.ActiveDocument.Selection(), EnvDTE.TextSelection)
textSelection.Text = "My sign " + System.DateTime.Now.ToLongDateString() + " " +
System.DateTime.Now.ToLongTimeString()
End Sub
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…