Aqui está o script VBA que lhe daria algo parecido com isso.
Sub FileDate_Time()
Dim LDate As Date, LString As String
LDate = Now
LString = WeekdayName(Weekday(LDate)) & "," & Format(LDate, "yyyy:mm:dd hh:mm:ss")
Selection.TypeText LString
End Sub