マクロで「名前を付けて保存」
Wordのマクロで「名前を付けて保存」を行うには次のようにします。
Sub 名前を付けて保存()
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "名前を付けて保存"
.Show
fn = .SelectedItems(1)
End With
ActiveDocument.SaveAs (fn)
End Sub
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "名前を付けて保存"
.Show
fn = .SelectedItems(1)
End With
ActiveDocument.SaveAs (fn)
End Sub
「ActiveDocument」を「ActiveWorkbook」にすればExcelでも同様に使えますが、マクロの有無などで拡張子を変えるなど、工夫が必要です。
[ 2011年1月27日 | カテゴリー: Word | タグ: VBA , 保存 ]
« Writerですべてのアルファベットを検索 | Writerで原稿用紙を作る »
コメントを残す