Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս պահել յուրաքանչյուր էջ Word- ի փաստաթղթում որպես առանձին pdf ֆայլեր:

Microsoft Word փաստաթուղթն օգտագործելիս կարող եք յուրաքանչյուր էջը մեկ առ մեկ պահպանել որպես առանձին pdf ֆայլեր ՝ իր ներկառուցված Save As գործառույթով: Այնուամենայնիվ, եթե կան հարյուրավոր էջեր, որոնք պետք է բաժանվեն և պահվեն որպես անհատական ​​pdf ֆայլեր, ինչպե՞ս կարող եք դա անել: Այս հոդվածը ձեզ հնարավորություն է տալիս այս խնդիրը արագ լուծելու համար:

Պահեք յուրաքանչյուր էջը որպես առանձին pdf ֆայլեր սորուն VBA կոդով


Պահեք յուրաքանչյուր էջը որպես առանձին pdf ֆայլեր սորուն VBA կոդով

Ստորև ներկայացված VBA կոդը օգնում է արագորեն պահպանել յուրաքանչյուր էջ փաստաթղթում `որպես անհատական ​​PDF ֆայլեր միաժամանակ: Խնդրում եմ, արեք հետևյալ կերպ.

1. Բացեք փաստաթուղթը, որը դուք կփրկեք յուրաքանչյուր էջը կամ հատուկ էջերը որպես pdf ֆայլեր, ապա սեղմեք այն ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլ, պատճենեք ներքևում գտնվող VBA կոդի Մոդուլի պատուհանում:

VBA կոդ. Word- ի փաստաթղթում միաժամանակ պահեք յուրաքանչյուր էջ որպես առանձին pdf ֆայլեր

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. Սեղմեք F5 ծածկագիրը գործելու համար:

4. Մեջ Թերթել պատուհանը, ընտրեք պանակ `pdf ֆայլերը փրկելու համար և կտտացրեք այն OK կոճակ Տեսեք,

5. Առաջինում Kutools բառի համար երկխոսության տուփ, մուտքագրեք ձեր փաստաթղթի մեկնարկի էջի համարը տեքստի տուփի մեջ և կտտացրեք OK.

6. Երկրորդում Kutools բառի համար երկխոսության տուփ, մուտքագրեք ձեր փաստաթղթի վերջին էջի համարը, ապա կտտացրեք OK. Տեսեք,

ՆշումԵթե ​​պարզապես ցանկանում եք փաստաթղթում մի քանի անընդմեջ էջեր պահպանել որպես առանձին pdf ֆայլեր, ինչպիսիք են 4-րդ, 5-րդ և 6-րդ էջերը, խնդրում ենք մուտքագրել 4-ը և 6-ը առանձին `վերը նշված երկու երկխոսության տուփերում:

Կոդը գործարկելուց հետո, խնդրում ենք անցնել նշված պանակը, որը դուք ընտրել եք 4-րդ քայլում, դուք կարող եք տեսնել, որ բոլոր էջերը բաժանված են և պահվում են որպես անհատական ​​pdf ֆայլեր, ինչպես ցույց է տրված նկարում:


Բաժանեք և պահեք փաստաթղթի յուրաքանչյուր էջը որպես առանձին նոր փաստաթղթեր.

The Պառակտված փաստաթուղթ օգտակարությունը Excel- ի համար նախատեսված գործիքներ կարող է օգնել ձեզ հեշտությամբ բաժանել և պահպանել ընթացիկ փաստաթղթի յուրաքանչյուր էջը որպես առանձին նոր փաստաթուղթ սորուն, ինչպես ցույց է տրված ստորև նշված նկարը: Ներբեռնեք և փորձեք այն հիմա: (60-օրյա անվճար արահետ)


Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (13)
Գնահատված 5- ը 5- ից դուրս է · 2 վարկանիշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ներբեռնել է kutools-ը փորձարկման համար - տեղադրվել և ինչ-որ բան փորձելիս բառը փակվում է, և գործիքը երբեք չի աշխատել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Շնորհակալություն սխալի մասին ինձ տեղյակ պահելու համար և կներեք անհարմարության համար: Կտրամադրե՞ք ձեր Word տարբերակը: Մենք պետք է պարզենք խնդիրը լրացուցիչ տեղեկություններով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փակեք, օգտագործեք և օգտագործեք ձեր պրեզիոզի առաջարկները, որոնք հեշտացնում են ընդհանուր ձևը և ֆայլի սինգլները pdf-ում, որտեղ ֆայլի բառը կպչում է միությանը: Vorrei chiedere se è possibile nominare and singoli file pdf, a posto del numero di page, con un nome specifico di un campo contenuto nel file excel che ho utilizzato per stampa unione. Sarebbe il massimo. Գրազի միլլ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ի՞նչ կարող եմ անել, որպեսզի յուրաքանչյուր էջ պահպանվի փաստաթղթում հղումով և ոչ թե էջի անունով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գեղեցիկ! Շնորհակալություն, ձեր հրահանգները հեշտ է հետևել և նկատել: Դուք մեզ շատ ժամանակ եք խնայել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ի՞նչ կարող եմ անել, որպեսզի յուրաքանչյուր էջ պահպանվի փաստաթղթում հղումով և ոչ թե էջի անունով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն Ինձ մոտ ստացվեց: Ի՞նչ կարող եմ անել՝ այն երկկողմանի PDF-ում պահպանելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Որևէ օրինական... aqui deu super certo!

շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս հրահանգների ընթերցումն օգնեց ինձ ավարտել մի նախագիծ, որը կտևի 2 կամ ավելի ժամ՝ 20 րոպեում: Շատ շնորհակալություն!
Գնահատված 5- ը 5- ից դուրս է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Քայլ Բոլդուին,
Մենք ուրախ կլինենք օգնել լուծել ձեր խնդիրը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն սցենարի համար, այն նաև ինձ շատ աշխատանք է խնայել էջերը որպես pdf արտահանելիս:
Գնահատված 5- ը 5- ից դուրս է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր!
Есть ли возможность сохранить из ворд файла(используя слияние) в пдф ֆայլ - Решения собственников на общее собрание.
При этом учитываем, что PDF должен сохраняться так: в 1 ֆայլ, должно быть несколько листов (1 квартира), по данному модулю страницы сохраняются в пдф, но раздельно
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Կներեք, ես չեմ հասկանում, թե ինչ նկատի ունեք: Հնարավոր է, որ ձեզ անհրաժեշտ լինի կցել սքրինշոթ կամ նմուշ ֆայլ՝ ձեր հանդիպած խնդիրը ավելի հստակ նկարագրելու համար:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր