名前を付けて保存

WORDのクイックアクセスツールバーに設定した「名前を付けて保存」は、ファイルの取得先が保存先がとなる。

ファイル名はそのままで保存先をデスクトップに固定したいので、マクロを作成しツールバーに設定した。

Sub 名前を付けて保存()
Dim strFileName As String
strFileName = ActiveDocument.Name
With Dialogs(wdDialogFileSaveAs)
ChangeFileOpenDirectory "C:\Users\○○○\デスクトップ\"
.Name = strFileName
.Show
End With
End Sub



これでアイコンをクリックすると保存先はデスクトップになる。