Функция Today()
В отличие от Now() возвращает целое число, соответствующее установленной в компьютере системной дате.
yr = Year(Today())
MsgBox Str$(yr)
Функция Day() – служит для определения порядкового дня месяца.
ToolsMacro .Name = text [,.Edit][,.Show=number][,.Delete] [,.Rename][,.Description=text][,.NewName=text][,.SetDesc]
Эта мощная макрокоманда выполняет все действия по работе с макрокомандами. Ее опции соответствуют опциям диалогового окна Макрокоманда меню Сервис.
Русская версия WinWord автоматически преобразовывает первую букву в названиях дней недели в заглавную. В режиме автокоррекция отсутствует опция эквивалентная “Copitalite Names of Days” из английской версии. чтобы изменить такой режим нужно создать макрокоманду
Sub MAIN
Tools.AutoCorrect, Days=0
End Sub
