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
- A Word dokumentumot oldalanként ossza fel a VBA segítségével
- A Word dokumentum felosztása címsor/oldal/szakasz/oldaltörés szerint a Kutools for Word használatával
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 címsor/oldal/szakasz/oldaltörés szerint a Kutools for Word használatával
Ha telepítette a Kutools for Word programot, alkalmazhatja Hasított funkcióval könnyen feloszthatja az egyik dokumentumot oldalakra, fejlécekre, szakaszokra vagy oldalakra, amire a Word-ben szüksége van.
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!
Előfordulhat, hogy ismerős lehet több weboldal megtekintése Firefox/Chrome/IE böngészőben, és a megfelelő lapokra 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!
Relatív cikkek:
A legjobb irodai hatékonyságnövelő eszközök
Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!
🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása / Szöveg átírása / Összefoglalja a dokumentumokat / Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül
📘 Dokumentummesterség: Felosztott oldalak / Dokumentumok egyesítése / Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...) / Kötegelt konvertálás PDF-be / Oldalak exportálása képként / Nyomtasson több fájlt egyszerre...
✏ Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között / Minden kép átméretezése / Transzponálja a táblázat sorait és oszlopait / Táblázat konvertálása szöveggé...
🧹 Könnyed tisztítás: Söpörj el Extra helyek / Szakaszszünetek / Minden fejléc / Szövegdobozok / Hiperhivatkozások / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...
➕ Kreatív betétek: Beszúrás Ezer elválasztó / Jelölőnégyzetek / Rádió gombok / QR-kód / Vonalkód / Átlós vonal táblázat / Egyenletfelirat / Képfelirat / Táblázat felirata / Több kép / Fedezzen fel többet a Csoport beszúrása...
???? Precíziós kiválasztás: Pontosan konkrét oldalak / asztalok / formák / címsor bekezdései / A navigáció javítása a következővel: több Jelölje ki a funkciókat...
⭐ Star Enhancements: Gyorsan navigáljon bármely helyre / ismétlődő szöveg automatikus beszúrása / zökkenőmentesen válthat a dokumentumablakok között / 11 Konverziós eszközök...