Sut i rannu dogfen Word yn ffeiliau ar wahân bob 5 neu n dudalen?

Wrth weithio gyda dogfennau Word mawr, efallai y bydd angen i chi rannu'r ddogfen yn ffeiliau llai, ar wahân er mwyn eu trin, eu rhannu neu eu golygu yn haws. Gall rhannu dogfen bob 5 neu 10 neu nifer penodol o dudalennau fod yn ateb ymarferol ar gyfer rheoli cynnwys hir yn fwy effeithlon.

Mae copïo a gludo tudalennau â llaw fesul un yn cymryd llawer o amser ac yn aneffeithlon. Yn y tiwtorial hwn, byddwn yn cyflwyno dulliau cyflym a hawdd o rannu dogfen Word yn ffeiliau ar wahân bob N tudalen:

Rhannwch ddogfen Word yn ffeiliau ar wahân bob N tudalen gyda chod VBA

Rhannwch ddogfen Word yn ffeiliau ar wahân bob N tudalen gyda nodwedd anhygoel

Rhannwch ddogfen Word yn ffeiliau ar wahân bob N tudalen gyda chod VBA

I rannu dogfen fawr yn ffeiliau ar wahân yn seiliedig ar bob tudalen N, gall y cod VBA canlynol eich cynorthwyo. Dilynwch y camau hyn:

1. Dal i lawr ALT + F11 i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a chopïwch a gludwch y cod canlynol i'r modiwl gwag:

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 page count you want to 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 the page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The number is greater than the document number." & vbCrLf & "Please re-enter", 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. Ar ôl gludo'r cod, dal yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > Cyfeiriadau. Yn y Cyfeiriadau - Prosiect blwch deialog, gwiriwch y Mynegiadau Rheolaidd Microsoft VBScript 5.5 opsiwn gan y Cyfeiriadau sydd ar Gael rhestr. Gweler sgrinluniau:
4. Cliciwch OK, yna pwyswch F5 i redeg y cod.
5. A Porwch Am Ffolder bydd blwch deialog yn ymddangos. Dewiswch y ffolder lle rydych chi am gadw'r ffeiliau hollt, a chliciwch OK.



6. Bydd anogwr arall yn ymddangos yn gofyn am nifer y tudalennau rydych chi am rannu â nhw. Rhowch y cyfrif tudalennau a ddymunir a chliciwch OK.



7. Bydd y ddogfen yn cael ei rhannu'n ffeiliau ar wahân bob N tudalen. Llywiwch i'r ffolder penodedig i weld y canlyniadau.

Rhannwch ddogfen Word yn ffeiliau ar wahân bob N tudalen gyda nodwedd anhygoel

Kutools am Word yn darparu pwerus Hollti swyddogaeth sy'n eich galluogi i rannu dogfen Word fawr yn gyflym yn sawl ffeil ar wahân yn seiliedig ar Bennawd 1, toriadau tudalen, toriadau adran, neu dudalennau. Mae'r nodwedd hon yn symleiddio'r hyn a fyddai fel arall yn broses waith llaw ddiflas.

1. Cliciwch Kutools Byd Gwaith > Hollti.

   

2. Yn y blwch deialog sy'n ymddangos, ffurfweddwch yr opsiynau canlynol yn ôl yr angen:
   1. dewiswch y Pob n tudalen opsiwn gan y Wedi'i rannu gan fwydlen.
   2. Nodwch y n gwerth yn y blwch mewnbwn.
   3. Dewiswch leoliad arbed.
   4. Nodwch ragddodiad ar gyfer y dogfennau hollti.

      

3. Ar ôl cwblhau'r gosodiadau, cliciwch OK. Bydd y ddogfen yn cael ei rhannu'n ffeiliau lluosog yn seiliedig ar yr opsiwn a ddewiswyd (ee, pob 7 tudalen).

   

Gan ddefnyddio'r Hollti nodwedd yn Kutools ar gyfer Word yn gwneud rhannu dogfennau mawr yn ffeiliau llai, hylaw yn syml ac yn effeithlon.

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!

🤖 Nodweddion Kutools AI: Cynhyrchu Cynnwys / Ailysgrifennu Testun / Dogfen Holi ac Ateb / Cael Atebion Cyflym / Cyfieithu dogfennau / Dogfen Bwyleg (Fformat Cadw)...

📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF...

✏ Golygu Cynnwys: Darganfod Swp ac Amnewid ar draws Ffeiliau Lluosog / Newid Maint Pob Llun / Trawsosod Rhesi Bwrdd a Cholofnau / Trosi Tabl i Testun...

🧹 Ymdrech Glân: swap i ffwrdd Mannau Ychwanegol / Toriadau Adran / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'r Dileu grŵp...

➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Lluniau Lluosog / Darganfod mwy yn y Mewnosod grŵp...

🔍 Detholiadau Manwl: pinbwynt Tudalennau Penodol / Tablau / Siapiau / Pennawd Paragraffau / Gwella llywio gyda mwy dewiswch Nodweddion...

⭐ Gwelliannau Seren: Llywiwch i Unrhyw Leoliad / Awto-Mewnosod Testun Ailadroddus / Toglo Rhwng Windows Document / 11 Trosi offer...

???? Eisiau rhoi cynnig ar y nodweddion hyn? Dadlwythwch Kutools ar gyfer Word nawr! 🚀

Lawrlwythiad Am Ddim     Prynu Nawr     Dysgwch fwy am Kutools ar gyfer Word

 

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - 100+ Offer ar gyfer Word

• 🤖 Nodweddion Kutools AI: cynhyrchu, Ailysgrifennu, Crynhowch, cyfieithu Dogfennau / Cael Atebion Cyflym / Dogfen Bwyleg (Fformat Cadw)
• 📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Trosi swp i PDF
• ✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid / Newid Maint Pob Llun
• 🧹 Ymdrech Glân: Tynnwch Fannau Ychwanegol / Dileu Toriadau Adran
• ➕ Mewnosodiadau Creadigol: Mewnosod Mil o Wahanwyr / Mewnosod Blychau Gwirio / Creu Codau QR

Lawrlwythiad Am Ddim Prynu Nawr Dysgwch fwy am Kutools