Tips: Andre språk er Google-oversatt. Du kan besøke English versjon av denne lenken.
Logg inn
x
or
x
x
Registrere
x

or

Hvordan dele dokument i flere dokumenter i ord?

Hvis du har et massivt orddokument som du må dele i flere dokumenter, ta noen minutter å lese denne opplæringen. Denne opplæringen viser deg to metoder for å dele et dokument i flere dokumenter.

Split Word-dokument ved spesifisert avgrensning med VBA

Split Word-dokument etter side med VBA

Split Word-dokument ved overskrift / side / seksjonsbrudd / sideskift med bruk av Kutools for Word

Enkelt splitt et Word-dokument til flere for hver side, seksjon / sideskift eller overskrift på en gang!

Sammenligning med å splitte et Word-dokument ved å kopiere og lime, vil Kutools for Word gjøre det enklere for deg å arbeide og forbedre arbeidets effektivitet dramatisk ved hjelp av sin Split-funksjon, som raskt kan splitte dagens Word-dokument til flere på side, ved seksjonsbrudd, etter side pause, eller ved å ha overskrift 1 som du trenger. Klikk for 60-dagers gratis prøveversjon!
ad splitte dokumenter etter side

Kutools for Word: Legg til 100 nye avanserte funksjoner til Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office-fanen: Aktiver Tabbed redigering og surfing på kontoret, Akkurat som Chrome, Firefox, IE 8 / 9 / 10.
Klassisk meny for Office: Ta med gammel titt på Office 2003 Tilbake til Office 2007, 2010, 2013, 2016 og 2019.

pil blå høyre boble Split Word-dokument ved spesifisert avgrensning med VBA

I stedet for å splitte dokumentet i flere dokumenter manuelt, vil denne metoden introdusere en VBA for å dele et Word-dokument med den angitte delimiteren i Word. Vennligst gjør følgende:

1. trykk Alt + F11 nøkler sammen for å åpne Microsoft Visual Basic for Application-vinduet;

2. Klikk innfelt > Modules, og lim deretter inn under VBA-koden i det nye åpningsmodulvinduet.

VBA: Split Word-dokument i flere dokumenter med Delimiter

Sub SplitNotes(delim As String, strFilename As String)
Dim doc As Document
Dim arrNotes
Dim I As Long
Dim X As Long
Dim Response As Integer
arrNotes = Split(ActiveDocument.Range, delim)
Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections.Do you wish to proceed?", 4)
If Response = 7 Then Exit Sub
For I = LBound(arrNotes) To UBound(arrNotes)
If Trim(arrNotes(I)) <> "" Then
X = X + 1
Set doc = Documents.Add
doc.Range = arrNotes(I)
doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
doc.Close True
End If
Next I
End Sub
Sub test()
'delimiter & filename
SplitNotes "///", "Notes "
End Sub

3. Klikk deretter Kjør knappen eller trykk på F5-tasten for å bruke VBA.

4. I det dukker opp Microsoft Word-dokumentet, klikk på Ja-knappen for å fortsette.

Merk:
(1) Pass på å legge til avgrensningen din som den samme som "///" i underprøven til dokumentet mellom hver seksjon av teksten du ønsker å skille fra. Du kan også endre "///" til noen avgrensere for å møte dine behov.
(2) Du kan endre dokumentene "Notes" i sub-testet for å dekke dine behov.
(3) Og splittingsdokumenter blir lagret på samme sted med originalfilen.
(4) Du trenger ikke å legge til avgrensning til slutten av den opprinnelige filen, hvis du gjør det, blir det et tomt dokument etter splitting.


pil blå høyre boble Split Word-dokument etter side med VBA

Her er en annen VBA som hjelper deg med å raskt dele et Word-dokument til flere sider i Word. Vennligst gjør følgende:

1. trykk Alt + F11 nøkler sammen for å åpne Microsoft Visual Basic for Application-vinduet;

2. Klikk innfelt > Modules, og lim deretter inn under VBA-koden i det nye åpningsmodulvinduet.

VBA: Split dokument i flere dokumenter etter side i Word

Sub SplitIntoPages()
Dim docMultiple As Document
Dim docSingle As Document
Dim rngPage As Range
Dim iCurrentPage As Integer
Dim iPageCount As Integer
Dim strNewFileName As String
Application.ScreenUpdating = False 'Makes the code run faster and reduces screen _
flicker a bit.
Set docMultiple = ActiveDocument 'Work on the active document _
(the one currently containing the Selection)
Set rngPage = docMultiple.Range 'instantiate the range object
iCurrentPage = 1
'get the document's page count
iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
Do Until iCurrentPage > iPageCount
If iCurrentPage = iPageCount Then
rngPage.End = ActiveDocument.Range.End 'last page (there won't be a next page)
Else
'Find the beginning of the next page
'Must use the Selection object. The Range.Goto method will not work on a page
Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
'Set the end of the range to the point between the pages
rngPage.End = Selection.Start
End If
rngPage.Copy 'copy the page into the Windows clipboard
Set docSingle = Documents.Add 'create a new document
docSingle.Range.Paste 'paste the clipboard contents to the new document
'remove any manual page break to prevent a second blank
docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
'build a new sequentially-numbered file name based on the original multi-paged file name and path
strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
docSingle.SaveAs strNewFileName 'save the new single-paged document
iCurrentPage = iCurrentPage + 1 'move to the next page
docSingle.Close 'close the new document
rngPage.Collapse wdCollapseEnd 'go to the next page
Loop 'go to the top of the do loop
Application.ScreenUpdating = True 'restore the screen updating
'Destroy the objects.
Set docMultiple = Nothing
Set docSingle = Nothing
Set rngPage = Nothing
End Sub 

