Sut i Rhannu Dogfen Word yn Ddogfennau Lluosog?

Os oes gennych chi ddogfen Word fawr y mae angen ei rhannu'n sawl dogfen lai, bydd y tiwtorial hwn yn eich arwain trwy dri dull effeithiol. P'un a yw'n well gennych ddefnyddio VBA i rannu gan amffinydd penodol neu yn ôl tudalennau, neu ddewis ymarferoldeb symlach Kutools ar gyfer Word, fe welwch ateb sy'n addas i'ch anghenion.

• Hollti dogfen Word gan amffinydd penodedig gyda VBA
• Rhannwch ddogfen Word trwy bennawd / tudalen / toriad adran / toriad tudalen gan ddefnyddio Kutools ar gyfer Word
• Hollti dogfen Word yn ôl tudalen gyda VBA

Hollti dogfen Word gan amffinydd penodedig gyda VBA

Yn hytrach na rhannu dogfen â llaw, gallwch ddefnyddio VBA i rannu dogfen Word gan amffinydd penodol. Dilynwch y camau hyn:

1. Pwyswch Alt + F11 i agor ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod VBA isod i ffenestr y modiwl.

   Sub SplitNotes(delim As String, strFilename As String)
   Dim doc As Document
   Dim arrNotes
   Dim I As Long
   Dim X As Long
   Dim Response As Integer
   arrNotes = Split(ActiveDocument.Range, delim)
   Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections. Do you wish to proceed?", 4)
   If Response = 7 Then Exit Sub
   For I = LBound(arrNotes) To UBound(arrNotes)
   If Trim(arrNotes(I)) <> "" Then
   X = X + 1
   Set doc = Documents.Add
   doc.Range = arrNotes(I)
   doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
   doc.Close True
   End If
   Next I
   End Sub
   Sub test()
   'delimiter & filename
   SplitNotes "///", "Notes "
   End Sub

3. Cliciwch ar y Run botwm neu wasg F5 i weithredu'r VBA.
4. Yn naidlen Microsoft Word, cadarnhewch trwy glicio Ydy.

   

Rhannwch ddogfen Word trwy bennawd / tudalen / toriad adran / toriad tudalen gan ddefnyddio Kutools ar gyfer Word

Mae Kutools ar gyfer Word yn darparu ffordd fwy cyfleus a hyblyg o rannu dogfen o'i gymharu â dulliau llaw neu VBA. Mae'n cynnig opsiynau lluosog i rannu dogfen yn ôl penawdau, tudalennau, toriadau adran, toriadau tudalen, pob n tudalen, neu ystodau tudalen arferol, sy'n eich galluogi i deilwra'r broses hollti i'ch anghenion penodol.

1. Cliciwch Kutools Byd Gwaith > Hollti i alluogi'r Hollti nodwedd.

   

2. Yn yr ymgom Dogfen Hollti, ffurfweddwch yr opsiynau canlynol:

   Dewiswch ddull hollti o'r Wedi'i rannu gan rhestr gwympo. Mae'r opsiynau sydd ar gael yn cynnwys pennawd 1, toriadau tudalen, toriadau adran, tudalennau, pob n tudalen, neu ystodau tudalen arferol. Cliciwch ar y Pori botwm i ddewis ffolder cyrchfan ar gyfer y dogfennau hollti. Rhowch allweddair fel y rhagddodiad ar gyfer enwau'r dogfennau newydd yn y Rhagddodiad Dogfen maes. Tip: Clicio ar y Adnewyddu botwm Gall preivew yr enwau dogfennau hollti yn y Rhagolwg blwch. Cliciwch Ok.

Bydd y ddogfen yn cael ei rhannu yn ôl y dull penodedig, a bydd y ffeiliau newydd yn cael eu cadw i'r ffolder dynodedig.

Hollti dogfen Word yn ôl tudalen gyda VBA

Os oes angen i chi rannu dogfen Word yn gyflym yn ddogfennau lluosog, pob un yn cynnwys un dudalen, gallwch ddefnyddio macro VBA i awtomeiddio'r dasg hon. Dilynwch y camau isod:

1. Pwyswch Alt + F11 i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, yna gludwch y cod VBA canlynol i ffenestr y modiwl newydd:

   Sub SplitIntoPages()
   Dim docMultiple As Document
   Dim docSingle As Document
   Dim rngPage As Range
   Dim iCurrentPage As Integer
   Dim iPageCount As Integer
   Dim strNewFileName As String
   Application.ScreenUpdating = False 'Makes the code run faster and reduces screen flicker a bit.
   Set docMultiple = ActiveDocument 'Work on the active document
   Set rngPage = docMultiple.Range 'Instantiate the range object
   iCurrentPage = 1
   'Get the document's page count
   iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
   Do Until iCurrentPage > iPageCount
       If iCurrentPage = iPageCount Then
           rngPage.End = ActiveDocument.Range.End 'Last page (no next page)
       Else
           'Find the beginning of the next page
           'Must use the Selection object. The Range.Goto method will not work on a page
           Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
           'Set the end of the range to the point between the pages
           rngPage.End = Selection.Start
       End If
       rngPage.Copy 'Copy the page into the Windows clipboard
       Set docSingle = Documents.Add 'Create a new document
       docSingle.Range.Paste 'Paste the clipboard contents to the new document
       'Remove any manual page break to prevent a second blank
       docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
       'Build a new sequentially numbered file name based on the original multi-paged file name and path
       strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
       docSingle.SaveAs strNewFileName 'Save the new single-paged document
       iCurrentPage = iCurrentPage + 1 'Move to the next page
       docSingle.Close 'Close the new document
       rngPage.Collapse wdCollapseEnd 'Go to the next page
   Loop 'Go to the top of the do loop
   Application.ScreenUpdating = True 'Restore the screen updating
   'Destroy the objects.
   Set docMultiple = Nothing
   Set docSingle = Nothing
   Set rngPage = Nothing
   End Sub

3. Cliciwch ar y Run botwm neu wasg F5 i weithredu'r VBA.

Erthyglau cysylltiedig:

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