WORDのクイックアクセスツールバーに設定した「名前を付けて保存」は、ファイルの取得先が保存先がとなる。
ファイル名はそのままで保存先をデスクトップに固定したいので、マクロを作成しツールバーに設定した。
Sub 名前を付けて保存()
Dim strFileName As String
strFileName = ActiveDocument.Name
With Dialogs(wdDialogFileSaveAs)
ChangeFileOpenDirectory "C:\Users\○○○\デスクトップ\"
.Name = strFileName
.Show
End With
End Sub
これでアイコンをクリックすると保存先はデスクトップになる。
|
|