| |
お話しの件は、日記のようなものでしょうか？
次の条件で以下のようなマクロになります。
１．日付を文書の右側に書き込むとします。
（Wordのヘッダー・フッターには、
Excelのような左側・中央部・右側はありませんので、
タブで区切って間に合わせます。）
２．ファイル名を日付にして（ここでは「C:…\date\日付」とします）、
そのまま、ファイルを保存するものとします。
処理後に、何も本文に書き込まず終了してもファイルは残ります。
３．続けて2度実行すると、
ヘッダーの内容が二重になった上でファイル保存になります。
（対策は別途考えて頂ければと存じます。）
Sub DiaryFile()
Dim myDate As String
Dim myFolder As String
Dim myFileName As String
' 保存先フォルダの設定
myFolder = "C:\Documents and Settings\User\My Documents"
' ヘッダーへの書き込み
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
myDate = Format(Now(), "Long Date")
Selection.TypeText Text:=vbTab & vbTab & myDate
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
' 日付をファイル名用に小細工
myDate = Replace(Format(myDate, "yyyy/MM/dd"), "/", "")
' ファイルを保存
ActiveDocument.SaveAs FileName:=myFolder & "\date" & myDate
End Sub
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
- 03/7/5(土) 11:58 -
