A B C D E F G H I J K L M N O P Q R S T U V W X Z

Word Dokumente in mehrere Teile aufteilen und speichern

Auf dieser Seite gibt es VBA Code, mit dem man Word Dokumente in unterkapitel etc. zerschneiden und speichern kann. Funktioniert mit Word 2016:

https://de.extendoffice.com/documents/word/966-word-split-documents-into-multiple-documents.html

Dieser Code funktioniert z.B. mit dem Trennzeichen „///“

Sub SplitNotes(delim As String, strFilename As String)
Dim doc As Document
Dim arrNotes
Dim I As Long
Dim X As Long
Dim Response As Integer
arrNotes = Split(ActiveDocument.Range, delim)
Response = MsgBox(„This will split the document into “ & UBound(arrNotes) + 1 & “ sections.Do you wish to proceed?“, 4)
If Response = 7 Then Exit Sub
For I = LBound(arrNotes) To UBound(arrNotes)
If Trim(arrNotes(I)) <> „“ Then
X = X + 1
Set doc = Documents.Add
doc.Range = arrNotes(I)
doc.SaveAs ThisDocument.Path & „\“ & strFilename & Format(X, „000“)
doc.Close True
End If
Next I
End Sub
Sub test()
‚delimiter & filename
SplitNotes „///“, „Notes “
End Sub