' This command dictates today's date (computer time) in custom format 
' (i.e. "dddd, dd mmmm yyyy" = Saturday, 03 August 2019)

Sub Main
	DateToday = Format(Now,"dddd, dd mmmm yyyy ")
'	  SendKeys "^b"  'Bold On	
	SendKeys DateToday
' 	SendKeys "^b " 'Bold Off
End Sub
'
' Un-comment the BOLD On/Bold Off ("^b") commands to dictate in bold type.
' Note: The space after the second "^b " completes the bold off command 
' preventing the next dictated text being displayed in bold.
' Also delete the space after "yyyy " in the Format command.
' 
' Any format parameter character must be preceded by a "\" (backslash) to be
' included as text in the format command.

' "c, d, h, w, m, n, q, s, t, y", and uppercase versions included as
' text in the format command must be preceded by a "\" (backslash).
'
' In the format command "hhmm \Hour\s dddd, dd mmmm yyyy"
' the word "Hours" must be entered as "\Hour\s"
' Yields (format example above): 1733 Hours Saturday, 03 August 2019
'
' Paramater Description
'-----------------------------------------------------
' : ...... insert localized time separator
' / ...... insert localized date separator
' c ...... insert ddddd ttttt, insert date only if t=0, insert time only if d=0
' d ...... insert day number without leading zero
' dd ..... insert day number with leading zero
' ddd .... insert abbreviated day name
' dddd ... insert full day name
' ddddd .. insert date according to Short Date format
' dddddd . insert date according to Long Date format
' w ...... insert day of week number
' ww ..... insert week of year number
' m ...... insert month number without leading zero 
'  ....... insert minute number without leading zero (if follows h or hh)
' mm ..... insert month number with leading zero 
'  ....... insert minute number with leading zero (if follows h or hh)
' mmm .... insert abbreviated month name
' mmmm ... insert full month name
' q ...... insert quarter number
' y ...... insert day of year number
' yy ..... insert year number (two digits)
' yyyy ... insert year number (four digits, no leading zeros)
' h ...... insert hour number without leading zero
' hh ..... insert hour number with leading zero
' n ...... insert minute number without leading zero
' nn ..... insert minute number with leading zero
' s ...... insert second number without leading zero
' ss ..... insert second number with leading zero
' ttttt .. insert time according to time format
' AM/PM .. use 12 hour clock and insert AM (hours 0 to 11) and PM (12 to 23)
' am/pm .. use 12 hour clock and insert am (hours 0 to 11) and pm (12 to 23)
' A/P .... use 12 hour clock and insert A (hours 0 to 11) and P (12 to 23)
' a/p .... use 12 hour clock and insert a (hours 0 to 11) and p (12 to 23)
' AMPM ... use 12 hour clock and insert localized AM/PM strings
' \c ..... insert character c
' "text" . insert literal text