Ինչպե՞ս Word- ի փաստաթուղթը բաժանել առանձին ֆայլերի յուրաքանչյուր 5 կամ n էջում:
Եթե ունեք մի մեծ Word փաստաթուղթ, որը պարունակում է հարյուրավոր էջեր, և այժմ, ցանկանում եք այս փաստաթուղթը բաժանել առանձին ֆայլերի յուրաքանչյուր 10 կամ n էջում: Կա՞ արդյոք այս գործը լուծելու արագ և հեշտ միջոց `առանց էջերը մեկ առ մեկ պատճենելու և տեղադրելու:
Word- ի փաստաթուղթը բաժանեք առանձին ֆայլերի VBA կոդով յուրաքանչյուր 10 կամ n էջում
Word- ի փաստաթուղթը բաժանեք առանձին ֆայլերի VBA կոդով յուրաքանչյուր 10 կամ n էջում
Խոշոր փաստաթուղթը յուրաքանչյուր 10 կամ n էջերի վրա հիմնված առանձին ֆայլերի բաժանելու համար հետևյալ VBA կոդը կարող է ձեզ լավություն բերել, արեք հետևյալ կերպ.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2, Եվ հետո, կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը ներքևում բացված դատարկ մոդուլի մեջ.
VBA կոդ. Յուրաքանչյուր 10 կամ n էջում փաստաթուղթը բաժանեք առանձին ֆայլերի.
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, Վերոնշյալ կոդը տեղադրելուց հետո, այն դեռ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Գործիքներ > Սայլակև դուրս ցցված Հղումներ-նախագիծ երկխոսության տուփ, ստուգեք Microsoft VBScript կանոնավոր արտահայտություններ 5.5 տարբերակը Հասանելի հղումներ ցուցակի տուփ, տես նկարի նկարը.
4. Այնուհետեւ կտտացրեք OK կոճակը, ապա սեղմել F5 այս կոդը գործարկելու բանալին, և ա Թերթիր պանակի համար ցուցադրվում է երկխոսության տուփը, ընտրեք այն պանակը, որտեղ ցանկանում եք տեղադրել պառակտված ֆայլերը, տես նկարի նկարը.
5. Այնուհետեւ կտտացրեք OK կոճակը, և մեկ այլ արագ տուփ է դուրս գալիս ՝ հիշեցնելու համար, որ մուտքագրեք էջի հաշվարկի համարը, որի հիման վրա ցանկանում եք բաժանել, տես նկարի նկարը.
6. Եվ այնուհետեւ կտտացրեք OK կոճակը, ակտիվ Word փաստաթուղթը յուրաքանչյուր 10 էջում բաժանվել է առանձին ֆայլերի, արդյունքները տեսնելու համար կարող եք գնալ նշված պանակ:
Wordարմանալի հատկություն ունեցող յուրաքանչյուր 10 կամ n էջերում բաժանեք Word փաստաթուղթը առանձին ֆայլերի
Kutools բառի համար ներառում է հզոր հատկություն- պառակտում գործառույթը, այս օգտակար ծառայության միջոցով, դուք կարող եք արագորեն բաժանել Word- ի մեծ փաստաթուղթը բազմաթիվ առանձին ֆայլերի ՝ հիմնված Heading1- ի, էջի ընդմիջման, հատվածի ընդմիջման և էջի վրա:
Հուշում.Սա կիրառելու համար պառակտում հատկությունը, նախ, դուք պետք է ներբեռնեք այն Kutools բառի համար, ապա գործառույթը կիրառեք արագ և հեշտությամբ:
Տեղադրելուց հետո Kutools բառի համարԽնդրում եմ արեք հետևյալ կերպ
1: Սեղմեք Kutools Plus > պառակտում, տես նկարի նկարը.
2, Բացված երկխոսության պատուհանում խնդրում ենք սահմանել հետևյալ գործողությունները ՝ ըստ ձեզ, տես նկարի նկարը.
3, Պարամետրերն ավարտելուց հետո սեղմեք OK, և ամբողջ փաստաթուղթը յուրաքանչյուր էջի հիման վրա կբաժանվի բազմաթիվ ֆայլերի, տես նկարի նկարը.
Կտտացրեք Kutools- ի Word- ի և անվճար փորձարկման համար ներբեռնելու համար:
Գրասենյակի արտադրողականության լավագույն գործիքները
Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!
🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն / Վերաշարադրել տեքստը / Ամփոփել փաստաթղթերը / Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում
📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում / Միաձուլեք փաստաթղթերը / Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...) / Խմբաքանակի փոխակերպում PDF-ի / Արտահանել էջերը որպես պատկերներ / Միանգամից մի քանի ֆայլ տպեք...
✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով / Չափափոխել բոլոր նկարները / Փոխադրել աղյուսակի տողերը և սյունակները / Աղյուսակը տեքստի վերափոխել...
🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ / Բաժնի ընդմիջումներ / Բոլոր վերնագրերը / Տեքստային տուփեր / Hyperlinks / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...
➕ Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ / Նշեք վանդակները / Ռադիո կոճակներ / QR Code / Շտրիխ կոդ / Անկյունագծային աղյուսակ / Հավասարության վերնագիր / Նկարի վերնագիր / Աղյուսակի վերնագիր / Բազմաթիվ նկարներ / Բացահայտեք ավելին Տեղադրեք խումբը...
🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր / սեղաններ / ձեւավորում / վերնագրի պարբերություններ / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...
⭐ Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր / կրկնվող տեքստի ավտոմատ տեղադրում / անխափան անցում փաստաթղթի պատուհանների միջև / 11 Փոխակերպման գործիքներ...