Ik zou graag een groot Word bestand willen omzetten naar allemaal losse PDF's.
Met behulp van de macro van OctaFish (uit thread https://www.helpmij.nl/forum/showthr...67#post3938467 is het mij wel gelukt om alle documenten om te zetten naar losse *.doc bestanden, maar ik zou dit graag doen naar *.pdf bestanden.
Ik heb het zelf geprobeerd, maar helaas lukt mij dat niet.
Alvast heel erg bedankt!!
zie onder nog voor de gebruikte Macro:
Met behulp van de macro van OctaFish (uit thread https://www.helpmij.nl/forum/showthr...67#post3938467 is het mij wel gelukt om alle documenten om te zetten naar losse *.doc bestanden, maar ik zou dit graag doen naar *.pdf bestanden.
Ik heb het zelf geprobeerd, maar helaas lukt mij dat niet.
Alvast heel erg bedankt!!
zie onder nog voor de gebruikte Macro:
Code:
Sub Splitter()
'------------------------------------------------------------------------------------------------------------------
' splitter Macro
' Macro created by Doug Robbins to save each letter created by a mailmerge as a separate file.
'------------------------------------------------------------------------------------------------------------------
Dim Letters As Integer, Counter As Integer
Dim DocName As String, sRange As String
Dim Pad As String, sNullen As String
Dim aRange As Range
DocName = "Brief "
Pad = "H:\Temp\Word\"
Letters = ActiveDocument.Sections.Count
Selection.HomeKey Unit:=wdStory
Counter = 1
While Counter < Letters
ActiveDocument.Sections.First.Range.Cut
Documents.Add
Selection.Paste
'-----------------------------------------------------------------------------
'Naam samenstellen uit 1e alinea van tekst
'-----------------------------------------------------------------------------
Set aRange = ActiveDocument.Paragraphs(1).Range
DocName = aRange.Text
If Right(DocName, 1) = Chr(13) Or Right(DocName, 1) = Chr(10) Then
DocName = Left(DocName, Len(DocName) - 1)
End If
'-----------------------------------------------------------------------------
ActiveDocument.Sections(2).PageSetup.SectionStart = wdSectionContinuous
ActiveDocument.SaveAs FileName:=Pad & DocName & ".doc", FileFormat:=wdFormatDocument, LockComments:=False, _
Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, _
SaveFormsData:=False, SaveAsAOCELetter:=False
ActiveWindow.Close
Counter = Counter + 1
Wend
End Sub