Wordda Farklı kaydetme Makrosu

[doukan84]

Evet arkadaşlar.. wordda sayfayı userform ile farklı kaydediyorum ama sorun şu benim çalıştığım word sayfasından devam etmiyor kaydettiğim sayfa açık kalıyor ve benim bir sonraki kodlarımda boşa çıkıyor..

Sub kaydet()

a = ActiveDocument.Tables(1).Cell(2, 2)
                    
        ActiveDocument.SaveAs2 FileName:=ActiveDocument.Path & "\" & a & ".doc", FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, CompatibilityMode:=14
End Sub

Bu kodda nasıl bir değşiklik yapmam lazım.. yada nasıl bir kod lazım