- Katılım
- 29 Haziran 2013
- Mesajlar
- 81
- Excel Vers. ve Dili
- 2003-2010 türkçe
- Altın Üyelik Bitiş Tarihi
- 20-09-2021
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..
Bu kodda nasıl bir değşiklik yapmam lazım.. yada nasıl bir kod lazım
Kod:
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