Ответ 1
Нет доступных функций 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 и создать новый модуль и вставить код внутри модуля.
Затем создайте новую комбинацию клавиш и привяжите ее к вашему макросу.