ワード文書をファイル名として複数回保存する方法

Question

私は、シフトの詳細を毎日入れている仕事に使用する文書を持っています。これらのファイルは保存されます 01 01 2017日 01 01707夜 02 01 2017日 02 01 2017夜間など、将来の参照のために保存されるため、ファイル名として日付とともに保存されます。

また、ファイル名に変更するファイルの日付フィールドが2つありますが、これは重要ではないため、不可能な場合は避けることができます。

私は何を求めているのですか？テキストフィールドとファイル名で日付を変更してファイルを複数回保存する方法はありますか？

Answer 1

はい、これはVBAで行うことができます。スケルトンマクロは以下の通りです。 ISO-8601形式の名前を持つディレクトリ "C：\ foo"にファイルを保存します。

Sub Macro1() 
    Dim DateStr, FileStr As String 
    DateStr = Format$(Date, "yyyymmdd") 
    FileStr = DateStr & ".docx" 

    ActiveDocument.Save 
    ChangeFileOpenDirectory "C:\foo\" 
    ActiveDocument.SaveAs2 FileName:=FileStr, FileFormat:=wdFormatXMLDocument 
End Sub 

あなたが一度にファイルの全体の月の価値を作成するために、これを自動的に実行したい（aiieeee！）場合は、ループの中でそれをラップしたい、すなわち

For index As Integer = 1 To 30 
    ; do stuff here 
Next 

「30もちろん、当月には28/29/30/31と計算される変数であってもかまいません。