みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Word:文書ファイルを開くたび、末尾に自動的に日付を挿入したい

ご覧いただきありがとうございます。

Wordでマクロを使い、文書ファイルを開くたびにカーソルが文書末尾に飛んで、その位置にファイルを開いた日の日付が挿入されるようにしたいと思っています(Windows付属のメモ帳で、先頭行に.LOGと書いたファイルを編集するときのようなイメージです)。

Webで調べたところ、カーソルを末尾に飛ばすには、ThisDocumentに

 Private Sub Document_Open()
  Selection.EndKey Unit:=wdStory
 End Sub

と登録すればよいことがわかりました。また、手動でマクロを呼び出して日付を挿入するなら、

 Private Sub AddFieldAsConst(Field As String)
  With Selection
   .Fields.Add(Range:=.Range, Type:=wdFieldEmpty, Text:=Field).Unlink
  End With
 End Sub

 Public Sub AddDate()
  AddFieldAsConst "TIME \@ ""ggge年M月d日(aaa)"" "
 End Sub

というコードを標準モジュールに登録すればよいということもわかりました。

しかし、これらのコードをどのようにいじれば日付の挿入が自動で行われるのかがわかりません。

どなたかおわかりになられる方、ご教授よろしくお願いいたします。

なお、OSおよびソフトのバージョンは、WindowsXP + Word2002です。

投稿日時 - 2009-04-05 16:26:46

QNo.4854941

困ってます

質問者が選んだベストアンサー

Sub Auto_Open()
Selection.EndKey Unit:=wdStory
Selection.InsertDateTime DateTimeFormat:="ggge年M月d日(aaa)", InsertAsField:=False
End Sub

投稿日時 - 2009-04-05 19:33:08

お礼

度々のご回答ありがとうございます。こういう機能がほしいとかねがね思っていましたので、とても助かりました。

投稿日時 - 2009-04-05 20:33:26

ANo.2

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

Private Sub Document_Open()
Selection.EndKey Unit:=wdStory
Selection.InsertDateTime DateTimeFormat:="ggge年M月d日(aaa)"
End Sub

投稿日時 - 2009-04-05 17:31:34

お礼

さっそくご回答いただき誠にありがとうございます。

質問文にきちんと書いていなかったのですが、実は、日付は以後更新されることがないようにテキストにしておきたいのです。お示しいただいたコードをもとに、あれこれ書き足したりしてみるのですが、エラーになるばかりです。厚かましいお願いで恐縮ですが、挿入された日付フィールドがさらにそのままテキストに変換されるようなマクロもお教えいただけないでしょうか。

投稿日時 - 2009-04-05 18:40:23

あなたにオススメの質問