ご覧いただきありがとうございます。
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です。
No.2ベストアンサー
- 回答日時:
Sub Auto_Open()
Selection.EndKey Unit:=wdStory
Selection.InsertDateTime DateTimeFormat:="ggge年M月d日(aaa)", InsertAsField:=False
End Sub
No.1
- 回答日時:
Private Sub Document_Open()
Selection.EndKey Unit:=wdStory
Selection.InsertDateTime DateTimeFormat:="ggge年M月d日(aaa)"
End Sub
さっそくご回答いただき誠にありがとうございます。
質問文にきちんと書いていなかったのですが、実は、日付は以後更新されることがないようにテキストにしておきたいのです。お示しいただいたコードをもとに、あれこれ書き足したりしてみるのですが、エラーになるばかりです。厚かましいお願いで恐縮ですが、挿入された日付フィールドがさらにそのままテキストに変換されるようなマクロもお教えいただけないでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
”挿入”がグレーアウトして選択...
-
複数のエクセル・ワードファイ...
-
拡張子がemzのファイルを開きたい
-
Power pointに写真の貼り付けが...
-
複数の画像ファイルを挿入したい
-
AccessのOLEオブジェクトについて
-
手の形のカーソルアイコンについて
-
wordで別々に作ったファイルを...
-
pdfファイルに雲マーク
-
エクセルシートに複数の写真を...
-
複数頁のあるPDFファイルをWord...
-
編集ソフト ビデォパツトの事で...
-
ワード 書式を崩さずにコピー...
-
Excel:1つのセルの中にテーブ...
-
画像がエクセルに直接貼り付け...
-
TeXの図番号の後のコロンを消し...
-
WINTPICでTEXの図入れ
-
Excelで作成した表をWordに貼り...
-
PowerPointに動画挿入
-
Wordに貼り付ける画像をパスで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
”挿入”がグレーアウトして選択...
-
wordで別々に作ったファイルを...
-
複数のエクセル・ワードファイ...
-
ファイルやフォルダーにリンク...
-
Power pointに写真の貼り付けが...
-
写真のコピー
-
複数頁のあるPDFファイルをWord...
-
手の形のカーソルアイコンについて
-
拡張子がemzのファイルを開きたい
-
複数の画像ファイルを挿入したい
-
Excel:1つのセルの中にテーブ...
-
AccessのOLEオブジェクトについて
-
ワード 書式を崩さずにコピー...
-
pdfファイルに雲マーク
-
Word ヘッダーの異なったファ...
-
Wordでページを複製したい
-
Word文書にweb画像を挿入したい...
-
エクセルシートに複数の写真を...
-
Word文書の2ページ分を1ページ...
-
TeXの図番号の後のコロンを消し...
おすすめ情報