UserForm Üzerine Farklı Kaydet Butonu?

[prtkl]

word de bir userformum var. Bu Form access databaseinden bazı verileri alıp üzerindeki comboboxlara aktarıyor ve comboboxlardan seçilen başlıklar textboxlarına gönderiliyor. Form üzerindeki gönder tuşuna basılınca da veriler word dosyasına eklenen yer imlerine metin olarak gönderiliyor. Acaba;

UserForm üzerine eklenen bir kaydet butonuna basıldığında, word ve excel de bulunan farklı kaydet menüsüne benzer bir penceresinin açılmasını ve bu açılan menü ile oluşturulan bu word dosyasının istediğimiz hedefe kaydedilmesini sağlayabilir miyiz?

 

[prtkl]

Private Sub CommandButton1_Click()
If Not ActiveWorkbook.Saved Then
Application.Dialogs(xlDialogSaveAs).Show
Else
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.Quit
End If
End Sub

Bu kodlar excel de hazırlanmış ancak word de çalışmıyor. Word için güncelleyebilir misiniz?

 

[prtkl]

Sub CommandButton1_Click()
Dialogs(wdDialogFileSaveAs).Show
ThisDocument.Save
ThisDocument.Close
End Sub

Cevap bu sanırım.