Hogyan lehet egy Word-dokumentumot 5 vagy n oldalanként külön fájlokká osztani?
Ha van egy nagy Word-dokumentuma, amely több száz oldalt tartalmaz, és most szeretné ezt a dokumentumot 10 vagy n oldalanként külön fájlokká osztani. Van-e gyors és egyszerű módja ennek a feladatnak a megoldására anélkül, hogy másolni vagy beilleszteni az oldalakat egyenként?
VBA-kóddal különítsen el egy Word-dokumentumot külön fájlokba 10 vagy n oldalanként
Bontson egy Word-dokumentumot külön fájlokba 10 vagy n oldalanként, csodálatos funkcióval
VBA-kóddal különítsen el egy Word-dokumentumot külön fájlokba 10 vagy n oldalanként
Ha egy nagy dokumentumot 10 vagy n oldalanként külön fájlokká kíván felosztani, a következő VBA-kód tehet szívességet, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ezután kattintson betétlap > Modulok, másolja és illessze be a kódot a megnyitott üres modulba:
VBA-kód: A dokumentum felosztása külön fájlokká 10 vagy n oldalanként:
Sub DocumentSplitter()
Dim xDoc As Document, xNewDoc As Document
Dim xSplit As String, xCount As Long, xLast As Long
Dim xRngSplit As Range, xDocName As String, xFileExt As String
Dim xRegEx As RegExp
Dim xPageCount As Integer
Dim xShell As Object, xFolder As Object, xFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xDoc = Application.ActiveDocument
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
If TypeName(xFolder) = "Nothing" Then Exit Sub
Set xFolderItem = xFolder.Self
xFilePath = xFolderItem.Path & "\"
Application.ScreenUpdating = False
Set xNewDoc = Documents.Add(Visible:=False)
xDoc.Content.WholeStory
xDoc.Content.Copy
xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting
With xNewDoc
xPageCount = .ActiveWindow.Panes(1).Pages.Count
L1: xSplit = InputBox("The document contains " & xPageCount & " pages." & _
vbCrLf & vbCrLf & " Please enter the page count you want to split:", "Kutools for Word", xSplit)
If Len(Trim(xSplit)) = 0 Then Exit Sub
Set xRegEx = New RegExp
With xRegEx
.MultiLine = False
.Global = True
.IgnoreCase = True
.Pattern = "[^0-9]"
End With
If xRegEx.Test(xSplit) = True Then
MsgBox "Please enter the page number:", vbInformation, "Kutools for Word"
Exit Sub
End If
If VBA.Int(xSplit) >= xPageCount Then
MsgBox "The number is greater than the document number." & vbCrLf & "Please re-enter", vbInformation, "Kutools for Word"
GoTo L1
End If
xDocName = xDoc. Name
xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1)
xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_"
xFilePath = xFilePath & xDocName
For xCount = 0 To Int(xPageCount / xSplit)
xPageCount = .ActiveWindow.Panes(1).Pages.Count
If xPageCount > xSplit Then
xLast = xSplit
Else
xLast = xPageCount
End If
Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast)
Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
xRngSplit.Start = .Range.Start
xRngSplit.Cut
Documents.Add
Selection.Paste
ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False
ActiveWindow.Close
Next xCount
Set xRngSplit = Nothing
xNewDoc.Close wdDoNotSaveChanges
Set xNewDoc = Nothing
End With
Application.ScreenUpdating = True
End Sub
3. A fenti kód beillesztése után még mindig a Microsoft Visual Basic for Applications ablakot, kérjük kattintson Eszközök > Referenciák, és beugrott Referenciák-Projekt párbeszédpanelen ellenőrizze Microsoft VBScript rendszeres kifejezések 5.5 lehetőség a Elérhető referenciák lista mező, lásd a képernyőképet:
4. Ezután kattintson OK gombot, majd nyomja meg a gombot F5 kulcs a kód futtatásához, és a Tallózás a mappába párbeszédpanel jelenik meg, kérjük, válasszon egy mappát, ahová a felosztott fájlokat szeretné elhelyezni, lásd a képernyőképet:
5. Ezután kattintson OK gombra, és egy újabb prompt doboz jelenik meg, hogy emlékeztesse Önt az oldalszám számának megadására, amely alapján fel akar osztani, lásd a képernyőképet:
6. Kattintson a gombra OK gombra, az aktív Word-dokumentumot 10 oldalanként külön fájlokká osztották fel, az eredmények megtekintéséhez lépjen a megadott mappába:
Bontson egy Word-dokumentumot külön fájlokba 10 vagy n oldalanként, csodálatos funkcióval
Kutools for Word tartalmaz egy hatalmas funkciót- Hasított funkcióval, ezzel a segédprogrammal gyorsan feloszthat egy nagy Word-dokumentumot több külön fájlba a Heading1, az oldal törése, a szakasz törése és az oldal alapján.
Tipp:Ennek alkalmazásához Hasított funkció, először is le kell töltenie a Kutools for Word, majd gyorsan és egyszerűen alkalmazza a funkciót.
Telepítése után Kutools for Word, kérjük, tegye a következőket:
1. Kattints Kutools Plus > Hasított, lásd a képernyőképet:
2. A felbukkanó párbeszédpanelen állítsa be a következő műveleteket, amire szüksége van, lásd a képernyőképet:
3. A beállítások elvégzése után kattintson a gombra OK, és a teljes dokumentum minden fájl alapján több fájlra lesz felosztva, lásd a képernyőképet:
Kattintson a Kutools for Word letöltéséhez és az ingyenes próbaverzióhoz most!
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...