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

Hogyan lehet dokumentumot több dokumentumra felosztani szóban?

Ha masszív Word dokumentummal rendelkezik, amelyet több dokumentumra kell bontania, szánjon néhány percet az oktatóanyag elolvasására. Ez az oktatóanyag két módszert mutat be a dokumentum több dokumentumra történő felosztására.


Felosztja a Word dokumentumot egy meghatározott elválasztóval a VBA segítségével

Ahelyett, hogy a dokumentumot több dokumentumra bontaná manuálisan, ez a módszer egy VBA-t vezet be, amely egy Word-dokumentumot feloszt a Word meghatározott elválasztójával. Kérjük, tegye a következőket:

1. nyomja meg Alt + F11 billentyűk együttesen a Microsoft Visual Basic for Application ablak megnyitásához;

2. Kattints betétlap > Modulok, majd illessze be a VBA kód alá az új nyitó Modul ablakba.

VBA: A Word dokumentum felosztása több dokumentumra elválasztóval

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. Ezután kattintson futás gombot vagy nyomja meg az F5 gombot a VBA alkalmazásához.

4. Az előugró Microsoft Word dokumentumban kattintson az Igen gombra a folytatáshoz.

Jegyzet:
(1) Ne felejtse el megadni az elválasztóját ugyanúgy, mint a "///" az al tesztben a különálló szövegrészek között lévő dokumentumhoz. Ezenkívül megváltoztathatja "///" bármely elválasztóhoz, hogy megfeleljen az Ön igényeinek.
(2) Megváltoztathatja a dokumentumokat "Jegyzetek" az al Teszt az Ön igényeinek megfelelően.
(3) A felosztó dokumentumokat ugyanarra a helyre menti az eredeti fájl.
(4) Nem szükséges elválasztót hozzáadni az eredeti fájl végéhez, ha mégis, akkor a felosztás után üres dokumentum lesz.

A Word dokumentumot oldalanként ossza fel a VBA segítségével

Itt van egy másik VBA, amely segít gyorsan felosztani egy Word-dokumentumot oldalanként többször a Word-ben. Kérjük, tegye a következőket:

1. nyomja meg Alt + F11 billentyűk együttesen a Microsoft Visual Basic for Application ablak megnyitásához;

2. Kattints betétlap > Modulok, majd illessze be a VBA kód alá az új nyitó Modul ablakba.

VBA: A dokumentum felosztása több dokumentumra oldalanként a Wordben

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. Ezután kattintson futás vagy nyomja meg a gombot F5 kulcs a VBA alkalmazásához.

Jegyzet: A felosztó dokumentumokat ugyanarra a helyre menti az eredeti fájl.


A Word dokumentum felosztása fejléc / oldal / szakasz törés / oldal törés szerint a Kutools for Word használatával

Ha a Kutools for Word telepítve van, alkalmazhatja azt Hasított funkcióval könnyen feloszthatja az egyik dokumentumot oldalakra, fejlécekre, szakaszokra vagy oldalakra, amire a Word-ben szüksége van.

Kutools for Word egy praktikus bővítmény, amely megkönnyíti munkáját és javítja Word-dokumentum-feldolgozási képességét. Ingyenes próbaverzió a 60 napok! Szerezd meg most!

1.Kattints Kutools Plus > Hasított hogy engedélyezze a Hasított funkciót.

2. A képernyőn a Megnyitás párbeszédpanelen a következőket teheti:

(1) Válassza ki a hasítási módot a Felosztva legördülő listából.
Ez a szolgáltatás 6 felosztási módot támogat: 1. címsor, oldaltörések, szakaszszakaszok, oldalak, n oldalanként és egyéni oldaltartományok az alábbi képernyőkép szerint:

(2) Kattintson a gombra Tallózás gomb  pontosítani a célmappát, ahová a felosztott dokumentumokat menteni fogja;

(3) Írjon be egy kulcsszót az új dokumentumnevek előtagjaként a Dokumentum előtag doboz.

Tipp:
(1) Ha megadja az aktuális dokumentum felosztását N oldalanként, meg kell adnia a számot a N oldalanként doboz;

(2) Ha megadja az aktuális dokumentum egyéni oldaltartományok szerinti felosztását, ezeket az egyéni oldaltartományokat vesszővel elválasztva kell megadnia a oldal mezőbe írja be például az 1, a 3-5, a 12 mezőt.

3. Kattintson az Ok gombot a hasítás megkezdéséhez.

Ezután az aktuális dokumentumot a megadott felosztási módszerrel osztja fel, és az új dokumentumokat tömegesen menti a célmappába.

