Hallo,
Wir werden Ihren Vorschlag auf jeden Fall für die Aufnahme in zukünftige Versionen der Funktion berücksichtigen! Vielen Dank für Ihren wertvollen Beitrag!
Und ich habe den folgenden VBA-Code mit Kutools AI Aide generiert und erfolgreich getestet. Probieren Sie es doch einfach mal aus:
HINWEIS: Stellen Sie sicher, dass Sie Ihr Dokument sichern, bevor Sie dieses VBA-Skript ausführen, um mögliche Probleme zu vermeiden oder bei Bedarf Änderungen rückgängig zu machen.
Sub SplitDocumentEvery14000Words()
Dim originalDoc As Document
Set originalDoc = ActiveDocument
Dim wordCount As Long
wordCount = 0
Dim docIndex As Integer
docIndex = 1
Dim newDoc As Document
Set newDoc = Documents.Add
Dim originalDocPath As String
originalDocPath = originalDoc.Path
Dim i As Long
For i = 1 To originalDoc.Words.Count
wordCount = wordCount + 1
newDoc.Content.InsertAfter originalDoc.Words(i).Text
' Split and save every 14000 words
If wordCount >= 14000 Then
' Reset word count
wordCount = 0
' Save the document
newDoc.SaveAs2 FileName:=originalDocPath & "\SplitDoc_" & docIndex & ".docx"
' Prepare for next document
docIndex = docIndex + 1
Set newDoc = Documents.Add
End If
Next i
' Save the last document if it has content
If newDoc.Content.Words.Count > 1 Then
newDoc.SaveAs2 FileName:=originalDocPath & "\SplitDoc_" & docIndex & ".docx"
Else
newDoc.Close False
End If
MsgBox "Documents have been split successfully."
End Sub
Lassen Sie mich wissen, wenn Sie auf Probleme stoßen oder wenn ich Ihnen sonst noch behilflich sein kann.
Amandas