İ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

Hər bir səhifəni bir Word sənədində ayrı pdf faylları olaraq necə saxlaya bilərəm?

Microsoft Word sənədini istifadə edərkən, hər bir səhifəni ayrı-ayrı pdf faylları olaraq saxlaya bilərsiniz. Lakin yüzlərlə səhifənin fərdi pdf faylları kimi bölünməsi və saxlanılması lazımdırsa, necə edə bilərsiniz? Bu məqalə bu problemi tez bir zamanda həll etmək üçün metodu təmin edir.

Hər bir səhifəni VBA kodu ilə toplu olaraq ayrı pdf faylları olaraq saxlayın


Bir sənədin hər bir səhifəsini ayrı sənədlər kimi bölün və saxlaya bilərsiniz:

The Sənədi Split faydası Excel üçün Kutools asanlıqla bölüşdürülməsi və mövcud sənədin hər bir səhifəsinin toplu olaraq ayrı bir yeni sənəd kimi saxlamasına kömək edə bilər.

  • Split sənədləri saxlamaq üçün bir yer seçin;
  • seçmək səhifə dən Split açılan siyahıdan;
  • Basın OK başlamaq. Ekran görüntüsünə baxın:

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


Hər bir səhifəni VBA kodu ilə toplu olaraq ayrı pdf faylları olaraq saxlayın

Aşağıdakı VBA kodu hər bir səhifəni eyni sənəddə fərdi pdf faylları kimi tez bir zamanda saxlamağa kömək edir. Xahiş edirik bunu edin.

1. Hər bir səhifəni və ya xüsusi səhifəni pdf faylları olaraq saxlayacağınız sənədləri açın, sonra isə düyməni basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modul, Modul pəncərəsinə VBA kodu aşağıda kopyalayın.

VBA kodu: Hər bir səhifəni bir Word sənədində eyni zamanda ayrı pdf faylları olaraq saxlayın

Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20180906
    Dim I As Long
    Dim xStr As String
    Dim xPathStr As Variant
    Dim xDictoryStr As String
    Dim xFileDlg As FileDialog
    Dim xStartPage, xEndPage As Long
    Dim xStartPageStr, xEndPageStr As String
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDlg.Show <> -1 Then
        MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xPathStr = xFileDlg.SelectedItems(1)
    xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")
    xEndPageStr = InputBox("Save PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Word")
    If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
        MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xStartPage = CInt(xStartPageStr)
    xEndPage = CInt(xEndPageStr)
    If xStartPage > xEndPage Then
        MsgBox "The start page number can't be larger than end page", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
        xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    End If
    For I = xStartPage To xEndPage
        ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
End Sub

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın.

4. İçində İnsanlar pəncərə, pdf faylları saxlamaq üçün bir qovluq seçin və basın OK düyməsini basın. Ekran görüntüsünə baxın:

5. Birincisi Word üçün Kutools informasiya qutusuna, sənədinizin başlanğıc səhifə nömrəsini mətn qutusuna daxil edin və basın OK.

6. İkincisi Word üçün Kutools informasiya qutusuna, sənədinizin sonuncu səhifə nömrəsini daxil edin və sonra basın OK. Ekran baxın:

Qeyd4, 5 və 6 kimi ayrı-ayrı pdf faylları kimi sənəddə bir neçə davamlı səhifəni saxlamaq istəyirsinizsə, 4 və 6-i yuxarıdakı iki informasiya qutusuna daxil edin.

Kodu çalıştırdıktan sonra 4 adımında seçdiyiniz belirtilen qovluğa gedin, bütün səhifələr bölünmüş və fərdi pdf faylları olaraq qeyd olunan ekran görüntüsünün altında göstərildikdə görə bilərsiniz.



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.

Be the first to comment.