Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako razdeliti dokument Word v ločene datoteke vsak 5 ali n strani?

Če imate velik Wordov dokument, ki vsebuje več sto strani, zdaj pa želite razdeliti ta dokument v ločene datoteke vsakih 10 ali n strani. Ali obstaja hiter in enostaven način za rešitev tega dela, ne da bi kopirali in lepljivali strani enega za drugim?

Razdelite Wordov dokument v ločene datoteke vsak 10 ali n strani s kodo VBA

Razdelite Wordov dokument v ločene datoteke vsako stran 1 s programom Kutools for Word


Razdelite dokument Word v ločene datoteke na vsaki strani:

z Kutools for Word's Split funkcijo, lahko hitro razdelite velik dokument Word v več ločenih datotek, ki temeljijo na Heading1, prelomu strani, odstavku in strani strani.

doc razdeli besedo vsakih n strani 9

Kutools for Word: z več kot 100 priročnimi dodatki za Word, lahko brezplačno poskusite brez omejitev v 60 dneh. Kliknite za prenos in brezplačno preizkusite zdaj!


Razdelite Wordov dokument v ločene datoteke vsak 10 ali n strani s kodo VBA

Če želite velik dokument razdeliti v ločene datoteke na podlagi vseh strani 10 ali n, vam lahko naslednja koda VBA naredi uslugo, storite tako:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

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

VBA koda: Razdelite dokument v ločene datoteke vsak 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 popped out Reference-projekt pogovorno okno, preveri Microsoft VBScript Regular Expressions 5.5 možnost v Razpoložljive reference polje s seznamom, si oglejte sliko zaslona:

doc razdeli besedo vsakih n strani 1

4. Nato kliknite OK in nato pritisnite F5 ključ za zagon te kode in a Brskaj po mapi prikaže se pogovorno okno, izberite mapo, v katero želite vstaviti razdeljene datoteke, glejte sliko zaslona:

doc razdeli besedo vsakih n strani 2

5. Nato kliknite OK gumb in drugo potrditveno polje se izpiše, da vas opomni, da vnesete številko strani, na katero želite razdeliti, na podlagi, si oglejte posnetek zaslona:

doc razdeli besedo vsakih n strani 3

6. In nato kliknite OK gumb, aktivni Wordov dokument je razdeljen na ločene datoteke na vsaki strani 10, lahko prikažete rezultate:

doc razdeli besedo vsakih n strani 4


Razdelite Wordov dokument v ločene datoteke vsako stran 1 s programom Kutools for Word

Kutools for Word vključuje močno funkcijo, Split s tem pripomočkom lahko hitro razdelite velik dokument Word v več ločenih datotek, ki temeljijo na Heading1, prelomu strani, prekinitvi razdelka in strani.

Kutools for Word : z več kot 100 priročnimi dodatki za Word, lahko brezplačno poskusite brez omejitev v dnevih 60.

Po namestitvi Kutools for Word, storite tako:

1. Kliknite Podjetje > Split, si oglejte sliko zaslona:

doc razdeli besedo vsakih n strani 5

2. V izpuščenem Razdelite dokument pogovorno okno, kliknite doc razdeli besedo vsakih n strani 7 gumb, da izberete mapo za postavitev razdeljenih datotek in nato izberite stran Iz Razdeli z spustni seznam, si oglejte posnetek zaslona:

doc razdeli besedo vsakih n strani 6

3. Ko končate nastavitve, kliknite OK, celoten dokument pa bo razdeljen na več datotek na vsaki strani, glejte sliko zaslona:

doc razdeli besedo vsakih n strani 8

Kliknite, če želite prenesti Kutools za Word in brezplačno preizkusiti zdaj!


Priporočena orodja za produktivnost Worda

shot kutools beseda kutools zavihek 1180x121
shot kutools beseda kutools plus zavihek 1180x120

Kutools for Word - več kot 100 napredne funkcije Za Microsoft Word shranite svoj čas 50%

  • Zapletene in ponavljajoče se operacije lahko opravite enkratno obdelavo v sekundah.
  • V dokument Worda vstavite več slik v mapah.
  • Združite in združite več datotek Word v mapah v eno z želenim naročilom.
  • Razdelite trenutni dokument v ločene dokumente v skladu z naslovom 1, odlomkom odseka ali drugimi merili.
  • Pretvorite datoteke med Doc in Docx, Docx in PDF, zbirko orodij za običajne konverzije in izbiro, in tako naprej...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mike · 10 days ago
    For me, the VBA creates a single document that is a copy of the original and that's it.
  • To post as a guest, your comment is unpublished.
    Studia · 14 days ago
    The VBscript code made Word crash. I was trying to split a 32Mb Word file with many pages but it seems Word can't handle it through VBscript.
    Thanks anyway
    • To post as a guest, your comment is unpublished.
      skyyang · 13 days ago
      Hello, Studia,
      The VBA code may crash when there is a large document, it is not stable, so I recommend you use our Kutools for Word tool, it has updated, and support to solve this task, you can download it and free trial 30 day.
      Please try, thank you!
  • To post as a guest, your comment is unpublished.
    Sergey · 2 months ago
    VBA Script: Split a document into separate files every 10 or n pages not worked
    • To post as a guest, your comment is unpublished.
      skyyang · 1 months ago
      Hello, Sergey,
      The above code works well in my Word document, which Word version do you use?
      And which step went wrong in your operation?
  • To post as a guest, your comment is unpublished.
    Lena · 3 months ago
    i have been trying to split a word file of 166 pages and it gives 166 files each with 166 pages?