Printen naar meerdere bestanden - probleempje met macro

[Judith80]

Hier: http://www.helpmij.nl/forum/showthread.php/605769-Printen-naar-meerdere-bestanden-vanuit-1-document vond ik een macro die vanuit een samenvoeging in Word iedere brief afzonderlijk opslaat als bestand. Op de eens of andere manier lijkt deze wel te werken, maar na uitvoeren van de macro kan ik de losse bestanden nergens vinden, ze staan iig niet in de map waar het originele bestand in staat.

Kan iemand mij helpen door in de macro te zien waar deze bestanden naartoe worden weggeschreven? Hij staat hieronder gekopieerd.
Ik ben zelf nogal een leek op het gebied van macro's.

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, sDoc As String
sDoc = "Brief "
Letters = ActiveDocument.Sections.Count
Selection.HomeKey Unit:=wdStory
Counter = 1
While Counter < Letters
DocName = sDoc & LTrim$(Str$(Counter))
ActiveDocument.Sections.First.Range.Cut
Documents.Add
Selection.Paste
ActiveDocument.Sections(2).PageSetup.SectionStart = wdSectionContinuous
ActiveDocument.SaveAs FileName:=DocName, 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

 

[Judith80]

Ook mogelijk afzonderlijke brieven naar PDF printen?

Weet iemand of het toevallig ook mogelijk is om in een samengevoegd bestand alle brieven afzonderlijke om te zetten naar PDF? Ik werk met Word 2010 waarin ik normaal bij 'opslaan als' het bestand omzet naar PDF. Ik heb evt ook een losse PDF creator.

Ik hoop dat iemand mij kan helpen, want heb regelmatig te maken met dit fenomeen.

Alvast bedankt!

 

[OctaFish]

Je geeft in je macro geen padnaam op (zou je trouwens code willen opmaken met de CODE knop? Dan is hij tenminste goed leesbaar), en dan moet je maar afwachten waar de documenten worden opgeslagen. Dus ik zou in ieder geval een volledig pad opnemen in FileName:=Docname. Om ze op te slaan als PDF kun je onderstaande variant gebruiken (in de juiste opmaak ):

Sub Splitter()
' 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, sDoc As String
sDoc = "Brief "
Letters = ActiveDocument.Sections.Count
Selection.HomeKey Unit:=wdStory
Counter = 1
While Counter < Letters
    DocName = sDoc & LTrim$(Str$(Counter))
    ActiveDocument.Sections.First.Range.Cut
    Documents.Add
    Selection.Paste
    With ActiveDocument
        .Sections(2).PageSetup.SectionStart = wdSectionContinuous
        .ExportAsFixedFormat "C:\Docs\" & DocName & ".pdf", wdExportFormatPDF
        .Close
    End With
    Counter = Counter + 1
Wend
End Sub

Zie je gelijk hoe je de padverwijzing kunt toepassen