Нет функций DateTime, доступных для фрагментов, но вот макрос, который вставит текущий DateTime:
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 , создать новый модуль и вставить приведенный выше код в созданный модуль.
Затем создайте новое сочетание клавиш и привяжите его к макросу.