Tips: Andra språk är Google-översatta. Du kan besöka English version av den här länken.
Logga in
x
or
x
x
Registrera
x

or

Hur delas dokument i flera dokument i ord?

Om du har ett massivt orddokument som du behöver dela upp i flera dokument, ta några minuter att läsa den här handledningen. Denna handledning visar dig två metoder för att dela upp ett dokument i flera dokument.

Dela Word-dokument med angiven avgränsare med VBA

Dela Word-dokument efter sida med VBA

Dela Word-dokument med rubrik / sida / avsnittbrott / sidbrytning med att använda Kutools for Word

Dela enkelt ett Word-dokument enkelt till flera efter sida, avsnitt / sidbrytning eller rubrik på en gång!

Jämförande med att dela upp ett Word-dokument genom att kopiera och klistra, kommer Kutools for Word att underlätta arbetet och förbättra din arbetseffektivitet dramatiskt genom sin Split-funktion, som snabbt kan dela upp det aktuella öppningsordet Word-dokumentet till flera efter sida, genom sektionsbrott, vid sida bryta eller med rubrik 1 som du behöver. Klicka för 60-dagars gratis provversion!
Annonsuppdelade dokument per sida

Kutools för Word: Lägg till 100 nya avancerade funktioner till Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Fliken Office: Gör det möjligt Tabbed redigering och bläddring i Office, Precis som Chrome, Firefox, IE 8 / 9 / 10.
Klassisk meny för Office: Ta med gamla kontoret 2003 tillbaka till Office 2007, 2010, 2013, 2016 och 2019.

pilblå höger bubbla Dela Word-dokument med angiven avgränsare med VBA

I stället för att dela upp dokument i flera dokument manuellt, kommer den här metoden att introducera en VBA för att dela ett Word-dokument med den angivna avgränsaren i Word. Gör så här:

1. Tryck Alt + F11 tangenterna tillsammans för att öppna Microsoft Visual Basic for Application-fönstret;

2. Klicka Infoga > Modulerna, och klistra sedan in under VBA-koden i det nya öppningsmodulfönstret.

VBA: Dela Word-dokument i flera dokument 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. Klicka sedan run knappen eller tryck på F5-tangenten för att tillämpa VBA.

4. I det poppade Microsoft Word-dokumentet klickar du på Ja-knappen för att fortsätta.

Notera:
(1) Var noga med att lägga till din avgränsare som samma som "///" i deltestet till dokumentet mellan varje sektion av texten du vill separera. Du kan också ändra "///" till några avgränsare för att möta ditt behov.
(2) Du kan ändra dokumenten "Notes" i deltestet som passar dina behov.
(3) Och splittringsdokumenten sparas på samma plats med originalfilen.
(4) Du behöver inte lägga till avgränsare till slutet av originalfilen, om du gör det kommer det att finnas ett tomt dokument efter splittring.


pilblå höger bubbla Dela Word-dokument efter sida med VBA

Här är en annan VBA som hjälper dig att snabbt dela ett Word-dokument till flera sidor i Word. Gör så här:

1. Tryck Alt + F11 tangenterna tillsammans för att öppna Microsoft Visual Basic for Application-fönstret;

2. Klicka Infoga > Modulerna, och klistra sedan in under VBA-koden i det nya öppningsmodulfönstret.

VBA: Dela dokument i flera dokument per sida 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. Klicka sedan run knappen eller tryck på F5 nyckel för att tillämpa VBA.

Notera: Uppdelningsdokumenten sparas på samma plats med originalfilen.


pilblå höger bubbla Dela Word-dokument med rubrik / sida / avsnittbrott / sidbrytning med att använda Kutools for Word

Om du har Kutools for Word installerat kan du söka det Dela funktion för att enkelt dela ett dokument i flera efter sida, rubrik, sektionsavbrott eller sidbrytning som du behöver i Word ..

Kutools för Word är ett praktiskt tillägg för att underlätta ditt arbete och förbättra din förmåga att bearbeta ordet dokument. Gratis prov för 45 dagar! Hämta den nu!

1. Klicka Kutools More > Dela för att aktivera Split-funktionen.
doc delade dokument 001

2. I den öppna Split-dialogrutan på skärmen, tack (1) Ange destinationsmappen som du ska spara delade dokument i, (2) kolla kriterier du kommer att dela upp från Split by listrutan och (3) klicka på OK knapp. Se skärmdump:

Och nu är det nuvarande Word-dokumentet delat med de angivna kriterierna (Rubrik 1 i mitt fall) och destinationsmappen öppnas automatiskt med delade dokument. Se skärmdump:
doc delade dokument 002

Notera: Denna fantastiska Split-funktion stöder också delat ett Word-dokument efter sida, vid sidbrytning, och genom sektionsbrytning enkelt i Word. Se nedan skärmdumpar:

Dela ett Word-dokument till flera på sidan:

Dela ett Word-dokument till flera efter sidbrytning:

Dela ett Word-dokument till flera genom sektionsavbrott:

Tabbed browsing och redigering av flera Word-dokument som Firefox, Chrome, Internet Explore 10!

Du kan vara bekant att visa flera webbsidor i Firefox / Chrome / IE, och växla mellan dem genom att klicka på motsvarande flikar enkelt. Här stöder Office-fliken liknande bearbetning, vilket gör att du kan bläddra i flera Word-dokument i ett Word-fönster och enkelt växla mellan dem genom att klicka på deras flikar. Klicka för fullständiga funktioner gratis provversion!
Bläddra i flera orddokument i ett fönster som Firefox


pilblå höger bubblaRelativa artiklar:

Slå samman flera dokument och håll formatet i ord




Kutools för Word

Mer än 100 avancerade funktioner för Word 2003, 2007, 2010, 2013, 2016 och 2019

shot-kutools-700-225-KTE

Mer funktioner | Gratis nedladdning | Bara $ 39.00 för hundratals 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.
    Maya · 2 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 · 7 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 · 2 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 · 6 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 · 2 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 · 2 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 · 6 months ago
        Maybe something to do with Windows 7 settings? Thoughts from anyone?
  • To post as a guest, your comment is unpublished.
    Fenice · 8 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 · 9 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 · 3 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 · 1 years 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