Füles böngészés és több Word-dokumentum szerkesztése, például Firefox, Chrome, Internet Explore 10!

Ismerős lehet, hogy több weboldalt tekint meg a Firefox / Chrome / IE böngészőben, és a megfelelő fülekre kattintva válthat közöttük. Itt az Office Tab támogatja a hasonló feldolgozást, amely lehetővé teszi több Word-dokumentum böngészését egy Word ablakban, és a fülükre kattintva könnyedén válthat közöttük. Kattintson a teljes funkciós ingyenes próbaverzióhoz!
Böngésszen több szavas dokumentumot egy ablakban Firefox néven


Relatív cikkek:



Ajánlott Word-termelékenységi eszközök

 

Kutools for Word - Több mint 100 speciális szolgáltatás a Word számára, takarítson meg 50% időt

  • A bonyolult és ismételt műveletek másodpercek alatt egyszeri feldolgozást végezhetnek.
  • Egyszerre több képet illesszen be a mappákba a Word dokumentumba.
  • Egyesítsen és egyesítsen több Word-fájlt a mappák között a kívánt sorrenddel.
  • Bontja az aktuális dokumentumot külön dokumentumokká címsor, szakasz törés vagy egyéb szempontok szerint.
  • Fájlok konvertálása a Doc és a Docx, a Docx és a PDF között, a közös konverzióhoz és kiválasztáshoz szükséges eszközök gyűjteménye stb.
A megjegyzések rendezése szerint
Hozzászólások (45)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Amikor megpróbálom felosztani a Word dokumentumot a fenti VB kóddal, akkor a felosztás az összes kép és beillesztett objektum eltávolításával történik.
A weboldal moderátora ezt a megjegyzést minimalizálta
Dhamóhoz hasonló problémám van. Egy nagy fájllal kezdtem, sok beágyazott tartalomvezérlővel. Amikor felosztottam a Word fájlomat a VB kóddal, a tartalomvezérlők mindegyike normál szöveggé alakult. Van valami mód a fájl felosztására anélkül, hogy elveszítené az eredeti formázását?
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló. Hogyan oszthatom fel a .doc fájlt dokumentumonként nem egy oldalra ezekkel a szkriptekkel? Pl. 10 vagy 5 oldal dokumentumonként
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves csapat! A VBA for Splitting dokumentum több egyoldalas dokumentumra jól működik, de a probléma az, hogy a felosztott dokumentumok nem rendelkeznek táblázatformátumokkal. Előre is köszönöm, ha be tudom szerezni a makrókat, hogy a törzsdokumentum táblázatos formátumait ne zavarják a felosztott dokumentumok
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon segítőkész köszönöm! Az eredeti dokumentumom „csak olvasható” beállítással volt beállítva. Ez nem kerül át az új dokumentumokba. Lehet ezt hozzátenni?
A weboldal moderátora ezt a megjegyzést minimalizálta
A Kutools for Word nem működik csak olvasható dokumentumok esetén.
A weboldal moderátora ezt a megjegyzést minimalizálta
Sajnos a Kutools-szal nem tudok oldalakat felosztani. Mit tehetek? Ezt a hibaüzenetet kapom: 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(String elérési út, logikai needFullPath) bei System.Security.Util.StringExpressionSet.CreateListFromExpression(String[] str, Logikai needFullPath) bei System.Security.istIoPermissionsAFidPaIOPermissions.FidlePathPermissions. AccessControlActions vezérlés, String[] pathListOrig, Boolean checkForDuplicates, Boolean needFullPath, Boolean copyPathList) bei System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess access, String[] pathList, Boolean checkForDuplicates.re) Boolean checkForDuplicates. InternalCreateDirectoryHelper(String elérési út, Boolean checkHost) bei System.IO.Directory.CreateDirectory(String elérési út) bei Kutools.FormDocumentSplit.€ () bei Kutools.FormDocumentSplit.› (Object.FormtroWindows ” )mst.SystemtroCongs ” . OnClick(EventArgs e) bei System.Windows.Forms.Button.OnClick(EventArgs e) bei System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) bei System.Windows.F orms.Control.WmMouseUp(Üzenet& m, MouseButtons gomb, Int32 kattintás) bei System.Windows.Forms.Control.WndProc(Message& m) bei System.Windows.Forms.ButtonBase.WndProc(Message& m) bei System.Windows.Forms. Button.WndProc(Message& m) bei 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 lparam)
A weboldal moderátora ezt a megjegyzést minimalizálta
Egy nyugdíjasnak túl nehéz felfogni, mi történt a régi módszerrel, azt a programot nekünk, időseknek olyan könnyű követni.
A weboldal moderátora ezt a megjegyzést minimalizálta
A makrója működik IGAZÁN nos azonban megkövetelem, hogy a felosztott dokumentumok megtartsák szűk margójukat és kétoszlopos elrendezésüket. Inkább szerencsével, mint döntéssel(!), ezt manuálisan sikerült megvalósítanom, és a végeredmény pont olyan lett, mint amire szükségem volt. Ezután a makrórögzítőt használtam, de nem ismerem a Word VBA-t, hogy módosítsam a rögzített kódot ennek eléréséhez. Tud segíteni? Előre is köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Megpróbáltam az első felosztott dokumentumkódot, de nem működött. Azt írta, hogy három részre bontja, de nem így történt.
A weboldal moderátora ezt a megjegyzést minimalizálta
Az első VBA felosztja az aktuális dokumentumot a "///" határolóval. Hozzáadta a "///" felosztási határolót a dokumentumhoz?
A weboldal moderátora ezt a megjegyzést minimalizálta
Felejtsd el, többször próbálkoztam a számok betűivel, ami nem ment, aztán láttam, hogy kitörölte a megjegyzéseimet. Csak hogy megjegyezzem, az első kód nekem nem működött, azt írta, hogy három részre bontja a dokumentumot, de nem.
A weboldal moderátora ezt a megjegyzést minimalizálta
Tudja valaki hogyan kell megváltoztatni a fájlok nevét a fő felosztása után szeretném megváltoztatni a neveket a fájl fejléce szerint
A weboldal moderátora ezt a megjegyzést minimalizálta
Megcsináltam a VBA kódot: bontsd fel a dokumentumot több dokumentumra határoló szerint, az ugyan felosztja a dokumentumot, de sajnos a grafika törlődik, a formázás is. Van erre megoldás?
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm a makró kódot
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm, ez nagyon hasznos volt!
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon sok időt spóroltál meg nekem, köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm!

