Kuinka jakaa Word-asiakirja erillisiin tiedostoihin 5 tai n sivun välein?

Kun käsittelet suuria Word-asiakirjoja, saatat joutua jakamaan asiakirjan pienempiin, erillisiin tiedostoihin käsittelyn, jakamisen tai muokkaamisen helpottamiseksi. Asiakirjan jakaminen 5 tai 10 tai tietyn sivumäärän välein voi olla käytännöllinen ratkaisu pitkän sisällön hallintaan tehokkaammin.

Sivujen manuaalinen kopioiminen ja liittäminen yksitellen on aikaa vievää ja tehotonta. Tässä opetusohjelmassa esittelemme nopeita ja helppoja tapoja jakaa Word-asiakirja erillisiin tiedostoihin N sivun välein:

Jaa Word-asiakirja erillisiin tiedostoihin N:n sivun välein VBA-koodilla

Jaa Word-asiakirja erillisiin tiedostoihin N:n sivun välein hämmästyttävän ominaisuuden avulla

Jaa Word-asiakirja erillisiin tiedostoihin N:n sivun välein VBA-koodilla

Jos haluat jakaa suuren asiakirjan erillisiin tiedostoihin jokaisen N sivun perusteella, seuraava VBA-koodi voi auttaa sinua. Toimi seuraavasti:

1. Pitää alhaalla ALT + F11 avaa Microsoft Visual Basic for Applications ikkunassa.
2. Napauta liite > Moduulitja kopioi ja liitä seuraava koodi tyhjään moduuliin:

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 number of pages per 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 a valid page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The entered number exceeds the total page count of the document." & vbCrLf & "Please enter a valid number.", 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. Kun olet liittänyt koodin, se on edelleen Microsoft Visual Basic for Applications -ikkunassa Työkalut > Viitteet. Vuonna Referenssit - Projekti valintaikkunassa, tarkista Microsoft VBScriptin säännölliset lausekkeet 5.5 Vaihtoehto Saatavilla olevat referenssit lista. Katso kuvakaappaukset:
4. Napauta OK, Paina sitten F5 suorittaaksesi koodin.
5. A Selaa kansioon valintaikkuna tulee näkyviin. Valitse kansio, johon haluat tallentaa jaetut tiedostot, ja napsauta OK.



6. Näyttöön tulee toinen kehote, jossa kysytään, kuinka monta sivua haluat jakaa. Syötä haluamasi sivumäärä ja napsauta OK.



7. Asiakirja jaetaan erillisiin tiedostoihin N sivun välein. Siirry määritettyyn kansioon nähdäksesi tulokset.

Jaa Word-asiakirja erillisiin tiedostoihin N:n sivun välein hämmästyttävän ominaisuuden avulla

Kutools for Word tarjoaa voimakkaan Jakaa toiminto, jonka avulla voit nopeasti jakaa suuren Word-asiakirjan useiksi erillisiksi tiedostoiksi otsikon 1, sivunvaihtojen, osionvaihtojen tai sivujen perusteella. Tämä ominaisuus virtaviivaistaa muuten työlästä manuaalista prosessia.

1. Napauta Kutools Plus > Jakaa.

   

2. Määritä seuraavat asetukset näkyviin tulevassa valintaikkunassa tarpeen mukaan:
   1. Valitse n sivun välein Vaihtoehto Jaettu valikosta.
   2. Määritä n arvo syöttökentässä.
   3. Valitse tallennuspaikka.
   4. Määritä etuliite jaetuille asiakirjoille.

      

3. Kun olet tehnyt asetukset, napsauta OK. Asiakirja jaetaan useisiin tiedostoihin valitun vaihtoehdon perusteella (esim. joka 7. sivu).

   

Käyttäen Jakaa Kutools for Wordin ominaisuus tekee suurten asiakirjojen jakamisesta pienempiin, hallittavissa oleviin tiedostoihin sekä yksinkertaista että tehokasta.

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