Wordov dokument razdelite na ločene datoteke vsakih 14000 besed

Zdravo,

Vsekakor bomo vaš predlog upoštevali za vključitev v prihodnje različice funkcije! Hvala za vaš dragocen prispevek!

S pomočjo Kutools AI Aide sem ustvaril spodnjo kodo VBA in jo uspešno preizkusil. Vabljeni, da poskusite:

OPOMBA: poskrbite, da boste varnostno kopirali svoj dokument, preden zaženete ta skript VBA, da se zaščitite pred morebitnimi težavami ali po potrebi razveljavite morebitne spremembe.

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

Sporočite mi, če boste naleteli na težave ali če vam lahko pomagam s čim drugim.

Amanda

Hvala za tvoj odgovor Amanda
Zagnal sem kodo VBA, vendar je trajalo dolgo brez rezultatov (brez odziva)
Word obvisi in se zruši, ventilator prek zvoka, čeprav imam prenosnik s 16 GB RAM-a, 256 GB M.2 NVMe SSD in 1 TB HDD.
Hvala