Hallo,
Vanuit een samengevoegd word bestand, wil ik graag meerdere documenten creeëren. Ik begreep dat dit middels een VBA kan. In een eerdere vraag hierover (16 feb 2011) in dit forum is ook een VBA gegeven.
Dit werkte bij mijn bestand in Word 2016 helaas niet (beveiliging en foutmelding).
Een andere VBA wel, alleen in de nieuwe documenten is de layout verdwenen, alleen de inhoud tekst wordt weergegeven. Iemand een idee hoe dit kan? Mijn VBA kennis is helaas erg laag..
Hieronder de gebruikte VBA:
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
Alvast bedankt voor meedenken
Vanuit een samengevoegd word bestand, wil ik graag meerdere documenten creeëren. Ik begreep dat dit middels een VBA kan. In een eerdere vraag hierover (16 feb 2011) in dit forum is ook een VBA gegeven.
Dit werkte bij mijn bestand in Word 2016 helaas niet (beveiliging en foutmelding).
Een andere VBA wel, alleen in de nieuwe documenten is de layout verdwenen, alleen de inhoud tekst wordt weergegeven. Iemand een idee hoe dit kan? Mijn VBA kennis is helaas erg laag..
Hieronder de gebruikte VBA:
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
Alvast bedankt voor meedenken