VBA ile Word dosyasındaki belirli sayfaları isim seçerek yazdırmak

[expercions]

Sub Sayfalar_Pdf2() Dim i As Long, isim As String With ActiveDocument For i = 1 To .Sections.count With .Sections(i) isim = Split(.Range.Paragraphs(2).Range.Text, vbCr)(0) ActiveDocument.ExportAsFixedFormat ActiveDocument.Path & "\" & isim & ".pdf", _ wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, i, i, wdExportDocumentWithMarkup, _ False, False, wdExportCreateHeadingBookmarks, True, False, False End With Next End With MsgBox "İşlem tamam", vbInformation End Sub

Elinize Emeğinize sağlık. Allah işinizi rast getirsin. Teşekkür ederim

 

[necati]

Rica ederim, güzel dualarınıza ben de teşekkür ederim.