Word文書を閉じるタイミングで更新日時(正確には現在日時)を文末に追加するマクロです。
閉じる都度、更新日時が追加されます。
Private Sub Document_Close()
With ActiveDocument.Content
.InsertParagraphAfter
.InsertAfter "更新 " & Format(Now(), "yyyy/mm/dd hh:mm:ss")
End With
End Sub
With ActiveDocument.Content
.InsertParagraphAfter
.InsertAfter "更新 " & Format(Now(), "yyyy/mm/dd hh:mm:ss")
End With
End Sub
なお、このコードは「ThisDocument」というクラスモジュールに記述する必要があります。
ヘルプ(Word2007)から引用します。
- [プロジェクト エクスプローラ] ウィンドウの Nomal プロジェクトまたは文書プロジェクトで、[ThisDocument] をダブルクリックします。フォルダで表示している場合、[ThisDocument] は [Microsoft Word オブジェクト] フォルダにあります。
- [オブジェクト] ボックスの [Document] を選択します。New イベントの空のサブルーチンがクラス モジュールに追加されます。
- [プロシージャ] ボックスでイベントを選択します。選択したイベントの空のサブルーチンがクラス モジュールに追加されます。
- イベントが発生したときに実行される Visual Basic コードを記述します。
コメント