Word マクロで「名前を付けて保存」 Wordのマクロで「名前を付けて保存」を行うには次のようにします。Sub 名前を付けて保存() With Application.FileDialog(msoFileDialogSaveAs) .Title = "名前を付けて保存" .Sh... 2011.01.27 Word