Word 문서를 14000단어마다 별도의 파일로 분할

안녕,

우리는 기능의 향후 버전에 포함하기 위해 귀하의 제안을 확실히 고려할 것입니다! 귀하의 소중한 의견에 감사드립니다!

그리고 Kutools AI Aide를 사용하여 아래 VBA 코드를 생성하고 성공적으로 테스트했습니다. 자유롭게 시도해 보십시오.

참고: 잠재적인 문제로부터 보호하거나 필요한 경우 변경 사항을 되돌리려면 이 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

문제가 발생하거나 제가 도와드릴 수 있는 다른 사항이 있으면 알려주세요.

아만다

답장을 보내주셔서 감사합니다.
VBA 코드를 실행했는데 아무런 결과도 없이 오랜 시간이 걸렸습니다. (응답 없음)
16GB RAM, 256GB M.2 NVMe SSD 및 1TB HDD를 갖춘 노트북을 가지고 있는데도 Word가 멈추고 충돌하며 팬 소리가 납니다.
감사