Conas gach leathanach a shábháil mar chomhaid pdf ar leithligh i ndoiciméad Word?
Agus doiciméad Microsoft Word á úsáid agat, is féidir leat gach leathanach a shábháil mar chomhaid pdf ar leithligh ceann ar cheann lena fheidhm Save As. Mar sin féin, má tá na céadta leathanach ann is 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 leithligh ag an am céanna i ndoiciméad Word
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 le haghaidh 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 le haghaidh 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.
Roinn agus sábháil gach leathanach de dhoiciméad mar dhoiciméid nua ar leithligh:
An Doiciméad Scoilt fóntais de Kutools le haghaidh Excel in ann cabhrú leat gach leathanach den doiciméad reatha a scoilt agus a shábháil go héasca mar dhoiciméad nua ar leithligh ar an mórchóir mar a thaispeántar an pictiúr thíos. Íoslódáil agus bain triail as anois! (60- rian lae saor in aisce)
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!
🤖 Cúntóir Kutools AI: athraigh do chuid scríbhinn le AI - Gin Ábhar / Athscríobh Téacs / Déan achoimre ar Dhoiciméid / Fiosraigh le haghaidh Faisnéise bunaithe ar Doiciméad, ar fad laistigh de Word
📘 Máistreacht Doiciméad: Leathanaigh Scoilte / Cumaisc Doiciméid / Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/HTML...) / Baisc a thiontú go PDF / Easpórtáil Leathanaigh mar Íomhánna / Priontáil Comhaid Il ag an am céanna...
✏ Eagarthóireacht na nÁbhar: Faigh Baisc agus Ionadaigh thar Chomhaid Il / Athraigh Méid Gach Pictiúr / Trasnaigh Rónna Tábla agus Colúin / Tiontaigh Tábla go Téacs...
🧹 Effortless Glan: Sguab as Spásanna Breise / Sosanna Alt / Gach Ceanntásca / Boscaí Téacs / Hipearnasc / Le haghaidh tuilleadh uirlisí a bhaint, ceann chuig ár Bain Grúpa...
➕ Ionsáigh Cruthaitheach: cuir isteach Míle Deighilteoir / Boscaí Seiceála / Cnaipí Raidió / Cód QR / barcode / Tábla Líne Trasnánach / Fotheideal Cothromóid / Fotheideal Íomhá / Fotheideal Tábla / Pictiúir Il / Faigh amach níos mó sa Cuir isteach Grúpa...
🔍 Roghanna Beachtais: Pionta leathanaigh ar leith / táblaí / cruthanna / míreanna ceannteideal / Feabhsaigh an loingseoireacht le níos mó Roghnaigh gnéithe...
⭐ Feabhsuithe Réalta: Déan nascleanúint go tapa chuig aon láthair / cuir isteach téacs athchleachtach go huathoibríoch / scoránaigh gan uaim idir fuinneoga doiciméad / 11 Uirlisí Tiontaithe...