Conas a shábháil ar gach leathanach i bhformáid pdf ar leith Word doiciméad?

Agus tú ag úsáid Microsoft Word doiciméad, is féidir leat gach leathanach a shábháil mar chomhaid pdf ar leith ceann ar cheann lena fheidhm Sábháil Mar a ionsuite. Mar sin féin, má tá na céadta leathanach ar gá iad a roinnt agus a shábháil mar chomhaid pdf aonair, conas is féidir leat a dhéanamh? Soláthraíonn an t-alt seo modh duit chun an fhadhb seo a réiteach go tapa.

Sábháil gach leathanach mar chomhaid pdf ar leithligh ar an mórchóir le cód VBA

Sábháil gach leathanach mar chomhaid pdf ar leithligh ar an mórchóir le cód VBA

Cuidíonn an cód VBA thíos leat gach leathanach i ndoiciméad a shábháil go tapa mar chomhaid pdf aonair ag an am céanna. Déan mar a leanas le do thoil.

1. Oscail an doiciméad sábhálfaidh tú gach leathanach nó leathanaigh shonracha mar chomhaid pdf, ansin brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúl, cóipeáil faoi bhun chód VBA isteach i bhfuinneog an Mhodúil.

Cód VBA: Sábháil gach leathanach mar chomhaid pdf ar leith ag an am céanna i a Word doiciméad

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. Brúigh an F5 eochair chun an cód a rith.

4. Sa Brabhsáil fuinneog, roghnaigh fillteán chun na comhaid pdf a shábháil agus cliceáil ar an OK cnaipe. Féach an pictiúr:

5. Sa chéad cheann Kutools for Word bosca dialóige, cuir uimhir leathanaigh tosaigh do dhoiciméid isteach sa bhosca téacs agus cliceáil OK.

6. Sa dara ceann Kutools for Word bosca dialóige, iontráil uimhir leathanaigh dheiridh do dhoiciméid, ansin cliceáil OK. Féach an pictiúr:

nótaí: Mura dteastaíonn uait ach roinnt leathanaigh go leanúnach i ndoiciméad a shábháil mar chomhaid pdf ar leithligh mar leathanaigh 4, 5 agus 6, cuir 4 agus 6 ar leithligh isteach sa dá bhosca dialóige thuas.

Tar éis duit an cód a rith, téigh chuig an bhfillteán sonraithe a roghnaigh tú i gcéim 4, le do thoil. Feiceann tú go roinntear agus go sábhálfar gach leathanach mar chomhaid pdf aonair mar a thaispeántar thíos.

---

molta Word Uirlisí Táirgiúlachta

 

Kutools For Word - Níos mó ná 100 Ardghnéithe Do Word, Sábháil Do Am 50%.

• Is féidir oibríochtaí casta agus arís agus arís eile a dhéanamh próiseáil aon-uaire i soicindí.
• Cuir isteach íomhánna iolracha trasna fillteáin isteach Word doiciméad láithreach.
• Cumaisc agus cuir le chéile iolrach Word comhaid trasna fillteáin isteach i gceann le d'ordú inmhianaithe.
• Roinn an doiciméad reatha i ndoiciméid ar leithligh de réir ceannteidil, briseadh ailt nó critéir eile.
• Tiontaigh comhaid idir Doc agus Docx, Docx agus PDF, bailiú uirlisí le haghaidh comhshó agus roghnú coitianta, agus mar sin de ...

Leigh Nios mo Íosluchtaigh Anois Ceannach