Բաժանեք Word փաստաթուղթը առանձին ֆայլերի յուրաքանչյուր 14000 բառի համար

Hi այնտեղ,

Մենք, անշուշտ, հաշվի կառնենք ձեր առաջարկը գործառույթի հետագա տարբերակներում ներառելու համար: Շնորհակալություն ձեր արժեքավոր ներդրման համար:

Եվ ես ստեղծել եմ ստորև նշված 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-ը կախված է և խափանում է, և ձայնի վրա օդափոխիչը, չնայած ես ունեմ նոութբուք 16 ԳԲ օպերատիվ հիշողությամբ, 256 ԳԲ M.2 NVMe SSD և 1 ՏԲ HDD:
Շնորհակալություն