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

Sut i rannu dogfen yn sawl dogfen mewn gair?

Os oes gennych ddogfen eiriau enfawr y mae angen i chi ei rhannu'n sawl dogfen, cymerwch ychydig funudau i ddarllen y tiwtorial hwn. Bydd y tiwtorial hwn yn dangos dau ddull i chi ar gyfer rhannu dogfen yn sawl dogfen.


Hollti dogfen Word gan amffinydd penodedig gyda VBA

Yn lle rhannu dogfen yn sawl dogfen â llaw, bydd y dull hwn yn cyflwyno VBA i rannu dogfen Word â'r amffinydd penodedig yn Word. Gwnewch fel a ganlyn:

1. Gwasgwch Alt + F11 allweddi gyda'i gilydd i agor ffenestr Microsoft Visual Basic for Application;

2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch islaw cod VBA i mewn i ffenestr y Modiwl agoriadol newydd.

VBA: Rhannwch Ddogfen Word yn Ddogfennau Lluosog gan 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 pwyswch allwedd F5 i gymhwyso'r VBA.

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

Nodyn:
(1) Gwnewch yn siŵr eich bod yn ychwanegu eich amffinydd yr un peth â "///" yn yr is-brawf i'r ddogfen rhwng pob adran o'r testun yr ydych am ei wahanu. Hefyd, gallwch chi newid "///" i unrhyw amffinyddion i ddiwallu'ch angen.
(2) Gallwch chi newid y dogfennau "Nodiadau" yn yr is Brawf i weddu i'ch anghenion.
(3) A bydd y dogfennau hollti yn cael eu cadw i'r un lle â'r ffeil wreiddiol.
(4) Nid oes angen i chi ychwanegu amffinydd at ddiwedd y ffeil wreiddiol, os gwnewch hynny, bydd dogfen wag ar ôl ei hollti.

Hollti dogfen Word yn ôl tudalen gyda VBA

Dyma VBA arall i'ch helpu chi i rannu un ddogfen Word yn lluosog i luosog yn ôl tudalen yn Word. Gwnewch fel a ganlyn:

1. Gwasgwch Alt + F11 allweddi gyda'i gilydd i agor ffenestr Microsoft Visual Basic for Application;

2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch islaw cod VBA i mewn i ffenestr y Modiwl agoriadol newydd.

VBA: Rhannwch Ddogfen yn Ddogfennau Lluosog yn ôl Tudalen yn 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 hollti yn cael eu cadw i'r un lle â'r ffeil wreiddiol.


Hollti dogfen Word trwy bennawd / tudalen / toriad adran / egwyl tudalen gyda defnyddio Kutools ar gyfer Word

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

Kutools am Word yn ychwanegiad defnyddiol i hwyluso'ch gwaith a gwella'ch gallu i brosesu dogfen Word. Treial Am Ddim am 60 diwrnod! Ei gael Nawr!

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

2. Yn y dialog Hollti agoriadol yn y sgrin, gallwch wneud fel a ganlyn:

(1) Dewiswch y ffordd hollti o'r Wedi'i rannu gan rhestr ostwng.
Mae'r nodwedd hon yn cefnogi 6 ffordd hollti: pennawd 1, seibiannau tudalen, seibiannau adran, tudalennau, pob n tudalen, ac ystodau tudalen arfer fel y dangosir isod y llun:

(2) Cliciwch y Pori botwm  i nodi y ffolder cyrchfan y byddwch yn arbed y dogfennau rhanedig ynddo;

(3) Teipiwch allweddair i mewn fel rhagddodiad enwau dogfennau newydd yn y Rhagddodiad Dogfen blwch.

Awgrym:
(1) Os ydych chi'n nodi'r rhaniad, rhannwch y ddogfen gyfredol â Pob n tudalen, mae angen i chi nodi'r rhif yn y Pob n tudalen blwch;

(2) Os ydych chi'n nodi rhannu'r ddogfen gyfredol yn ôl ystodau tudalennau arfer, mae angen i chi nodi'r ystodau tudalennau arfer hyn sydd wedi'u gwahanu gan atalnodau yn y tudalen blwch, er enghraifft, math 1, 3-5, 12 yn y blwch.

3. Cliciwch y Ok botwm i ddechrau hollti.

Yna mae'r ddogfen gyfredol yn cael ei rhannu â'r ffordd hollti benodol, a bydd dogfennau newydd yn cael eu cadw i'r ffolder cyrchfan mewn swmp.

