İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bir Word sənədini ayrı-ayrı fayllara hər 5 və ya n səhifələrə necə bölmək olar?

Yüzlərlə səhifəni ehtiva edən böyük bir Word sənədiniz varsa və indi bu sənədləri hər 10 və ya n səhifələrdə ayrı fayllara bölmək istəyirsən. Bu səhifəni bir-birinə kopyalayıb yapıştırmadan, bu işi həll etmək üçün tez və asan bir yol varmı?

Bir Word sənədini ayrı-ayrı fayllara hər 10 və ya VBA kodu ilə bölmək

Bir Word sənədini, hər bir 1 səhifəsində Word üçün Kutools ilə ayrı-ayrı fayllara bölün


Bir Word sənədini hər bir səhifəyə əsasən ayrı fayllara bölün:

ilə Word üçün Kutools's Split xüsusilə, böyük bir Word sənədini Heading1, səhifə break, bölmə fasilə və səhifə əsasında birdən çox ayrı-ayrı fayllara bölmək olar.

9 hər n səhifəsində doc split söz

Word üçün Kutools: 100-dən çox 60 lazımlı Word eklentisi ilə, XNUMX gün ərzində heç bir məhdudiyyət olmadan cəhd edin. İndi yukle və pulsuz sınaq üçün tıklayın!


Bir Word sənədini ayrı-ayrı fayllara hər 10 və ya VBA kodu ilə bölmək

Hər bir 10 və ya n səhifələrə əsasən ayrı-ayrı fayllara böyük bir sənəd ayırmaq üçün aşağıdakı VBA kodunu bir xeyir edə bilərsiniz:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Və sonra basın Taxmaq > Modules, kodu aşağıda açıq blank moduluna kopyalayın və yapışdırın:

VBA kodu: Hər bir 10 və ya n səhifələrdə ayrı bir faylya bir sənəd ayırı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. Yuxarıda göstərilən kodu yapıştırdıktan sonra, hələ də Proqramlar üçün Microsoft Visual Basic pəncərədə basın Tools > References, və çıxdı həyata Referanslar-Layihə informasiya qutusunu yoxlayın Microsoft VBScript Regular Expressions 5.5 seçimi Mövcud References siyahı qutusuna bax:

1 hər n səhifəsində doc split söz

4. Sonra basın OK düyməsini basın və sonra basın F5 bu kodu çalıştırmak üçün açar, və a Qovluq üçün göz atın informasiya qutusu göstərilir, split faylları yerləşdirmək istədiyiniz bir qovluq seçin, ekran görünüşünə baxın:

2 hər n səhifəsində doc split söz

5. Sonra basın OK düyməsinə basmaq və başqa bir əmr qutusuna çıxmaq istədiyiniz səhifə sayının nömrəsini daxil etdiyiniz hatırlatmaq üçün açılır, ekran görünüşünə baxın:

3 hər n səhifəsində doc split söz

6. Və sonra basın OK düyməsini basıb, aktiv Word sənədi hər bir 10 səhifəsində ayrı fayllara bölünmüşdür, nəticəni görmək üçün göstərilən qovluğa gələ bilərsiniz:

4 hər n səhifəsində doc split söz


Bir Word sənədini, hər bir 1 səhifəsində Word üçün Kutools ilə ayrı-ayrı fayllara bölün

Word üçün Kutools güclü bir xüsusiyyət- Split funksiyası ilə, bu yardım proqramı ilə, böyük bir Word sənədini Heading1, səhifə break, bölmə fasilə və səhifə əsasında birdən çox ayrı-ayrı fayllara bölmək olar.

Word üçün Kutools : 100 gündən çox 60 lazımlı Word eklentisi ilə, heç bir məhdudiyyət olmadan cəhd edə bilərsiniz.

Quraşdırıldıqdan sonra Word üçün Kutools, bunu edin:

1. Basın Müəssisə > Split, bax ekran görüntüsü:

5 hər n səhifəsində doc split söz

2. Çölə atıldı Sənədi Split informasiya qutusuna basın 7 hər n səhifəsində doc split söz split faylları yerləşdirmək üçün bir qovluq seçin və sonra seçin səhifə dən Split by açılır siyahı, ekran görünüşünə baxın:

6 hər n səhifəsində doc split söz

3. Ayarları bitirdikdən sonra, klikləyin OK, və bütün sənəd hər bir səhifə əsasında birdən çox faylya bölünəcək, ekran görünüşünə baxın:

8 hər n səhifəsində doc split söz

Word üçün Kutools və indi pulsuz sınaq versiyasını yükləmək üçün tıklayın!




Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sergey · 5 days ago
    VBA Script: Split a document into separate files every 10 or n pages not worked
    • To post as a guest, your comment is unpublished.
      skyyang · 1 hours ago
      Hello, Sergey,
      The above code works well in my Word document, which Word version do you use?
      And which step went wrong in your operation?
  • To post as a guest, your comment is unpublished.
    Lena · 1 months ago
    i have been trying to split a word file of 166 pages and it gives 166 files each with 166 pages?