Kako razdeliti Wordov dokument v ločene datoteke na vsakih 5 ali n strani?
Če imate velik Wordov dokument, ki vsebuje na stotine strani, bi ga radi razdelili na ločene datoteke vsakih 10 ali n strani. Ali obstaja kakšen hiter in enostaven način za reševanje tega dela, ne da bi kopirali in prilepili strani eno za drugo?
Določite Wordov dokument v ločene datoteke vsakih 10 ali n strani s kodo VBA
Določite Wordov dokument v ločene datoteke vsakih 10 ali n strani z neverjetno funkcijo
Določite Wordov dokument v ločene datoteke vsakih 10 ali n strani s kodo VBA
Če želite velik dokument razdeliti v ločene datoteke na podlagi vsakih 10 ali n strani, vam lahko z naslednjo kodo VBA naredite uslugo:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul:
Koda VBA: Razdelite dokument na ločene datoteke vsakih 10 ali n strani:
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. Po lepljenju zgornje kode še vedno v Microsoft Visual Basic za aplikacije okno, kliknite Orodja > Reference, in v izstreljenem Reference-Projekt pogovorno okno, preverite Regularni izrazi za Microsoft VBScript 5.5 možnost v Razpoložljive reference seznam, glej posnetek zaslona:
4. Nato kliknite OK in pritisnite F5 tipko za zagon te kode in a Brskaj po mapi pokaže se pogovorno okno, izberite mapo, kamor želite vstaviti razdeljene datoteke, glejte posnetek zaslona:
5. Nato kliknite OK in izkaže se drugo pozivno polje, ki vas opomni, da vnašate številko števila strani, na podlagi katere želite razdeliti, glejte posnetek zaslona:
6. In nato kliknite OK gumb, aktivni Wordov dokument je bil razdeljen na ločene datoteke vsakih 10 strani, za ogled rezultatov lahko greste v določeno mapo:
Določite Wordov dokument v ločene datoteke vsakih 10 ali n strani z neverjetno funkcijo
Kutools za Word vključuje močno funkcijsko Split funkcija, s tem pripomočkom lahko hitro razdelite velik Wordov dokument v več ločenih datotek glede na naslov1, prelom strani, prelom odseka in stran.
Nasvet:Če želite uporabiti to Split funkcijo, najprej morate prenesti Kutools za Wordin nato funkcijo hitro in enostavno uporabite.
Po namestitvi Kutools za Word, naredite tako:
1. Kliknite Kutools Plus > Split, glej posnetek zaslona:
2. V pogovornem oknu, ki se odpre, nastavite naslednje operacije, kot jih potrebujete, glejte sliko zaslona:
3. Po končanih nastavitvah kliknite OK, in celoten dokument bo razdeljen na več datotek glede na vsako stran, glejte posnetek zaslona:
Kliknite za prenos Kutools za Word in brezplačno preskusno različico zdaj!
Najboljša pisarniška orodja za produktivnost
Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!
🤖 Kutools AI pomočnik: Preoblikujte svoje pisanje z AI - Ustvarite vsebino / Prepiši besedilo / Povzemite dokumente / Povprašajte za informacije na podlagi dokumenta, vse v Wordu
📘 Obvladovanje dokumentov: Razdeljene strani / Spoji dokumente / Izvozi izbor v različnih formatih (PDF/TXT/DOC/HTML ...) / Paketna pretvorba v PDF / Izvozi strani kot slike / Natisnite več datotek hkrati...
✏ Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek / Spremeni velikost vseh slik / Prenos vrstic in stolpcev tabele / Pretvori tabelo v besedilo...
🧹 Čiščenje brez napora: Pometite stran Dodatni prostori / Prelomi oddelkov / Vse glave / Besedilna polja / Hiperpovezave / Za več orodij za odstranjevanje pojdite na naš Odstrani skupino...
➕ Ustvarjalni vložki: Vstavi Tisoč ločila / Potrditvena polja / Radijske tipke / QR koda / Črtna koda / Tabela z diagonalno črto / Naslov enačbe / Opis slike / Naslov tabele / Več slik / Odkrijte več v Vstavi skupino...
???? Natančne izbire: Natančna točka določene strani / mize / Oblike / odstavki naslova / Izboljšajte navigacijo z več Izberite funkcije...
⭐ Izboljšave zvezdic: Hitra navigacija do katere koli lokacije / samodejno vstavljanje ponavljajočega se besedila / brez težav preklapljate med okni dokumentov / 11 Orodja za pretvorbo...