Wordで履歴付き上書き保存をするマクロ

Pocket

以前、Excelのファイル名に日時を付けて保存するマクロを紹介しました。
ファイルを上書き保存する際に別途、日時を付けたファイルを保存することで「うっかり上書き」を防ぎます。
今回はこれのWord版を作りました。

Sub 履歴付き上書き保存()
    Const datetime = "_yyyymmdd_hhmmss"
    Const myfolder = "C:\trash\"
    Dim oldpath, oldfn, newfn, pos
    ActiveDocument.Save
    oldpath = ActiveDocument.path
    oldfn = ActiveDocument.Name
    pos = InStrRev(oldfn, ".")
    newfn = myfolder _
        & left(oldfn, pos - 1) _
        & Format(Now(), datetime) _
        & Right(oldfn, Len(oldfn) - pos + 1)
    ActiveDocument.SaveAs FileName:=newfn
    ActiveWindow.Close
    Documents.Open FileName:=oldpath & "\" & oldfn
End Sub

関連記事

[ 2015年6月4日 | カテゴリー: Word | タグ: ]

« | »

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

送信してください。


タグ

カテゴリー

最近の投稿

最近のコメント

固定ページ

アーカイブ

stabucky

写真

メタ情報