Opdel et Word-dokument i separate filer for hver 14000 ord

Hej der,

Vi vil helt sikkert tage dit forslag i betragtning til medtagelse i fremtidige versioner af funktionen! Tak for dit værdifulde input!

Og jeg har genereret nedenstående VBA-kode ved hjælp af Kutools AI Aide og testet den med succes. Du er velkommen til at prøve det:

BEMÆRK: Sørg for at sikkerhedskopiere dit dokument, før du udfører dette VBA-script for at beskytte mod potentielle problemer eller for at fortryde eventuelle ændringer, hvis det er nødvendigt.

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

Fortæl mig, hvis du støder på problemer, eller hvis der er andet, jeg kan hjælpe dig med.

Amanda

Tak for dit svar Amanda
Jeg kørte VBA-koden, men det tog lang tid uden nogen resultater (svarer ikke)
Ordet hænger og går ned, og blæseren overlyder, selvom jeg har en bærbar computer med 16 GB RAM, 256 GB M.2 NVMe SSD og 1 TB HDD.
Tak