Pori tabbed a golygu sawl dogfen Word fel Firefox, Chrome, Internet Explore 10!

Efallai y byddwch chi'n gyfarwydd â gweld sawl tudalen we yn Firefox / Chrome / IE, a newid rhyngddynt trwy glicio tabiau cyfatebol yn hawdd. Yma, mae Office Tab yn cefnogi prosesu tebyg, sy'n eich galluogi i bori trwy sawl dogfen Word mewn un ffenestr Word, a newid rhyngddynt yn hawdd trwy glicio ar eu tabiau. Cliciwch i gael treial am ddim nodweddion llawn!
Porwch ddogfennau sawl gair mewn un ffenestr fel Firefox


Erthyglau cymharol:



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 (45)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan geisiaf rannu dogfen y ddogfen Word trwy ddefnyddio'r cod VB uchod, Ei hollti trwy gael gwared ar yr holl ddelweddau a gwrthrychau mewnosodedig.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n cael problem debyg i un Dhamo. Dechreuais gyda ffeil fawr gyda llawer o reolaethau cynnwys wedi'u mewnosod. Pan rannais fy ffeil Word gan ddefnyddio'r cod VB, cafodd y rheolaethau cynnwys i gyd eu trosi i destun rheolaidd. A oes unrhyw ffordd i rannu ffeil heb golli fformat y gwreiddiol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo. Sut gallaf rannu .doc nid un dudalen i bob dogfen gan ddefnyddio'r sgriptiau hyn? Ee 10 neu 5 tudalen y ddogfen
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl dîm, mae VBA ar gyfer Rhannu dogfen yn ddogfen un dudalen lluosog yn gweithio'n dda, ond y broblem yw nad oes gan ddogfennau hollt y fformatau tabl. (nid yw fformatau tabl yn y brif ddogfen wedi'u fformatio fel tabl mewn dogfennau wedi'u hollti). Diolch ymlaen llaw os gallaf gael y macros, fel nad yw fformatau tabl yn y brif ddogfen yn cael eu haflonyddu mewn dogfennau hollt
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cymwynasgar iawn diolch! Roedd set 'darllen yn unig' yn fy nogfen wreiddiol. Nid yw hyn yn cael ei drosglwyddo i'r dogfennau newydd. A yw hyn yn bosibl i'w ychwanegu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw Kutools ar gyfer Word yn gweithio ar gyfer dogfennau darllen yn unig.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn anffodus, ni allaf rannu tudalennau gyda Kutools. Beth alla i ei wneud? Rwy'n cael y neges gwall hon: Informationen über das Aufrufen von JIT-Debuggen anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung. ************** Ausnahmetext ************** System.NotSupportedException: Das angegebene Pfadformat wird nicht unterstützt. bei System.Security.Util.StringExpressionSet.CanonicalizePath(Llwybr Llinynnol, Boole needFullPath) bei System.Security.Util.StringExpressionSet.CreateListFromExpressions(String[]str, Boole needFullPath) bei System.Security.Security.Permissions.FileAccess. Rheolaeth AccessControlActions, Llinynnol[] pathListOrig, checkForDuplicates Boole, Boole needFullPath, Boole copyPathList) bei System.Security.Permissions.FileIOPermission..ctor(FileIOPermission Mynediad mynediad, Llinynnol[] pathList, Boole checkForDuplicates, Boole needi System.Duplicates. InternalCreateDirectoryHelper(Llwybr Llinynnol, Boole checkHost) yn System.IO.Directory.CreateDirectory(Llwybr Llinynnol) bei Kutools.FormDocumentSplit.€ () bei Kutools.FormDocumentSplit.› ( Gwrthrych “ , EventArgs ” Windows .For. OnClick(EventArgs e) yn System.Windows.Forms.Button.OnClick(EventArgs e) yn System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) yn System.Windows.F orms.Control.WmMouseUp(Neges&m, MouseButtons botwm, Int32 cliciau) yn System.Windows.Forms.Control.WndProc(Neges&m) yn System.Windows.Forms.ButtonBase.WndProc(Neges&m) yn System.Windows.Forms. Button.WndProc(Neges&m) yn System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message&m) bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message&m) bei System.Windows.Forms.NativeWindow.Callback() IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lpram)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn rhy anodd i bensiynwr ddeall beth ddigwyddodd i'r hen ffordd i ffenestri saith roedd y rhaglen honno mor hawdd i ni bobl hŷn ei dilyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae eich macro yn gweithio 'N SYLWEDDOL wel, fodd bynnag, yr wyf yn ei gwneud yn ofynnol i'r dogfennau hollt gadw eu hymylon cul a dau gynllun coluimn. Yn fwy trwy lwc na barn (!), Llwyddais i gyflawni hyn â llaw ac roedd y canlyniad terfynol yn union fel yr oeddwn ei angen. Yna defnyddiais y recordydd macro ond nid oes gennyf y wybodaeth o Word VBA i newid y cod a gofnodwyd i gyflawni hyn. Gallwch chi helpu? Diolch ymlaen llaw!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ceisiais y cod dogfen hollt cyntaf ac nid oedd yn gweithio. Dywedodd ei fod yn ei rannu'n dair adran, ond ni wnaeth hynny.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bydd y VBA cyntaf yn rhannu'r ddogfen gyfredol yn ôl amffinydd "///". A wnaethoch chi ychwanegu'r amffinydd hollti "///" yn eich dogfen?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Anghofiwch amdano, ceisiais sawl gwaith gyda'r rhifau llythrennau, nad oedd yn gweithio, yna gwelais ei fod yn dileu fy sylwadau. Dim ond i nodi nad oedd y cod cyntaf yn gweithio i mi, dywedodd ei fod yn torri'r ddogfen yn dair adran, ond nid oedd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Oes rhywun yn gwybod sut i newid enw'r ffeiliau ar ôl hollti'r prif un dwi am newid yr enwau yn ôl Pennawd y ffeil
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fe wnes i'r Cod VBA: dogfen wedi'i rhannu'n ddogfennau lluosog yn ôl amffinydd, mae'n rhannu'r ddogfen ond yn anffodus mae'r graffeg yn cael ei ddileu, hefyd yn fformatio. A oes ateb i hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y cod macro
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch, roedd hyn yn ddefnyddiol iawn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rydych chi newydd arbed llwyth Sh * t o amser i mi, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch!

