Wordで西暦年月日を挿入するマクロ

Wordには今日の日付を挿入する機能があります。
メニューの挿入 – テキスト – 日付と時刻を選択します(Word2013の場合)。
デフォルトではキーボードショートカットとして「Ctrl+;」(Ctrlキーを押しながらセミコロンキー)が割り当てられています。
しかし「日付と時刻」ダイアログが表示され、表示形式を選択する必要があります。またファイルによっては言語の選択が英語になってしまう場合があります。
私は西暦年月日だけを挿入したいので不便です。
マクロを作りました。

Sub 西暦年月日を挿入()
Selection.TypeText Text:=Format(Now(), "yyyy年m月d日")
End Sub

また「Ctrl+;」にこのマクロを割り当てることもできます。
Wordでショートカットキーを設定 | You Look Too Cool