Conas doiciméad Word a roinnt i gcomhaid ar leithligh gach 5 nó n leathanach?
Má tá doiciméad mór Word agat ina bhfuil na céadta leathanach, agus anois, ba mhaith leat an doiciméad seo a roinnt ina chomhaid ar leithligh gach 10 nó n leathanach. An bhfuil aon bhealach tapa agus éasca leis an bpost seo a réiteach gan na leathanaigh a chóipeáil agus a ghreamú ceann ar cheann?
Roinn doiciméad Word i gcomhaid ar leithligh gach 10 nó n leathanach le cód VBA
Roinn doiciméad Word i gcomhaid ar leithligh gach 10 nó n leathanach le gné iontach
Roinn doiciméad Word i gcomhaid ar leithligh gach 10 nó n leathanach le cód VBA
Chun doiciméad mór a roinnt i gcomhaid ar leithligh bunaithe ar gach 10 nó n leathanach, is féidir leis an gcód VBA seo a leanas fabhar a thabhairt duit, déan mar seo é le do thoil:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Agus ansin, cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód thíos sa mhodúl bán oscailte:
Cód VBA: Roinn doiciméad i gcomhaid ar leithligh gach 10 nó n leathanach:
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. Tar éis an cód thuas a ghreamú, fós sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil le do thoil uirlisí > tagairtí, agus sa popped amach Tagairtí-Tionscadal bosca dialóige, seiceáil Léirithe Rialta Microsoft VBScript 5.5 rogha sa Tagairtí atá ar Fáil bosca liosta, féach an scáileán:
4. Ansin cliceáil OK cnaipe, agus ansin brúigh F5 eochair chun an cód seo a rith, agus a Brabhsáil Chun Fillteán taispeántar bosca dialóige, roghnaigh fillteán le do thoil inar mian leat na comhaid scoilte a chur isteach, féach an scáileán:
5. Ansin cliceáil OK cnaipe, agus tá bosca pras eile popped amach chun a mheabhrú duit uimhir chomhaireamh na leathanach a theastaíonn uait a roinnt bunaithe ar, féach an scáileán:
6. Agus ansin cliceáil OK cnaipe, tá an doiciméad gníomhach Word roinnte i gcomhaid ar leithligh gach 10 leathanach, is féidir leat dul san fhillteán sonraithe chun na torthaí a fheiceáil:
Roinn doiciméad Word i gcomhaid ar leithligh gach 10 nó n leathanach le gné iontach
Kutools le haghaidh Word tá gné chumhachtach ann- Scoilt feidhm, leis an bhfóntas seo, is féidir leat doiciméad mór Word a roinnt go tapa i iliomad comhad ar leithligh bunaithe ar Cheannteideal1, briseadh leathanaigh, briseadh rannáin agus leathanach.
Leid:Chun é seo a chur i bhfeidhm Scoilt gné, ar dtús, ba cheart duit an Kutools le haghaidh Word, agus ansin an ghné a chur i bhfeidhm go tapa agus go héasca.
Tar éis a shuiteáil Kutools le haghaidh Word, déan mar seo le do thoil:
1. Cliceáil Kutools Plus > Scoilt, féach ar an scáileán:
2. Sa bhosca dialóige popped out, socraigh na hoibríochtaí seo a leanas de réir mar is gá duit, féach an scáileán:
3. Tar éis duit na socruithe a chríochnú, cliceáil le do thoil OK, agus roinnfear an doiciméad iomlán ina chomhaid iolracha bunaithe ar gach leathanach, féach an scáileán:
Cliceáil chun Kutools for Word a íoslódáil agus triail saor in aisce anois!
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!
🤖 Cúntóir Kutools AI: athraigh do chuid scríbhinn le AI - Gin Ábhar / Athscríobh Téacs / Déan achoimre ar Dhoiciméid / Fiosraigh le haghaidh Faisnéise bunaithe ar Doiciméad, ar fad laistigh de Word
📘 Máistreacht Doiciméad: Leathanaigh Scoilte / Cumaisc Doiciméid / Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/HTML...) / Baisc a thiontú go PDF / Easpórtáil Leathanaigh mar Íomhánna / Priontáil Comhaid Il ag an am céanna...
✏ Eagarthóireacht na nÁbhar: Faigh Baisc agus Ionadaigh thar Chomhaid Il / Athraigh Méid Gach Pictiúr / Trasnaigh Rónna Tábla agus Colúin / Tiontaigh Tábla go Téacs...
🧹 Effortless Glan: Sguab as Spásanna Breise / Sosanna Alt / Gach Ceanntásca / Boscaí Téacs / Hipearnasc / Le haghaidh tuilleadh uirlisí a bhaint, ceann chuig ár Bain Grúpa...
➕ Ionsáigh Cruthaitheach: cuir isteach Míle Deighilteoir / Boscaí Seiceála / Cnaipí Raidió / Cód QR / barcode / Tábla Líne Trasnánach / Fotheideal Cothromóid / Fotheideal Íomhá / Fotheideal Tábla / Pictiúir Il / Faigh amach níos mó sa Cuir isteach Grúpa...
🔍 Roghanna Beachtais: Pionta leathanaigh ar leith / táblaí / cruthanna / míreanna ceannteideal / Feabhsaigh an loingseoireacht le níos mó Roghnaigh gnéithe...
⭐ Feabhsuithe Réalta: Déan nascleanúint go tapa chuig aon láthair / cuir isteach téacs athchleachtach go huathoibríoch / scoránaigh gan uaim idir fuinneoga doiciméad / 11 Uirlisí Tiontaithe...