Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս Word- ի փաստաթուղթը բաժանել առանձին ֆայլերի յուրաքանչյուր 5 կամ n էջում:

Եթե ​​ունեք մի մեծ Word փաստաթուղթ, որը պարունակում է հարյուրավոր էջեր, և այժմ, ցանկանում եք այս փաստաթուղթը բաժանել առանձին ֆայլերի յուրաքանչյուր 10 կամ n էջում: Կա՞ արդյոք այս գործը լուծելու արագ և հեշտ միջոց `առանց էջերը մեկ առ մեկ պատճենելու և տեղադրելու:

Word- ի փաստաթուղթը բաժանեք առանձին ֆայլերի VBA կոդով յուրաքանչյուր 10 կամ n էջում

Wordարմանալի հատկություն ունեցող յուրաքանչյուր 10 կամ n էջերում բաժանեք Word փաստաթուղթը առանձին ֆայլերի


Word- ի փաստաթուղթը բաժանեք առանձին ֆայլերի VBA կոդով յուրաքանչյուր 10 կամ n էջում

Խոշոր փաստաթուղթը յուրաքանչյուր 10 կամ n էջերի վրա հիմնված առանձին ֆայլերի բաժանելու համար հետևյալ VBA կոդը կարող է ձեզ լավություն բերել, արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2, Եվ հետո, կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը ներքևում բացված դատարկ մոդուլի մեջ.

VBA կոդ. Յուրաքանչյուր 10 կամ n էջում փաստաթուղթը բաժանեք առանձին ֆայլերի.

Sub DocumentSplitter()
    Dim xDoc As Document, xNewDoc As Document
    Dim xSplit As String, xCount As Long, xLast As Long
    Dim xRngSplit As Range, xDocName As String, xFileExt As String
    Dim xRegEx As RegExp
    Dim xPageCount As Integer
    Dim xShell As Object, xFolder As Object, xFolderItem As Object
    Dim xFilePath As String
    On Error Resume Next
    Set xDoc = Application.ActiveDocument
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Application.ScreenUpdating = False
    Set xNewDoc = Documents.Add(Visible:=False)
    xDoc.Content.WholeStory
    xDoc.Content.Copy
    xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting
    With xNewDoc
        xPageCount = .ActiveWindow.Panes(1).Pages.Count
L1:     xSplit = InputBox("The document contains " & xPageCount & " pages." & _
                 vbCrLf & vbCrLf & " Please enter the page count you want to split:", "Kutools for Word", xSplit)
        If Len(Trim(xSplit)) = 0 Then Exit Sub
        Set xRegEx = New RegExp
        With xRegEx
            .MultiLine = False
            .Global = True
            .IgnoreCase = True
            .Pattern = "[^0-9]"
        End With
        If xRegEx.Test(xSplit) = True Then
            MsgBox "Please enter the page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The number is greater than the document number." & vbCrLf & "Please re-enter", vbInformation, "Kutools for Word"
            GoTo L1
        End If
        xDocName = xDoc. Name
        xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1)
        xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_"
        xFilePath = xFilePath & xDocName
        For xCount = 0 To Int(xPageCount / xSplit)
            xPageCount = .ActiveWindow.Panes(1).Pages.Count
            If xPageCount > xSplit Then
                xLast = xSplit
            Else
                xLast = xPageCount
            End If
            Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast)
            Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
            xRngSplit.Start = .Range.Start
            xRngSplit.Cut
            Documents.Add
            Selection.Paste
            ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False
            ActiveWindow.Close
        Next xCount
        Set xRngSplit = Nothing
        xNewDoc.Close wdDoNotSaveChanges
        Set xNewDoc = Nothing
    End With
    Application.ScreenUpdating = True
End Sub

3, Վերոնշյալ կոդը տեղադրելուց հետո, այն դեռ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Գործիքներ > Սայլակև դուրս ցցված Հղումներ-նախագիծ երկխոսության տուփ, ստուգեք Microsoft VBScript կանոնավոր արտահայտություններ 5.5 տարբերակը Հասանելի հղումներ ցուցակի տուփ, տես նկարի նկարը.

4. Այնուհետեւ կտտացրեք OK կոճակը, ապա սեղմել F5 այս կոդը գործարկելու բանալին, և ա Թերթիր պանակի համար ցուցադրվում է երկխոսության տուփը, ընտրեք այն պանակը, որտեղ ցանկանում եք տեղադրել պառակտված ֆայլերը, տես նկարի նկարը.

5. Այնուհետեւ կտտացրեք OK կոճակը, և մեկ այլ արագ տուփ է դուրս գալիս ՝ հիշեցնելու համար, որ մուտքագրեք էջի հաշվարկի համարը, որի հիման վրա ցանկանում եք բաժանել, տես նկարի նկարը.

6. Եվ այնուհետեւ կտտացրեք OK կոճակը, ակտիվ Word փաստաթուղթը յուրաքանչյուր 10 էջում բաժանվել է առանձին ֆայլերի, արդյունքները տեսնելու համար կարող եք գնալ նշված պանակ:


Wordարմանալի հատկություն ունեցող յուրաքանչյուր 10 կամ n էջերում բաժանեք Word փաստաթուղթը առանձին ֆայլերի

Kutools բառի համար ներառում է հզոր հատկություն- պառակտում գործառույթը, այս օգտակար ծառայության միջոցով, դուք կարող եք արագորեն բաժանել Word- ի մեծ փաստաթուղթը բազմաթիվ առանձին ֆայլերի ՝ հիմնված Heading1- ի, էջի ընդմիջման, հատվածի ընդմիջման և էջի վրա:

Հուշում.Սա կիրառելու համար պառակտում հատկությունը, նախ, դուք պետք է ներբեռնեք այն Kutools բառի համար, ապա գործառույթը կիրառեք արագ և հեշտությամբ:

Տեղադրելուց հետո Kutools բառի համարԽնդրում եմ արեք հետևյալ կերպ

1: Սեղմեք Kutools Plus > պառակտում, տես նկարի նկարը.

2, Բացված երկխոսության պատուհանում խնդրում ենք սահմանել հետևյալ գործողությունները ՝ ըստ ձեզ, տես նկարի նկարը.

3, Պարամետրերն ավարտելուց հետո սեղմեք OK, և ամբողջ փաստաթուղթը յուրաքանչյուր էջի հիման վրա կբաժանվի բազմաթիվ ֆայլերի, տես նկարի նկարը.

Կտտացրեք Kutools- ի Word- ի և անվճար փորձարկման համար ներբեռնելու համար:


Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (8)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձում էի բաժանել 166 էջանոց word ֆայլը և այն տալիս է 166 ֆայլ՝ յուրաքանչյուրը 166 էջով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA սցենար. յուրաքանչյուր 10 կամ n չաշխատող էջը բաժանեք փաստաթուղթը առանձին ֆայլերի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Սերգեյ,
Վերոնշյալ կոդը լավ է աշխատում իմ Word փաստաթղթում, Word-ի ո՞ր տարբերակն եք օգտագործում:
Իսկ ո՞ր քայլն է սխալվել ձեր վիրահատության ժամանակ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBscript կոդը ստիպեց Word-ի խափանմանը: Ես փորձում էի բաժանել 32 Մբ Word ֆայլը բազմաթիվ էջերով, բայց թվում է, որ Word-ը չի կարող դա կարգավորել VBscript-ի միջոցով:
Ամեն դեպքում շնորհակալ եմ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Ստուդիա,
VBA կոդը կարող է խափանվել, երբ կա մեծ փաստաթուղթ, այն կայուն չէ, ուստի խորհուրդ եմ տալիս օգտագործել մեր Kutools for Word գործիքը, այն թարմացվել է և աջակցում է այս խնդիրը լուծելու համար, կարող եք ներբեռնել այն և անվճար փորձաշրջան 30 օր:
Խնդրում եմ փորձեք, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինձ համար VBA-ն ստեղծում է մեկ փաստաթուղթ, որը բնօրինակի պատճենն է և վերջ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
այս կոդը տալիս է կոմպիլյացիայի սխալ, որը ցույց է տալիս, որ օգտագործողի սահմանման տեսակը սահմանված չէ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
լավ բաներ. Ես այն օգտագործեցի 1 էջ 1 բառային փաստաթղթով բաժանելու համար, այն հաջող էր, բացառությամբ, որ յուրաքանչյուր փաստաթուղթ (բաժանումից հետո), այն ընդհանուր առմամբ ունի 2 էջ, չնայած 2-րդ էջը միշտ դատարկ է: 
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր