Ich habe ein Makro zum Speichern von einzelnen Seiten einer Word-Datei als einzelen PDF-Dateien mit eigenständigem Namen aus dem TExt jeder Seite (1Absatz)
Allerdings bekomme ich für alle Dateien den selben Namen.
Kann mir vielleicht jeman helfen ?
Sub SaveAsSeparatePDFs()
'UpdatebyExtendoffice20181120
Dim I As Long
Dim xDlg As FileDialog
Dim dateiname As String
Dim xFolder As Variant
Dim xStart, xEnd As Integer
On Error GoTo lbl
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show -1 Then Exit Sub
xFolder = xDlg.SelectedItems(1)
xStart = CInt(InputBox("Start Page", "KuTools for Word"))
xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
If xStart