Διαχωρίστε ένα έγγραφο του Word σε ξεχωριστά αρχεία κάθε 14000 λέξεις

Γεια σου,

Σίγουρα θα λάβουμε υπόψη την πρότασή σας για συμπερίληψη σε μελλοντικές εκδόσεις της λειτουργίας! Σας ευχαριστούμε για την πολύτιμη συμβολή σας!

Και, δημιούργησα τον παρακάτω κώδικα VBA χρησιμοποιώντας το Kutools AI Aide και τον δοκίμασα με επιτυχία. Μη διστάσετε να το δοκιμάσετε:

ΣΗΜΕΙΩΣΗ: Βεβαιωθείτε ότι έχετε δημιουργήσει αντίγραφα ασφαλείας του εγγράφου σας προτού εκτελέσετε αυτήν τη δέσμη ενεργειών VBA για να προστατεύσετε από πιθανά ζητήματα ή για να επαναφέρετε τυχόν αλλαγές εάν είναι απαραίτητο.

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

Ενημερώστε με εάν αντιμετωπίζετε προβλήματα ή εάν υπάρχει κάτι άλλο που μπορώ να σας βοηθήσω.

Amanda

Ευχαριστώ για την απάντησή σου Amanda
Έτρεξα τον κώδικα VBA, αλλά χρειάστηκε πολύς χρόνος χωρίς κανένα αποτέλεσμα (Δεν ανταποκρίνεται)
Το Word κολλάει και κολλάει και ο ανεμιστήρας πάνω από τον ήχο, αν και έχω φορητό υπολογιστή με 16GB RAM, 256GB M.2 NVMe SSD και 1TB HDD .
Ευχαριστώ