Egy kérdés, van ötlete, hogy az összes felosztott dokumentumot PDF-be mentse?
A weboldal moderátora ezt a megjegyzést minimalizálta
A "Word-dokumentum felosztása oldalanként VBA-val" szakasz kódját használtam. Működött a dokumentumok felosztása, de elrontotta a formázást – aminek következtében annak, aminek a 2 oldalon lennie kellett volna, az 5-ös lett volna. Játszottam a kóddal, és végül megtaláltam a megoldást.


Lecseréltem ezt a sort: docSingle.Range.Paste 'másolja be a vágólap tartalmát az új dokumentumba

ezzel a sorral: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

Remélhetőleg ez segít néhánynak, akinek formázási problémái voltak.
A weboldal moderátora ezt a megjegyzést minimalizálta
A "Word-dokumentum felosztása oldalanként VBA-val" szakasz kódját használtam. Hogyan módosítsam a kódot annak érdekében, hogy az összes új fájlban megmaradjon az eredeti fejléc?
A weboldal moderátora ezt a megjegyzést minimalizálta
mint az egyéni egyesítő kiegészítők
A weboldal moderátora ezt a megjegyzést minimalizálta
A Kutools for Word felosztása (dokumentum) funkciója segíthet a felhasználóknak a Word-dokumentum felosztásában 1. címsor, oldaltörés, szakasztörés vagy oldal alapján.
Ezenkívül a Kutools for Word magában foglalja az Egyesítés funkciót is, amellyel több Word dokumentumot egyesíthet egybe.
A weboldal moderátora ezt a megjegyzést minimalizálta
fel kell osztanom a dokumentumot az oldaltartomány használatával. például egy másik dokumentumban 1-10 oldalt akartam felosztani. hogyan tudom megtenni
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Ugyanez a kérdésem lenne, van valami módja ennek?
A weboldal moderátora ezt a megjegyzést minimalizálta
Feloszthatja-e a dokumentumot az 1. címsor stílusai alapján, mint "határolójel".
A weboldal moderátora ezt a megjegyzést minimalizálta
Hi Andrew,
A VBA-szkript oldalanként feloszthatja a teljes dokumentumot. Ha az 1. címsor szerint kell felosztania, javasoljuk, hogy próbálja ki a Kutools for Word Split (Dokumentum) funkcióját.
A weboldal moderátora ezt a megjegyzést minimalizálta
A letöltött mappa egyáltalán nem nyílik meg. Sokáig várni.
Még senki sem írt megjegyzést
Több ingatlan
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi