Γεια σου,
Σίγουρα θα λάβουμε υπόψη την πρότασή σας για συμπερίληψη σε μελλοντικές εκδόσεις της λειτουργίας! Σας ευχαριστούμε για την πολύτιμη συμβολή σας!
Και, δημιούργησα τον παρακάτω κώδικα 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