stedet for splitting dokument til flere dokumenter manuelt, vi kan dele dokumentet opp i flere dokumenter med VBA
Trinn 1:?. Trykk "Alt-F11" for å åpne Microsoft Visual Basic for Application vinduet;
Trinn 2: Klikk Module på kategorien Sett inn, kopiere og lime inn følgende VBA kode i Module vinduet;
Trinn 3: Deretter klikker du på Kjør-knappen for å bruke VBA
Sub SplitNotes (delim As String, strFilename As String)
Dim doc Som Document
Dim arrNotes
Dim Jeg As Long
Dim X As Long
Dim Response As Integer
arrNotes = Split (ActiveDocument.Range, delim)
respons = MsgBox ("Dette vil splitte dokumentet inn" & UBound (arrNotes) + 1 & "? sections.Do du ønsker å fortsette", 4)
Hvis responsen = 7 Then Exit Sub
For jeg = LBound (arrNotes) Til UBound (arrNotes)
Hvis Trim (arrNotes (I)) < > "" Så
X = X + 1
Sett doc = Documents.Add
doc.Range = arrNotes (I)
doc.SaveAs ThisDocument .Path & "\\" &Amp; strFilename & (, "000" X) -format
doc.Close Sann
End If
Neste jeg
End Sub
Sub test ()
'skilletegn & filnavn
SplitNotes "///", "Notes"
End Sub
Note:
1. Sørg for å legge inn skilletegn som det samme som "///"
i sub test til dokumentet mellom hver del av teksten du ønsker å skille. Du kan også endre "///"
til eventuelle skilletegn for å møte dine behov.
2. Du kan endre dokumentene "Notater"
i under Test for å dekke dine behov.
3. Og splitting dokumenter vil bli lagret på samme sted med den opprinnelige filen.
4. Du trenger ikke å legge delimiter til slutten av den opprinnelige filen, hvis du gjør det, vil det være et tomt dokument etter splitting.
Dette er VBA for Splitting dokument til flere single-vekslet dokument
Sub SplitIntoPages ()
Dim docMultiple Som Document
Dim docSingle Som Document
Dim rngPage Som Range
Dim iCurrentPage As Integer
Dim iPageCount As Integer
Dim strNewFileName As String
Application.ScreenUpdating = False 'Gjør koden kjøre raskere og reduserer skjermen _
flimre litt.
Sett docMultiple = ActiveDocument 'Arbeid på det aktive dokumentet _
(den tiden inneholder Utvalg)
Set rngPage = docMultiple.Range' instantiate utvalget objekt
iCurrentPage = 1
"komme siden dokumentets teller
iPageCount = docMultiple.Content.ComputeStatistics (wdStatisticPages)
Gjør Inntil iCurrentPage > iPageCount
Hvis iCurrentPage = iPageCount Så
rngPage.End = ActiveDocument.Range.End 'siste side (det skal ikke være en neste side)
Else Anmeldelser 'Finne begynnelsen av neste side
' Må bruke markeringsobjekt. Den Range.Goto metoden vil ikke fungere på en side
Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
'Sett enden av området til et punkt mellom sidene
< em> rngPage.End = Selection.Start
End If
rngPage.Copy 'eksemplar på siden til utklippstavlen i Windows
Set docSingle = Documents.Add' opprette en ny dokument
docSingle.Range.Paste 'lime inn innholdet på utklippstavlen til det nye dokumentet
"slett alle manuelle sideskift for å unngå en andre blank
docSingle.Range.Find. Utfør Findtext: = "^ m", ReplaceWith: = ""
"bygge en ny sekvensielt nummererte filnavnet basert på den opprinnelige multi-sidevekslet filnavnet og banen
strNewFileName = Erstatt ( docMultiple.FullName, "Doc", "_" & Høyre $ ("000" & iCurrentPage, 4) & ".doc")
docSingle.SaveAs strNewFileName 'lagre den nye single-vekslet dokument
iCurrentPage = iCurrentPage + 1 'flytte til neste side
docSingle.Close' lukke det nye dokumentet
rngPage.Collapse wdCollapseEnd "gå til neste side
Loop 'gå til toppen av gjør sløyfe
Application.ScreenUpdating = True' gjenopprette skjermen oppdatering
'Destroy stedene.
Sett docMultiple = Ingenting
Set docSingle = ingenting
Set rngPage = ingenting
End Sub
Merk: splitting dokumenter vil bli lagret på samme sted med den opprinnelige . fil
For mer informasjon om disse kodene, kan du besøke:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=922 og http://www.vbaexpress.com/kb/getarticle Php? kb_id = 727
Split-dokument til flere dokumenter med Kutool for Word
Hvis du ikke er kjent med makro, er det svært komplisert å dele dokumentet inn flere dokumenter ved hjelp av VBA, men med Kutools for Word'Split funksjonen, kan du enkelt dele dokumenter i flere dokumenter.
Kutools for Word, en hendig add-in, omfatter grupper av verktøy for å lette arbeidet ditt og forbedre din evne til behandling Word-dokument. Gratis prøveversjon i 45 dager! Få det nå
Vennligst gjelder nytten ved å klikke Enterprise >!; Dele. Se skjermbilde:
Trinn 1: Klikk Enterprise > Split, vil det være en popup dialogboks i skjermbildet. Se skjermbilde:
Du kan se resultatene som vises som nedenfor:
Merk: Du kan også dele filen til flere dokumenter ved overskrifter (før fordelt på overskrifter, bør du legge til overskrifter ved å klikke kategorien Startside og velg en type overskrifter i filen først), inndelingsskift og sideskift (legg inndelingsskift og sideskift ved å klikke Page Layout > Breaks til fil først)
For mer detaljert informasjon om Split Document of Kutools for Word. , vennligst besøk: Split Dokument funksjonen beskrivelse
.
Hvordan dele dokumentet opp i flere dokumenter i Word
Next Page:Hvordan fjerne alle spalteskift i Word?