Tip: Andre sprog er Google-oversat. Du kan besøge English version af dette link.
Log på
x
or
x
x
Tilmeld
x

or

Sådan opdeles du dokument i flere dokumenter i ord?

Hvis du har et massivt orddokument, som du skal opdele i flere dokumenter, skal du tage et par minutter for at læse denne vejledning. Denne vejledning viser dig to metoder til opdeling af et dokument i flere dokumenter.

Split Word-dokument ved specificeret afgrænsning med VBA

Split Word-dokument efter side med VBA

Split Word-dokument ved overskrift / side / sektionsbrud / sidebrud med brug af Kutools for Word

Nemt splitte et Word-dokument til flere til side, sektion / sideskift eller overskrift på én gang!

Sammenligner splittelsen af ​​et Word-dokument ved at kopiere og indsætte, vil Kutools for Word gøre arbejdet lettere og forbedre dit arbejde effektivt dramatisk ved hjælp af dets Split-funktion, som hurtigt kan splitte det nuværende åbnings Word-dokument til flere fra side, ved sektionsbrud, ved side pause eller ved overskrift 1 som du har brug for. Klik for 60-dages gratis prøveversion!
Annoncer split dokumenter efter side

Kutools for Word: Tilføj 100 Nye avancerede funktioner til Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office-fanen: Aktiver Tabbed redigering og browsing i Office, Ligesom Chrome, Firefox, IE 8 / 9 / 10.
Klassisk menu til Office: Tag det gamle look af Office 2003 tilbage til Office 2007, 2010, 2013, 2016 og 2019.

pil blå højre boble Split Word-dokument ved specificeret afgrænsning med VBA

I stedet for at splitte dokumentet i flere dokumenter manuelt, vil denne metode introducere en VBA til at dele et Word-dokument med den angivne delimiter i Word. Gør venligst som følger:

1. Trykke Alt + F11 nøgler sammen for at åbne Microsoft Visual Basic for Application vinduet;

2. Klik indsatte > Moduler, og indsæt derefter under VBA-kode i det nye åbningsmodulvindue.

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. Klik derefter på Kør knappen eller tryk på F5-tasten for at anvende VBA.

4. I det popping ud Microsoft Word-dokument, skal du klikke på knappen Ja for at fortsætte.

Bemærk:
(1) Sørg for at tilføje din afgrænsning som den samme som "///" i underprøven til dokumentet mellem hver sektion af tekst, du ønsker at adskille. Du kan også ændre "///" til nogen afgrænsere for at imødekomme dit behov.
(2) Du kan ændre dokumenterne "Noter" i sub-testen, der passer til dine behov.
(3) Og opdelingsdokumenterne gemmes på samme sted med den originale fil.
(4) Du behøver ikke at tilføje afgrænsning til slutningen af ​​den oprindelige fil, hvis du gør det, vil der være et tomt dokument efter opdeling.


pil blå højre boble Split Word-dokument efter side med VBA

Her er en anden VBA, der hjælper dig med hurtigt at splitte et Word-dokument til flere sider i Word. Gør venligst som følger:

1. Trykke Alt + F11 nøgler sammen for at åbne Microsoft Visual Basic for Application vinduet;

2. Klik indsatte > Moduler, og indsæt derefter under VBA-kode i det nye åbningsmodulvindue.

VBA: Split dokument i flere dokumenter efter 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. Klik derefter på Kør knappen eller tryk på F5 nøgle til at anvende VBA.

Bemærk: Opdelingsdokumenterne gemmes på samme sted med den oprindelige fil.


pil blå højre boble Split Word-dokument ved overskrift / side / sektionsbrud / sidebrud med brug af Kutools for Word

Hvis du har Kutools for Word installeret, kan du anvende dens Dele funktion til nemt at opdele et dokument i flere efter side, overskrift, sektionsbrud eller sideskift som du har brug for i Word ..

Kutools for Word er en praktisk tilføjelse til at lette dit arbejde og forbedre din evne til at behandle word-dokument. Gratis prøveversion for 45 dage! Hent den nu!

1. Klik Kutools Plus > Dele for at aktivere Split-funktionen.
doc delte dokumenter 001

2. I dialogen Åbning af Split skal du venligst (1) Angiv destinationsmappen, du vil gemme delte dokumenter i, (2) tjek kriterier, du vil splitte af fra Opdelt af drop down liste, og (3) klik på OK knap. Se skærmbillede:

Og nu er det nuværende Word-dokument opdelt efter de angivne kriterier (overskrift 1 i mit tilfælde), og destinationsmappen åbnes automatisk med splitdokumenter. Se skærmbillede:
doc delte dokumenter 002

Bemærk: Denne fantastiske Split-funktion understøtter også delt et Word-dokument efter side, ved sideskift, og ved sektionsbrud let i Word. Se nedenfor skærmbilleder:

Split et Word-dokument til flere på side:

Split et Word-dokument til flere ved siden af ​​pause:

Opdel et Word-dokument til flere ved sektionsbrud:

Tabbed browsing og redigering af flere Word-dokumenter som Firefox, Chrome, Internet Udforsk 10!

Du kan være fortrolig med at se flere websider i Firefox / Chrome / IE, og skifte mellem dem ved at klikke på tilsvarende faner nemt. Her understøtter Office-fanen lignende behandling, som giver dig mulighed for at gennemse flere Word-dokumenter i et Word-vindue og nemt skifte mellem dem ved at klikke på deres faner. Klik for fuld funktion gratis prøveversion!
Gennemse flere orddokumenter i et vindue som Firefox


pil blå højre bobleRelative artikler:

Flet flere dokumenter og hold formatet i ord




Kutools for Word

Mere end 100 Avancerede funktioner til Word 2003, 2007, 2010, 2013, 2016 og 2019

shot-kutools-700-225-KTE

Flere funktioner | Gratis download | Kun $ 39.00 til hundredvis af funktioner

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.
    raid3n06 · 1 years ago
    like individual merge add ons
    • To post as a guest, your comment is unpublished.
      kelly001 · 1 years ago
      The Split (Document) feature of Kutools for Word can help users to split a Word document by heading 1, page break, section break, or page.
      In addition, Kutools for Word also includes Merge feature to merge multiple Word documents into one.
  • To post as a guest, your comment is unpublished.
    Jason · 1 years ago
    I used the code from the "Split Word Document By Page With VBA" section. How should I amend the code in order to maintain the original header in all of the new files?
  • To post as a guest, your comment is unpublished.
    Erica · 1 years ago
    I used the code from the "Split Word Document By Page With VBA" section. It worked to split the documents out but messed up the formatting - causing what should have been on 2 pages to be on 5 instead. I played around with the code and ended up finding a solution.


    I replaced this line: docSingle.Range.Paste 'paste the clipboard contents to the new document

    with this line: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

    Hope this helps some of you who've had formatting issues.
  • To post as a guest, your comment is unpublished.
    Michal · 1 years ago
    Thanks !

    One question do You have any idea to save all the split documents into PDF ?
  • To post as a guest, your comment is unpublished.
    Tjebbe · 1 years ago
    You just saved me a Sh*t load of time, thanks!