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 ar gyfer Word a threial am ddim nawr!
Offer Cynhyrchiant Swyddfa Gorau
Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!
🤖 Cynorthwy-ydd Kutools AI: Trawsnewidiwch eich ysgrifennu gydag AI - Cynhyrchu Cynnwys / Ailysgrifennu Testun / Crynhoi Dogfennau / Ymholwch am Wybodaeth yn seiliedig ar Ddogfen, i gyd o fewn Word
📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF / Allforio Tudalennau fel Delweddau / Argraffu Ffeiliau Lluosog ar unwaith...
✏ Golygu Cynnwys: Swp Dod o Hyd i 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 / Pob Pennawd / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'n Dileu Grŵp...
➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Tabl Llinell Lletraws / Pennawd Hafaliad / Capsiwn Delwedd / Pennawd Tabl / Lluniau Lluosog / Darganfod mwy yn y Mewnosod Grŵp...
🔍 Detholiadau Manwl: pinbwynt tudalennau penodol / tablau / siapiau / paragraffau pennawd / Gwella llywio gyda mwy Dewiswch nodweddion...
⭐ Gwelliannau Seren: Llywiwch yn gyflym i unrhyw leoliad / auto-mewnosod testun ailadroddus / toglo'n ddi-dor rhwng ffenestri dogfennau / 11 Offer Trosi...