ワードVBA ダイアログを表示して保存したい

質問

ワード2007を使っています。
ワード文書を元にして、マクロを実行するとダイアログが現れて、ファイルの種類を「Word 97-2003文書」で自動になり、任意の保存名を入れることで保存できるコードを教えていただけないでしょうか。

よろしくお願いします。

回答No.1

DreamyCat

2010版ですが、２００７版でも動作するだろうと思います。

Dim flnm As String
flnm = InputBox("ファイル名？")
ActiveDocument.SaveAs2 FileName:=flnm, CompatibilityMode:=0

補足

こんばんは。ご回答ありがとうこざいます。
試してみたところエラーになりました。
「オブジェクトはこのプロパティまたはメソッドをサポート
していません」
となりました…せっかくお教えいただいたのに残念です。