3. Klikk deretter Kjør knappen eller trykk F5 nøkkel til å bruke VBA.

Merk: Spaltedokumentene blir lagret på samme sted med originalfilen.


pil blå høyre boble Split Word-dokument ved overskrift / side / seksjonsbrudd / sideskift med bruk av Kutools for Word

Hvis du har Kutools for Word installert, kan du søke på det Dele Funksjon for enkelt å dele ett dokument i flere for hver side, overskrift, seksjonsbrudd eller sideskift som du trenger i Word ..

Kutools for Word er et praktisk tillegg for å lette arbeidet ditt og forbedre din evne til å behandle ordet dokument. Gratis prøveversjon for 45 dager! Få det nå!

1. Klikk Kutools More > Dele for å aktivere Split-funksjonen.
doc delte dokumenter 001

2. I åpningen Split-dialog på skjermen, vær så snill (1) spesifiser destinasjonsmappen du vil lagre delt dokumentene i, (2) sjekk kriteriene du vil dele av fra Delt av rullegardinlisten, og (3) klikker du på OK knapp. Se skjermbilde:

Og nå er det nåværende Word-dokumentet delt opp med de angitte kriteriene (Overskrift 1 i mitt tilfelle), og målmappen åpnes automatisk med delt dokumenter. Se skjermbilde:
doc delte dokumenter 002

Merk: Denne fantastiske Split-funksjonen støtter også delt ett Word-dokument etter side, ved sideskift, og ved snittbrudd enkelt i Word. Se under skjermbilder:

Del et Word-dokument til flere for hver side:

Del ett Word-dokument til flere ved siden av pause:

Del ett Word-dokument til flere ved seksjonsbrudd:

Tabbed surfing og redigering av flere Word-dokumenter som Firefox, Chrome, Internet Utforsk 10!

Du kan være kjent for å vise flere websider i Firefox / Chrome / IE, og bytte mellom dem ved å klikke på tilsvarende faner enkelt. Her støtter Office Tabell lignende behandling, som lar deg bla gjennom flere Word-dokumenter i ett Word-vindu, og enkelt bytte mellom dem ved å klikke på kategoriene sine. Klikk for full funksjon gratis prøveversjon!
Bla gjennom flere orddokumenter i ett vindu som Firefox


pil blå høyre bobleRelative artikler:

Slå sammen flere dokumenter og hold formatet i ord




Kutools for Word

Mer enn 100 Avanserte funksjoner for Word 2003, 2007, 2010, 2013, 2016 og 2019

Skudd-kutools-700-225-KTE

Flere funksjoner | Gratis nedlasting | Bare $ 39.00 for hundrevis av funksjoner

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.
    Maya · 1 months ago
    The split works great for me but on page in the merge file turns into 1.5 pages - something with the page layout (+ additional empty page at the end). any ideas how to go around that?
  • To post as a guest, your comment is unpublished.
    Lisa · 6 months ago
    The Split Word By Document with VBA worked for me, but it is adding a blank page at the end of each document. Is there a way around this?
    • To post as a guest, your comment is unpublished.
      Savvyno · 1 months ago
      I am working on this as well but have not found a way to do it besides manually.
    • To post as a guest, your comment is unpublished.
      Steve · 5 months ago
      Does not work at all for me. Goes through the motions but no documents are saved. Maybe because I am using .DOCX files?
      • To post as a guest, your comment is unpublished.
        Savvy · 1 months ago
        After playing with this code for over an hour I discovered you have to save the document you mail merged then you can run the code on the saved document that has all the pages you need to split up. Hope this helps.
        • To post as a guest, your comment is unpublished.
          Steve · 1 months ago
          I always start with a newly-saved document. I found the split documents were actually saved somewhere (I forget; doesn't matter) they were text only - all the formatting had been dropped.
      • To post as a guest, your comment is unpublished.
        Steve · 5 months ago
        Maybe something to do with Windows 7 settings? Thoughts from anyone?
  • To post as a guest, your comment is unpublished.
    Fenice · 7 months ago
    Mais comment garder une mise en page complexe (image de fond, marges, etc) ?
    Great but how to keep the lay-out (background image, margins ?)
  • To post as a guest, your comment is unpublished.
    Andrew · 8 months ago
    Can you split the document based on Heading 1 styles as your "delimiter".
    • To post as a guest, your comment is unpublished.
      kellytte · 2 months ago
      Hi Andrew,
      The VBA script can split the entire document by page. If you need to split by heading 1, we suggest to try Kutools for Word’s Split (Document) feature.
  • To post as a guest, your comment is unpublished.
    SHUBAM AWASTHI · 11 months ago
    i need to split the document using page range. for example i wanted to split 1 to 10 page in another document. how i can do it