word(.docm)でマクロ実行後、実行結果を（.docx）として保存する方法

Question

Word（.docm）のVBAを実行後、実行結果のファイルを、その日の日付等の名前で、
デスクトップに（.docx）として保存するコードはありますでしょうか？
なお、実行したファイル（.docm）は保存せずに右上の「Ｘ」で閉じたいです。

実行結果をお客様に提出したいのですが、
VBAが登録されているファイルを提出させたくありません。

ネット検索してもわからず、もしわかりましたらよろしくお願い致します。

Answer 1

こんな感じでどうでしょうか。

Sub sample()
    Dim fn
    With CreateObject("WScript.Shell")
        fn = .SpecialFolders("Desktop") & "\" & Format(Date, "yyyymmdd") & ".docx"
        MsgBox fn
        ThisDocument.SaveAs2 fn, wdFormatDocumentDefault
    End With
End Sub

Comments

[nanashi1111]

ありがとうございます！！！できました！

[nanashi1111]

もうしわけございません。元データ（docmのデータ）は実行前のデータのままで、保存しておきたいのですが、できますでしょうか？

[jinoji]

元データはそのまま残っているはずですがどうでしょうか。
（変更されたくない場合は読み取り専用にしておくなどの方法もあると思います。）

[nanashi1111]

大変もうしわけございません。私の勘違いで、元データは残っていました。
ありがとうございます。