,,,, i stedet for at opdele dokument til flere dokumenter manuelt, vi kan dele dokument til flere dokumenter med vba.,, trin 1: press ", alt-f11," at åbne microsoft visual basic anvendelse vindue;,, trin 2: klik, modul om, at indsætte, regning, kopiere og pasta følgende vba kode i modul vindue;,, trin 3: så klik, løb, knap til at anvende vba.,,, vba kode: delte dokument til flere dokumenter i henhold til skilletegn for:,,,,,,, - splitnotes (delim som snor, strfilename som snor), dim dok som dokument,,, dim arrnotes, dim jeg så længe, dim x som lange, dim reaktion, som hele,,, arrnotes = split (activedocument.range, delim), respons = msgbox ("det vil splitte dokument til" & ubound (arrnotes) + 1 &."afsnit. ønsker du at gå?"4), hvis svar = 7 ud af afrika, for i = lbound (arrnotes) ubound (arrnotes), hvis trim (arrnotes (i)) < > "" så,,, x = x + 1,,, der er doc = dokumenter. tilføje, dok. range = arrnotes (i), doc.saveas det pågældende dokument. vej & "og" & strfilename & format (x "000"), doc.close sandt,,,,,, hvis det næste, jeg,,, afrika,,, - test(),,,'delimiter & filnavn,,, splitnotes "///////////////", "bemærkninger",,, afrika,,,, note:,,, 1.vær sikker på at tilføje skilletegn for ligesom, "/////////" i sub - test til dokumentet mellem hvert tekstafsnit, du ønsker at adskille.desuden kan du ændre "/////////", til delimiters til at imødekomme deres behov., 2.du kan ændre de dokumenter, "bemærker" i sub - test til dine behov. 3.opdelingen dokumenter vil blive reddet på samme sted, med det oprindelige dossier.,, 4.du behøver ikke at føje skilletegn for til udgangen af det oprindelige dossier, hvis du gør det, vil der være et tomt dokument efter opsplitningen.,,, det er vba opdeling af dokument i flere fælles bippet dokument,,,,,,,, - splitintopages(), dim docmultiple som dokument, dim docsingle som dokument,,, dim rngpage som rækkevidde, dim icurrentpage som heltal, dim ipagecount som heltal, dim strnewfilename som snor,,, application.screenupdating = falske "er koden løbe hurtigere og reducerer skærm _, flimmer lidt.,,, der er docmultiple = activedocument arbejde på aktive dokument _,,, (den, der i øjeblikket indeholder udvælgelse), der rngpage = docmultiple. rækkevidde "instantiate intervallet objekt,,, icurrentpage = 1,,,'get dokumentet er side tæller,,, ipagecount = docmultiple. computestatistics indhold. (wdstatisticpages), indtil icurrentpage > ipagecount,,, hvis icurrentpage = ipagecount så,,, rngpage.end = activedocument.range.end sidste side (der vil ikke være nogen næste side),,,,,,,,,'find begyndelsen af næste side,,,'must brug udvælgelse objekt.området. til metode kan ikke arbejde på en side, selection.goto wdgotopage, wdgotoabsolute, icurrentpage + 1,,,'set den ende af intervallet for punkt mellem sider,,, rngpage.end = valg.,,,,,, hvis rngpage.copy eksemplar side i vinduerne håndklæder,,, der er docsingle = dokumenter. tilføje "skabe et nyt dokument,,, docsingle.range.paste »pasta« udklipsholderen indhold til det nye dokument,,,'remove manuel side pause for at forhindre, at et andet blank,,, docsingle.range.find.execute findtext: =" "m", replacewith: = ",,, byg en ny fortløbende nummereret fil navn på grundlag af de oprindelige multi - bippet file navn og vej,,, strnewfilename = erstatte (docmultiple.fullname." doc "," _ "& lige $(" 000 "& icurrentpage, 4) &." doc "), docsingle.saveas strnewfilename "redde den fælles bippet dokument,,, icurrentpage = icurrentpage + 1 'videre til næste side,,, docsingle.close" tæt på det nye dokument,,, rngpage.collapse wdcollapseend gå til næste side, loop "gå til toppen af gøre loop,,, application.screenupdating = sandt, genoprette skærmen ajourføring,,,'destroy objekterne.,,,,,,, der er fastsat docmultiple = intet,,, der docsingle = intet,,, der rngpage = intet,,, afrika,,,, note:, opsplitningen dokumenter vil blive reddet på samme sted, med det oprindelige dossier. for mere information om disse koder, besøg:,http://www.vbaexpress.com/kb/getarticle.php?kb_id = 922 og http://www.vbaexpress.com/kb/getarticle.php?kb_id = 727,,,,, delte dokument til flere dokumenter med kutool for ord,,, hvis du ikke er bekendt med den, det er meget kompliceret at opdele dokument til flere dokument ved hjælp af vba, men med kutools for ord, "split, funktion, kan man nemt delte dokument til flere dokumenter,.,,,, kutools for ord, en bekvem tilføje, omfatter grupper af instrumenter for at lette deres arbejde og øge deres evne til forarbejdning, word - dokument.gratis i 45 dage.få det nu!,,, ikke anvende nytte ved at klikke, enterprise > dele i porten.se skærmbillede:,,,,, trin 1: klik, enterprise > dele, vil der være en pop - up - dialog på skærmen.se skærmbillede:,,,,, du kan se de resultater, som viser følgende:,,,,,, note:, du også kan dele sagen til flere dokumenter af poster (før opdeling i udgiftsområder, du burde tilføje rubrikker ved at klikke, hjem, tab, og udvælge én type positioner, at sagen først), afsnit pause og side pause (tilføje afsnit pause og side bryde ved at klikke, side layout, >, pauser, fil første)., for mere detaljerede oplysninger om delte dokument, kutools for ord, kan du besøge: delte dokument træk beskrivelse.,,,,