Hallo!
Ich habe eine Excelliste mit einem Word-Serienbrief verknüpft, weil dies einfacher ist, als alle Informationen abzutippen.
Nun möchte ich, dass die einzelnen Seiten (109 Seiten) des Serienbriefs auch als Einzeldateien gespeichert und mit den jeweiligen Seitenüberschriften benannt werden. Händisch ist dies sehr langwierig und ich würde am liebsten nur einen Button drücken, um Zeit zu sparen.
Kennt dort jemand ein Makro oder einen anderen Trick, den ich anwenden könnte?
hi
hier eine primitiv-variante als makro
Sub split()
Dim Abschnitt As Section
Dim doknr As Integer
Dim BaseName As String
doknr = 1
BaseName = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)
For Each Abschnitt In ActiveDocument.Sections
Abschnitt.Range.Select
Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=True
If Selection.Characters.Count > 1 Then
Selection.Copy
Documents.Add
Selection.Paste
ActiveDocument.SaveAs BaseName & doknr
ActiveDocument.Close
doknr = doknr + 1
End If
Next
End Sub
das dokument sollte zuvor bereits gespeichert sein. das makro teilt dann alle teile auf einzelne dokumente auf, die im selben verzeichnis liegen und am ende des dateinamens durchnumeriert werden. bestehende dateien werden gnadenlos überschrieben, daher nur in einem eigenen verzeichnis verwenden! ausserdem kann es nicht mit manuell eingefügten abschnittsumbrüchen umgehen. aber für simple sachen reicht es völlig.
lg
erwin