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

Hei der,

Vi vil absolutt ta forslaget ditt i betraktning for inkludering i fremtidige versjoner av funksjonen! Takk for verdifulle innspill!

Og jeg har generert VBA-koden nedenfor ved å bruke Kutools AI Aide og testet den med hell. Prøv det gjerne:

MERK: Sørg for at du sikkerhetskopierer dokumentet ditt før du kjører dette VBA-skriptet for å beskytte mot potensielle problemer eller for å tilbakestille eventuelle endringer om nødvendig.

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

Gi meg beskjed hvis du støter på problemer eller hvis det er noe annet jeg kan hjelpe deg med.

Amanda

Takk for svar Amanda
Jeg kjørte VBA-koden, men det tok lang tid uten noen resultater (Svarer ikke)
Ordet henger og krasjer og viften overlyder, selv om jeg har en bærbar datamaskin med 16 GB RAM, 256 GB M.2 NVMe SSD og 1 TB HDD.
Takk