Kuinka jakaa Word-asiakirja useiksi asiakirjoiksi?

Jos sinulla on suuri Word-asiakirja, joka on jaettava useisiin pienempiin asiakirjoihin, tämä opetusohjelma opastaa sinua kolmen tehokkaan menetelmän läpi. Halusitpa käyttää VBA:ta jakamiseen tietyllä erottimella tai sivuilla tai valita Kutools for Wordin virtaviivaistetut toiminnot, löydät tarpeisiisi sopivan ratkaisun.

• Jaa Word-asiakirja määritetyllä erottimella VBA:lla
• Jaa Word-asiakirja otsikon/sivun/osion/sivunvaihdon mukaan käyttämällä Kutools for Wordia
• Jaa Word-asiakirja sivulta VBA:lla

Jaa Word-asiakirja määritetyllä erottimella VBA:lla

Asiakirjan manuaalisen jakamisen sijaan voit käyttää VBA:ta Word-asiakirjan jakamiseen tietyllä erottimella. Toimi seuraavasti:

1. lehdistö Alt + F11 avataksesi Microsoft Visual Basic for Applications -ikkunan.
2. Napauta liite > Moduulit, ja liitä alla oleva VBA-koodi moduuliikkunaan.

   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. Valitse ajaa tai paina F5 suorittaaksesi VBA:n.
4. Vahvista Microsoft Word -ponnahdusikkunassa napsauttamalla Kyllä.

   

Jaa Word-asiakirja otsikon/sivun/osion/sivunvaihdon mukaan käyttämällä Kutools for Wordia

Kutools for Word tarjoaa helpomman ja joustavamman tavan jakaa asiakirja verrattuna manuaalisiin menetelmiin tai VBA:han. Se tarjoaa useita vaihtoehtoja asiakirjan jakamiseen otsikoiden, sivujen, osionvaihtojen, sivunvaihtojen, n:n sivun välein tai mukautettujen sivualueiden mukaan, jolloin voit räätälöidä jakamisprosessin omien tarpeidesi mukaan.

1. Napauta Kutools Plus > Jakaa jotta Jakaa ominaisuus.

   

2. Määritä Jaa asiakirja -valintaikkunassa seuraavat asetukset:

   Valitse jakomenetelmä kohdasta Jaettu avattavasta luettelosta. Käytettävissä olevia vaihtoehtoja ovat otsikko 1, sivunvaihdot, osionvaihdot, sivut, joka n. sivu tai mukautetut sivualueet. Valitse selailla nappia valitaksesi kohdekansion jaetuille asiakirjoille. Kirjoita uusien asiakirjojen nimien etuliitteenä avainsana Asiakirjan etuliite ala. Vihje: Klikkaamalla virkistää nappia voi esikatsella jaettujen asiakirjojen nimet preview laatikko. Napauta Ok.

Asiakirja jaetaan määritetyn menetelmän mukaisesti ja uudet tiedostot tallennetaan määritettyyn kansioon.

Jaa Word-asiakirja sivulta VBA:lla

Jos sinun on jaettava Word-asiakirja nopeasti useisiin asiakirjoihin, joista jokainen sisältää yhden sivun, voit automatisoida tämän tehtävän VBA-makron avulla. Noudata alla olevia ohjeita:

1. lehdistö Alt + F11 avaa Microsoft Visual Basic for Applications ikkunassa.
2. Napauta liite > Moduulit, liitä sitten seuraava VBA-koodi uuteen moduuliikkunaan:

   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
   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 (no 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. Valitse ajaa tai paina F5 suorittaaksesi VBA:n.

Aiheeseen liittyviä artikkeleita:

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!

🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...

📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...

✏ Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...

🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...

➕ Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...

🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...

⭐ Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...

???? Haluatko kokeilla näitä ominaisuuksia? Lataa Kutools for Word nyt! 🚀

Ilmainen lataus     Osta nyt     Lue lisää Kutools for Wordista

 

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Yli 100 Wordin työkalua

• 🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super puolalainen / Super käännös / AI editointi / AI Proofread
• 📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Erämuunnos PDF-muotoon
• ✏ Sisältö Editointi: Erä Etsi ja korvaa / Muuta kaikkien kuvien kokoa
• 🧹 Vaivaton puhdistus: Poista ylimääräiset välilyönnit / Poista osion katkokset
• ➕ Luovat lisäosat: Aseta Tuhat erottimet / Lisää valintaruudut / Luo QR-koodeja

Ilmainen lataus Osta nyt Lue lisää Kutoolsista