Salut,
Cu siguranță vom lua în considerare sugestia dvs. pentru includerea în versiunile viitoare ale funcției! Vă mulțumim pentru contribuția dumneavoastră valoroasă!
Și am generat codul VBA de mai jos folosind Kutools AI Aide și l-am testat cu succes. Vă rugăm să nu ezitați să încercați:
NOTĂ: Asigurați-vă că faceți o copie de rezervă a documentului înainte de a executa acest script VBA pentru a vă proteja împotriva potențialelor probleme sau pentru a anula orice modificări, dacă este necesar.
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
Anunțați-mă dacă întâmpinați probleme sau dacă vă pot ajuta cu altceva.
Amanda