Dag OctaFish,
Ik heb me geregistreerd in de hoop dat je me helpt bij je macro.
Ik krijg hem aan de praat (waarvoor dank alvast!) maar heb 2 problemen:
- Hij plaatst hem in de map boven de door mij aangewezen map (in code hieronder heb ik mijn naam vervangen door xx) dus gewoon op mijn desktop en niet in de map op de desktop
- In de naamgeving plaatst hij voor de naam die het moet zijn (eerste regel document) nog de mapnaam dus 'one pager test filiaal x' (waarbij filiaal x de eigenlijke bestandsnaam zou moeten zijn).
Enig idee hoe ik dit kan oplossen aub?
Is eerste keer dat ik met macro's werk..
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 = "C:\Users\xx.GROUP\Desktop\one pager test"
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