ワードで保存先を指定する
http://okwave.jp/qa/q7366977.html
http://okwave.jp/qa/q7370982.html の続きでお願いします。
ワードテンプレートを作成しています。入力後の保存先をNASの特定フォルダに自動的にできるような設定にしたいと考えています。
上記の質問で下記のようなマクロを提案されました。
Sub FileSaveAs()
'
' FileSaveAs Macro
' 作業中の文書を「顧客ID+日付」の名前で保存します。
'
Dim SaveDay As String
Dim kokyaku As String
Dim Fname As String
SaveDay = Format(Date, "yymmdd")
kokyaku = ActiveDocument.FormFields("顧客ID").Range.Text
Fname = SaveDay & "_" & kokyaku
ChangeFileOpenDirectory "フォルダパス名"
ActiveDocument.SaveAs FileName:=Fname & ".doc"
' 名前を付けて保存ダイアログを表示する場合は以下を有効に
' Dialogs(wdDialogFileSaveAs).Show
End Sub
こによって、「名前を付けて保存」では目的を果たしましたが、「上書き保存では」規定のフォルダに保存されます。この際も”NASのフォルダ”に出来ますか?
よろしくお願いします。
お礼
ありがとうございます 申し訳ありませんが、上記メソッドをどこに記載するのか教えてください。 初心者です ごめんなさい