Note: The other languages of the website are Google-translated. Back to English

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

Os oes gennych ddogfen Word fawr sy'n cynnwys cannoedd o dudalennau, ac yn awr, hoffech rannu'r ddogfen hon yn ffeiliau ar wahân bob 10 neu n tudalen. A oes unrhyw ffordd gyflym a hawdd o ddatrys y swydd hon heb gopïo a gludo'r tudalennau fesul un?

Rhannwch ddogfen Word yn ffeiliau ar wahân bob 10 neu n dudalen gyda chod VBA

Rhannwch ddogfen Word yn ffeiliau ar wahân bob 10 neu n dudalen gyda nodwedd anhygoel


Rhannwch ddogfen Word yn ffeiliau ar wahân bob 10 neu n dudalen gyda chod VBA

I rannu dogfen fawr yn ffeiliau ar wahân yn seiliedig ar bob 10 neu n dudalen, gall y cod VBA canlynol ffafrio chi, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Ac yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored:

Cod VBA: Rhannwch ddogfen yn ffeiliau ar wahân bob 10 neu n dudalen:

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 pasio'r cod uchod, yn dal yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > cyfeiriadau, ac yn y popped allan Cyfeiriadau-Prosiect blwch deialog, gwirio Mynegiadau Rheolaidd Microsoft VBScript 5.5 opsiwn yn y Cyfeiriadau sydd ar Gael blwch rhestr, gweler y screenshot:

4. Yna cliciwch OK botwm, ac yna pwyswch F5 allwedd i redeg y cod hwn, ac a Porwch Am Ffolder arddangosir blwch deialog, dewiswch ffolder lle rydych chi am roi'r ffeiliau hollt i mewn, gweler y screenshot:

5. Yna cliciwch OK botwm, ac mae blwch prydlon arall wedi'i popio allan i'ch atgoffa rhag nodi'r rhif cyfrif tudalen yr ydych am ei rannu yn seiliedig arno, gweler y screenshot:

6. Ac yna cliciwch OK botwm, mae'r ddogfen Word weithredol wedi'i rhannu'n ffeiliau ar wahân bob 10 tudalen, gallwch fynd i'r ffolder penodedig i weld y canlyniadau:


Rhannwch ddogfen Word yn ffeiliau ar wahân bob 10 neu n dudalen gyda nodwedd anhygoel

Kutools am Word yn cynnwys nodwedd bwerus- Hollti swyddogaeth, gyda'r cyfleustodau hwn, gallwch chi rannu dogfen Word fawr yn gyflym i sawl ffeil ar wahân yn seiliedig ar Bennawd1, toriad tudalen, toriad adran a thudalen.

Awgrym:I gymhwyso hyn Hollti nodwedd, yn gyntaf, dylech lawrlwytho'r Kutools am Word, ac yna cymhwyswch y nodwedd yn gyflym ac yn hawdd.

Ar ôl gosod Kutools am Word, gwnewch fel hyn:

1. Cliciwch Kutools Byd Gwaith > Hollti, gweler y screenshot:

2. Yn y blwch deialog popped out, gosodwch y gweithrediadau canlynol yn ôl yr angen, gweler y screenshot:

3. Ar ôl gorffen y gosodiadau, cliciwch OK, a bydd y ddogfen gyfan yn cael ei rhannu'n ffeiliau lluosog yn seiliedig ar bob tudalen, gweler y screenshot:

Cliciwch i lawrlwytho Kutools for Word a threial am ddim nawr!


Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% Amser

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...
sylwadau (8)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi bod yn ceisio hollti ffeil geiriau o 166 tudalen ac mae'n rhoi 166 o ffeiliau yr un gyda 166 o dudalennau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sgript VBA: Rhannwch ddogfen yn ffeiliau ar wahân bob 10 neu n tudalen heb eu gweithio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Sergey,
Mae'r cod uchod yn gweithio'n dda yn fy nogfen Word, pa fersiwn Word ydych chi'n ei ddefnyddio?
A pha gam aeth o'i le yn eich llawdriniaeth?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwnaeth y cod VBscript ddamwain Word. Roeddwn yn ceisio rhannu ffeil Word 32Mb gyda llawer o dudalennau ond mae'n ymddangos na all Word ei drin trwy VBscript.
Diolch beth bynnag
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Stiwdio,
Efallai y bydd y cod VBA yn chwalu pan fo dogfen fawr, nid yw'n sefydlog, felly rwy'n argymell eich bod chi'n defnyddio ein teclyn Kutools ar gyfer Word , mae wedi diweddaru, a chefnogaeth i ddatrys y dasg hon, gallwch chi ei lawrlwytho a threialu am ddim 30 diwrnod.
Ceisiwch, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
I mi, mae'r VBA yn creu un ddogfen sy'n gopi o'r gwreiddiol a dyna ni.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'r cod hwn yn rhoi gwall crynhoad sy'n dangos nad yw'r math o ddiffiniad defnyddiwr wedi'i ddiffinio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
pethau da. Fe wnes i ei ddefnyddio i rannu gyda dogfen 1 tudalen 1 gair, roedd yn llwyddiannus ac eithrio bod pob dogfen (ar ôl rhannu), mae ganddi gyfanswm o 2 dudalen er bod 2il dudalen bob amser yn wag. 
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir