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

Kako razdeliti Wordov dokument v ločene datoteke na vsakih 5 ali n strani?

Če imate velik Wordov dokument, ki vsebuje na stotine strani, bi ga radi razdelili na ločene datoteke vsakih 10 ali n strani. Ali obstaja kakšen hiter in enostaven način za reševanje tega dela, ne da bi kopirali in prilepili strani eno za drugo?

Določite Wordov dokument v ločene datoteke vsakih 10 ali n strani s kodo VBA

Določite Wordov dokument v ločene datoteke vsakih 10 ali n strani z neverjetno funkcijo


Določite Wordov dokument v ločene datoteke vsakih 10 ali n strani s kodo VBA

Če želite velik dokument razdeliti v ločene datoteke na podlagi vsakih 10 ali n strani, vam lahko z naslednjo kodo VBA naredite uslugo:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul:

Koda VBA: Razdelite dokument na ločene datoteke vsakih 10 ali n strani:

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. Po lepljenju zgornje kode še vedno v Microsoft Visual Basic za aplikacije okno, kliknite Orodja > Reference, in v izstreljenem Reference-Projekt pogovorno okno, preverite Regularni izrazi za Microsoft VBScript 5.5 možnost v Razpoložljive reference seznam, glej posnetek zaslona:

4. Nato kliknite OK in pritisnite F5 tipko za zagon te kode in a Brskaj po mapi pokaže se pogovorno okno, izberite mapo, kamor želite vstaviti razdeljene datoteke, glejte posnetek zaslona:

5. Nato kliknite OK in izkaže se drugo pozivno polje, ki vas opomni, da vnašate številko števila strani, na podlagi katere želite razdeliti, glejte posnetek zaslona:

6. In nato kliknite OK gumb, aktivni Wordov dokument je bil razdeljen na ločene datoteke vsakih 10 strani, za ogled rezultatov lahko greste v določeno mapo:


Določite Wordov dokument v ločene datoteke vsakih 10 ali n strani z neverjetno funkcijo

Kutools za Word vključuje močno funkcijsko Split funkcija, s tem pripomočkom lahko hitro razdelite velik Wordov dokument v več ločenih datotek glede na naslov1, prelom strani, prelom odseka in stran.

Nasvet:Če želite uporabiti to Split funkcijo, najprej morate prenesti Kutools za Wordin nato funkcijo hitro in enostavno uporabite.

Po namestitvi Kutools za Word, naredite tako:

1. Kliknite Kutools Plus > Split, glej posnetek zaslona:

2. V pogovornem oknu, ki se odpre, nastavite naslednje operacije, kot jih potrebujete, glejte sliko zaslona:

3. Po končanih nastavitvah kliknite OK, in celoten dokument bo razdeljen na več datotek glede na vsako stran, glejte posnetek zaslona:

Kliknite za prenos Kutools za Word in brezplačno preskusno različico zdaj!


Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

  • Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
  • V Wordov dokument hkrati vstavite več slik v mape.
  • Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
  • Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
  • Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...
Komentarji (9)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Poskušal sem razdeliti word datoteko s 166 stranmi in daje 166 datotek, vsaka s 166 stranmi?
Ta komentar je moderator na spletnem mestu minimiziral
Skript VBA: Razdelite dokument v ločene datoteke na vsakih 10 ali n strani, ki niso delovale
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Sergej,
Zgornja koda dobro deluje v mojem Wordovem dokumentu, katero različico Worda uporabljate?
In kateri korak je bil v vaši operaciji narobe?
Ta komentar je moderator na spletnem mestu minimiziral
Koda VBscript je povzročila zrušitev Worda. Poskušal sem razdeliti 32Mb Wordovo datoteko s številnimi stranmi, vendar se zdi, da Word tega ne zmore prek VBscripta.
Vseeno hvala
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Studia,
Koda VBA se lahko zruši, ko je velik dokument, ni stabilen, zato vam priporočam, da uporabite naše orodje Kutools za Word, posodobljeno in podporo za rešitev te naloge, lahko jo prenesete in brezplačno preskusno različico 30 dni.
Prosim, poskusite, hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Zame VBA ustvari en sam dokument, ki je kopija izvirnika in to je to.
Ta komentar je moderator na spletnem mestu minimiziral
ta koda daje napako pri prevajanju, ki kaže, da vrsta uporabniške definicije ni definirana
Ta komentar je moderator na spletnem mestu minimiziral
dobre stvari. Uporabil sem ga za razdelitev z 1 stranjo 1 besednega dokumenta, bilo je uspešno, le da ima vsak dokument (po razdelitvi) skupaj 2 strani, čeprav je 2. stran vedno prazna. 
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja programska oprema za pomoč starejšim, ki niso dovolj računalniško pismeni, da bi uporabljali zmogljive funkcije Worda v javnem računalniku.

Dokumenti moje mame so v pogonu USB.
Navajen sem na mape z isto temo
1) različice
2) poglavje na dokument
3) sinhronizirajte z OneDrive
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL