Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i rannu dogfen mewn dogfennau lluosog mewn gair?

Os oes gennych ddogfen geiriau anferthol y mae angen i chi ei rannu'n ddogfennau lluosog, cymerwch ychydig funudau i ddarllen y tiwtorial hwn. Bydd y tiwtorial hwn yn dangos dau ddull i chi rannu dogfen mewn dogfennau lluosog.

Rhannwch ddogfen Word trwy ddileuwr penodol gyda VBA

Rhannwch ddogfen Word fesul tudalen gyda VBA

Rhannwch ddogfen Word trwy bennawd / tudalen / toriad adran / toriad tudalen gyda defnyddio Kutools for Word

Rhannwch un ddogfen Word yn hawdd i nifer lluosog yn ôl tudalen, toriad adran / tudalen, neu bennawd ar unwaith!

Wrth gymharu â rhannu dogfen Word trwy gopïo a threulio, bydd Kutools for Word yn eich gwneud yn haws i chi weithio, a gwella eich effeithlonrwydd gwaith yn ddramatig gan ei nodwedd Hollti, a all rannu'n gyflym ddogfen Word agoriadol i sawl un ar y dudalen, yn ôl toriad adran, yn ôl tudalen torri, neu gan Heading 1 fel y mae ei angen arnoch. Cliciwch ar gyfer prawf rhad ac am ddim 60-day!
dogfennau wedi'u rhannu yn ôl y dudalen

Kutools ar gyfer Word: Ychwanegu 100 Nodweddion Uwch Newydd i Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Tab Swyddfa: Galluogi Golygu a Pori Tabbed yn y Swyddfa, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Bwydlen Clasurol ar gyfer Swyddfa: Dewch â Hen Edrych Swyddfa 2003 Yn ôl i Office 2007, 2010, 2013, 2016 a 2019.

swigod saeth cywir glas Rhannwch ddogfen Word trwy ddileuwr penodol gyda VBA

Yn hytrach na rhannu dogfen mewn dogfennau lluosog â llaw, bydd y dull hwn yn cyflwyno VBA i rannu dogfen Word gan y delimydd penodedig yn Word. Gwnewch fel a ganlyn:

1. Gwasgwch Alt + F11 allweddi gyda'i gilydd i agor ffenestr Microsoft Visual Basic ar gyfer y Ffurflen Gais;

2. Cliciwch Mewnosod > Modiwlau, ac yna gludwch y cod VBA isod i mewn i ffenestr newydd y Modiwl.

VBA: Rhannu Dogfen Word mewn Dogfennau Lluosog trwy Delimiter

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. Yna cliciwch Run botwm neu gwasgwch allwedd F5 i gymhwyso'r VBA.

4. Yn y ddogfen Microsoft Word datgelu, cliciwch y botwm Ie i fynd ymlaen.

Nodyn:
(1) Gwnewch yn siŵr eich bod yn ychwanegu eich delimydd yr un peth â "///" yn yr is-brawf i'r ddogfen rhwng pob rhan o destun rydych chi am ei wahanu. Hefyd, gallwch chi newid "///" i unrhyw delimitwyr i gwrdd â'ch angen.
(2) Gallwch newid y dogfennau "Nodiadau" yn yr is-brawf sy'n gweddu i'ch anghenion.
(3) A bydd y dogfennau rhannu yn cael eu cadw i'r un lle â'r ffeil wreiddiol.
(4) Nid oes angen i chi ychwanegu delimiter hyd at ddiwedd y ffeil wreiddiol, os gwnewch chi, bydd dogfen wag ar ôl rhannu.


swigod saeth cywir glas Rhannwch ddogfen Word fesul tudalen gyda VBA

Dyma VBA arall i'ch helpu chi i rannu un ddogfen Word yn gyflym i nifer o dudalennau yn Word. Gwnewch fel a ganlyn:

1. Gwasgwch Alt + F11 allweddi gyda'i gilydd i agor ffenestr Microsoft Visual Basic ar gyfer y Ffurflen Gais;

2. Cliciwch Mewnosod > Modiwlau, ac yna gludwch y cod VBA isod i mewn i ffenestr newydd y Modiwl.

VBA: Dogfen Rhannu mewn Dogfennau Lluosog trwy Dudalen mewn Word

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 _
(the one currently containing the Selection)
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 (there won't be a 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. Yna cliciwch Run botwm neu wasg F5 allwedd i gymhwyso'r VBA.

Nodyn: Bydd y dogfennau rhannu yn cael eu cadw i'r un lle â'r ffeil wreiddiol.


swigod saeth cywir glas Rhannwch ddogfen Word trwy bennawd / tudalen / toriad adran / toriad tudalen gyda defnyddio Kutools for Word

Os oes gennych Kutools for Word wedi'i osod, gallwch wneud cais amdani Hollti yn gweithio i rannu un ddogfen yn hawdd i mewn i nifer lluosog yn ôl tudalen, pennawd, toriad adran, neu doriad tudalen fel sydd ei angen arnoch mewn Word ..

Kutools ar gyfer Word yn ychwanegiad defnyddiol i hwyluso'ch gwaith a gwella'ch gallu i brosesu dogfen geiriau. Treial am ddim ar gyfer diwrnodau 45! Cael Ei Nawr!

1. Cliciwch Kutools Mwy > Hollti i alluogi'r nodwedd Hollti.
dogfennau rhannu dogfen 001

2. Yn y deialog Hollti agoriadol yn y sgrîn, os gwelwch yn dda (1) nodwch y ffolder cyrchfan y byddwch yn arbed y dogfennau rhaniad i mewn, (2) Gwiriwch y meini prawf y byddwch chi'n eu rhannu gan y Rhannwch gan disgyn i lawr, a (3) cliciwch ar OK botwm. Gweler y sgrin:

Ac yn awr mae'r ddogfen Word bresennol wedi'i rannu gan y meini prawf penodedig (Heading 1 yn fy achos), ac mae'r ffolder cyrchfan yn agor yn awtomatig gyda dogfennau rhanedig. Gweler y sgrin:
dogfennau rhannu dogfen 002

Nodyn: Mae'r nodwedd Rhannu hon wych hefyd yn cefnogi rhannu un Word Word fesul tudalen, yn ôl toriad tudalen, ac yn ôl adran yn torri'n hawdd yn Word. Gweler sgrinluniau isod:

Rhannwch un ddogfen Word i sawl llu o dudalen:

Rhannwch un ddogfen Word i rai lluosog trwy doriad tudalen:

Rhannwch un ddogfen Word i rai lluosog trwy doriad adran:

Pori tablau a golygu dogfennau Word lluosog fel Firefox, Chrome, Rhyngrwyd Archwilio 10!

Efallai y byddwch yn gyfarwydd i weld nifer o dudalennau gwe yn Firefox / Chrome / IE, ac yn newid rhyngddynt trwy glicio tabiau cyfatebol yn rhwydd. Yma, mae Office Tab yn cefnogi prosesu tebyg, sy'n eich galluogi i bori nifer o ddogfennau Word mewn un ffenest Word, ac yn hawdd newid rhyngddynt trwy glicio ar eu tabiau. Cliciwch i gael prawf llawn am ddim!
Pori dogfennau gair lluosog mewn un ffenestr fel Firefox


swigod saeth cywir glasErthyglau cymharol:

Cyfuno dogfennau lluosog a chadw fformat mewn gair




Kutools ar gyfer Word

Mwy na Swyddogaethau Uwch 100 ar gyfer Word 2003, 2007, 2010, 2013, 2016 a 2019

shot-kutools-700-225-kte

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Maya · 1 months ago
    The split works great for me but on page in the merge file turns into 1.5 pages - something with the page layout (+ additional empty page at the end). any ideas how to go around that?
  • To post as a guest, your comment is unpublished.
    Lisa · 6 months ago
    The Split Word By Document with VBA worked for me, but it is adding a blank page at the end of each document. Is there a way around this?
    • To post as a guest, your comment is unpublished.
      Savvyno · 1 months ago
      I am working on this as well but have not found a way to do it besides manually.
    • To post as a guest, your comment is unpublished.
      Steve · 4 months ago
      Does not work at all for me. Goes through the motions but no documents are saved. Maybe because I am using .DOCX files?
      • To post as a guest, your comment is unpublished.
        Savvy · 1 months ago
        After playing with this code for over an hour I discovered you have to save the document you mail merged then you can run the code on the saved document that has all the pages you need to split up. Hope this helps.
        • To post as a guest, your comment is unpublished.
          Steve · 1 months ago
          I always start with a newly-saved document. I found the split documents were actually saved somewhere (I forget; doesn't matter) they were text only - all the formatting had been dropped.
      • To post as a guest, your comment is unpublished.
        Steve · 4 months ago
        Maybe something to do with Windows 7 settings? Thoughts from anyone?
  • To post as a guest, your comment is unpublished.
    Fenice · 7 months ago
    Mais comment garder une mise en page complexe (image de fond, marges, etc) ?
    Great but how to keep the lay-out (background image, margins ?)
  • To post as a guest, your comment is unpublished.
    Andrew · 8 months ago
    Can you split the document based on Heading 1 styles as your "delimiter".
    • To post as a guest, your comment is unpublished.
      kellytte · 2 months ago
      Hi Andrew,
      The VBA script can split the entire document by page. If you need to split by heading 1, we suggest to try Kutools for Word’s Split (Document) feature.
  • To post as a guest, your comment is unpublished.
    SHUBAM AWASTHI · 11 months ago
    i need to split the document using page range. for example i wanted to split 1 to 10 page in another document. how i can do it