Un cwestiwn Oes gennych chi unrhyw syniad i gadw'r holl ddogfennau rhanedig yn PDF?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiais y cod o'r adran "Split Word Document By Page With VBA". Bu'n gweithio i rannu'r dogfennau ond bu'n gwneud llanast o'r fformatio - gan achosi i'r hyn a ddylai fod wedi bod ar 2 dudalen fod ar 5 yn lle hynny. Chwaraeais o gwmpas gyda'r cod a dod o hyd i ateb yn y diwedd.


Disodlwyd y llinell hon: docSingle.Range.Paste 'gludo cynnwys y clipfwrdd i'r ddogfen newydd

gyda'r llinell hon: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

Gobeithio y bydd hyn yn helpu rhai ohonoch sydd wedi cael problemau fformatio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiais y cod o'r adran "Split Word Document By Page With VBA". Sut ddylwn i ddiwygio'r cod er mwyn cynnal y pennawd gwreiddiol ym mhob un o'r ffeiliau newydd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
fel ychwanegiadau uno unigol
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gall nodwedd Hollti (Dogfen) o Kutools ar gyfer Word helpu defnyddwyr i rannu dogfen Word trwy bennawd 1, toriad tudalen, toriad adran, neu dudalen.
Yn ogystal, mae Kutools ar gyfer Word hefyd yn cynnwys nodwedd Cyfuno i uno dogfennau Word lluosog yn un.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae angen i mi rannu'r ddogfen gan ddefnyddio ystod y dudalen. er enghraifft roeddwn i eisiau rhannu 1 i 10 tudalen mewn dogfen arall. sut y gallaf ei wneud
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo - mae gen i'r un cwestiwn, unrhyw ffordd i wneud hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Allwch chi rannu'r ddogfen yn seiliedig ar arddulliau Pennawd 1 fel eich "amffinydd".
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Andrew,
Gall y sgript VBA rannu'r ddogfen gyfan fesul tudalen. Os oes angen i chi rannu trwy bennawd 1, rydym yn awgrymu rhoi cynnig ar Kutools ar gyfer Word's Hollti (Dogfen) nodwedd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw porthiant wedi'i lawrlwytho yn agor o gwbl. Aros am amser hir.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir