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

Conas baisc de dhoiciméid Word iolracha a thiontú go comhaid pdf?

Is furasta duit doiciméad Word a thiontú go comhad PDF leis an bhfeidhm Save as function i Word. Ach más mian leat gach doiciméad Word a thiontú i bhfillteán chun comhaid PDF a scaradh ag an am céanna, conas is féidir leat é a bhaint amach? Taispeánfaidh an t-alt seo cód VBA duit chun iliomad doiciméad Word a chomhshó go comhaid pdf i Word.

Baisc doiciméid iolracha Word a thiontú go comhaid pdf le VBA
Baisc doiciméid iolracha Word a thiontú go comhaid pdf le Kutools for Word


Baisc doiciméid iolracha Word a thiontú go comhaid pdf le VBA

Cuidíonn an cód VBA seo a leanas leat gach doiciméad Word i bhfillteán a thiontú go comhaid pdf go tapa. Déan mar a leanas le do thoil.

1. I Word, 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úil, ansin cóipeáil thíos cód VBA isteach i bhfuinneog an Mhodúil.

Cód VBA: Tiontaigh baisc ilcháipéisí Word go comhaid pdf i Word

Sub ConvertWordsToPdfs()
'Updated by Extendoffice 20181123
    Dim xIndex As String
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xNewName As String
    Dim xFileName As String
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.*", vbNormal)
    While xFileName <> ""
        If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
            xIndex = InStr(xFileName, ".") + 1
            xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
            Documents.Open FileName:=xFolder & xFileName, _
                ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
                PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
                WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
                wdOpenFormatAuto, XMLTransform:=""
            ActiveDocument.ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
                ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
                wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
                Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
                CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
                BitmapMissingFonts:=True, UseISO19005_1:=False
            ActiveDocument.Close
        End If
        xFileName = Dir()
    Wend
End Sub

3. Brúigh an F5 eochair chun an cód a rith.

4. Tagann dialóg Brabhsáil aníos, roghnaigh an fillteán ina bhfuil cáipéisí Word a athróidh tú go comhaid pdf, agus cliceáil ar an OK cnaipe.

Ansin athraítear gach doiciméad Word san fhillteán roghnaithe go comhaid pdf ar leithligh ag an am céanna. Féach an pictiúr:


Baisc doiciméid iolracha Word a thiontú go comhaid pdf le Kutools for Word

Má tá sé deacair cód VBA a láimhseáil, is féidir leat triail a bhaint as an Tiontaigh cáipéisí fóntais de Kutools le haghaidh Word chun an fhadhb a réiteach.

Kutools le haghaidh Word : Le níos mó ná 100 breiseán áisiúil Word, saor chun triail a dhéanamh gan aon teorannú i 60 lá.

1. cliceáil Kutools Plus > Doc / Docx. Féach an pictiúr:

2. Sa Tiontaire Formáid Doiciméid fuinneog, ní mór duit a dhéanamh mar a leanas:

2.1) Roghnaigh an fillteán tá cáipéisí a athróidh tú go pdf sa Fillteán comhad foinse alt;
2.2 Roghnaigh Tiontaigh docx go pdf ó na Tiontaigh Formáid liosta anuas;
2.3) De réir réamhshocraithe, déanann an Cosán ceann scríbe mar an gcéanna leis an bhfoinse seiceáiltear bosca. Más mian leat gach comhad pdf tiontaithe a chur san fhillteán céanna, coinnigh an rogha seo roghnaithe;
Más mian leat na comhaid pdf agus na doiciméid foinse a scaradh, ní mór duit na Cosán ceann scríbe mar an gcéanna leis an bhfoinse bosca, agus roghnaigh fillteán nua chun na comhaid pdf a shábháil sa Sábháil bosca;
2.4) Cliceáil ar an Tòisich cnaipe. Féach an pictiúr:

3. Ansin tagann bosca dialóige suas chun a insint duit cé mhéad doiciméad a tiontaíodh go rathúil, cliceáil an OK cnaipe agus dún an Tiontaire Formáid Doiciméid fhuinneog.

Anois athraítear gach doiciméad formáide .docx go comhaid pdf.

Más mian leat triail saor in aisce a bhaint as an bhfóntas seo, téigh chuig íoslódáil saor in aisce na bogearraí ar dtús, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.


Uirlisí Táirgeachta Focal Molta

 

Kutools For Word - Níos mó ná 100 Gné Ardteist le haghaidh Word, Sábháil Do 50% Am

  • 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 iomadúla thar fhillteáin i ndoiciméad Word ag an am céanna.
  • Cumaisc agus comhcheangail comhaid Word iolracha thar fhillteáin i gceann amháin leis an ord atá uait.
  • 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 ...
Sórtáil tuairimí de réir
Comments (29)
Rátáil 5 as 5 · rátálacha 2
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Blag chomh deas, Go raibh maith agat as an bhlag seo a roinnt. Tá faisnéis chomh úsáideach ann d'úsáideoirí. Thaitin an t-eolas seo go mór liom.
Tá súil agam go leanann tú ag roinnt faisnéise den sórt sin tiontaigh word doc go html
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
VBA má dhéanaim iarracht comhad a thiontú ina bhfuil macraí an macra swith chun an comhad a oscailt agus a chríochnaíonn gan comhad a dhúnadh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil aon bhealach chun ainm an chomhaid a bhaint as téacs an doiciméid?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ann,


an bhfuil bealach éasca ann chun an Cód VBA a choigeartú ionas go mbeidh na Doiciméid comhshóite go .txt-Comhaid?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,

Faighim earráid ama rite '424':
Cuspóir ag teastáil

ag an gcód thíos

Documents.Open Filename:=xFolder & xFileName, _

ConfirmConversions:=Bréagach, ReadOnly:=Bréagach, AddToRecentFiles:=Bréagach, _

PasswordDocument:="", PasswordTemplate:="", Fill ar ais:= Bréagach, _

WritePasswordDocument:="", WritePasswordTemplate:="", Formáid:= _

wdOpenFormatAuto, XMLTransform:=""


wdOpenFormatAuto = 0 deir sé.

Le do thoil cabhrú leat.

Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,



Faighim earráid ama rite '424':

Cuspóir ag teastáil


íomhá ceangailte.




Le do thoil cabhrú leat.



Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Go raibh míle maith agat as an gcód seo. Tá sé ag obair go maith, áfach, faighim bosca dialóige tar éis gach comhshó chun an focal doc a shábháil agus caithfidh mé a shábháil. An féidir leat cód a chur san áireamh sa mhacra chun é sin a shábháil agus an comhad a dhúnadh in ionad gach ceann a dhúnadh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
má chuireann tú "ActiveDocument.Save" díreach os cionn "ActiveDocument.Close" sábhálfaidh sé an doiciméad sula ndúnfaidh tú é féin ionas nach mbeidh ort an leid shábháil a bhualadh i gcónaí.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
go raibh maith agat as cód vba , cuidíonn sé go leor.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an cód VBA iontach. Slán, ith
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Athraigh xIndex = InStr(xFileName, ".") + 1


Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Má athraíonn tú
xIndex = InStr(xFileName, ".") + 1 go
xIndex = InStrRev(xFileName, ".") + 1
déanfaidh sé cuardach ó dheireadh na teaghrán chun an chéad tréimhse a fháil. Seachnóidh sé seo fadhbanna nuair a bhíonn tréimhsí san ainm comhaid.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Спасибо, очень дельный совет
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Má athraíonn túxFileName = Dir(xFolder & "*.*", vbNormal)
to xFileName = Dir(xFolder & "*.doc*", vbNormal)ní thuairtfidh an macra nuair atá comhaid neamh-Word san fhillteán céanna.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Shábháil sé seo mo lá, go raibh míle maith agat!
Ba mhaith liom a chur in iúl do dhaoine atá ag baint úsáide as seo, más cosúil go bhfuil an Focal reoite, fan go fóill - tá na comhaid .pdf á ghiniúint aige. Reoite Mo Word ach d'oscail mé fillteán na gcomhad, agus chonaic mé go raibh sé ag giniúint an .pdf do gach comhad.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
VBA 很棒!!感謝您的分享。
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá fadhb agam má tá an t-ainm 1.2.3.5.Blabla bla.doc ag doiciméad sábhálann sé agus athscríobhann sé PDFanna agus mar sin de, níl ach 0ne agam? an doiciméad deireanach. Conas is féidir liom an fhadhb seo a réiteach?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Má athraíonn tú
xIndex = InStr(xFileName, ".") + 1
chun
xIndex = InStrRev(xFileName, ".") + 1
déanfaidh sé cuardach ó dheireadh na teaghrán chun an chéad tréimhse a fháil. Seachnóidh sé seo fadhbanna nuair a bhíonn tréimhsí san ainm comhaid.

Má athraíonn tú
xFileName = Dir(xFolder & "*.*", vbNormal)
chun
xFileName = Dir(xFolder & "*.doc*", vbNormal)
ní bheidh an macra tuairteála nuair a bhíonn comhaid neamh-Word san fhillteán céanna.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Macros работает некорректно, если i именах файлов есть точки
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Má athraíonn tú
xIndex = InStr(xFileName, ".") + 1
chun
xIndex = InStrRev(xFileName, ".") + 1
déanfaidh sé cuardach ó dheireadh na teaghrán chun an chéad tréimhse a fháil. Seachnóidh sé seo fadhbanna nuair a bhíonn tréimhsí san ainm comhaid.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Má athraíonn tú
xIndex = InStr(xFileName, ".") + 1
chun
xIndex = InStrRev(xFileName, ".") + 1
déanfaidh sé cuardach ó dheireadh na teaghrán chun an chéad tréimhse a fháil. Seachnóidh sé seo fadhbanna nuair a bhíonn tréimhsí san ainm comhaid.

Má athraíonn tú
xFileName = Dir(xFolder & "*.*", vbNormal)
chun
xFileName = Dir(xFolder & "*.doc*", vbNormal)
ní bheidh an macra tuairteála nuair a bhíonn comhaid neamh-Word san fhillteán céanna.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat! Shábháil mé an oiread sin ama!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Beidh tú ag dul go dtí 4 lá ag 5:
Más rud é ((Ceart(xFileName, 4)) <> ".doc" Nó Ceart(xFileName, 5) <> ".docx") Ansin
Is féidir leat a fháil ar ais go dtí an t-ainm is gá duit a fháil ar ais go dtí an lá atá inniu ann
xIndex = InStr(xFileName, ".doc") + 1
Ну и про советы других товарищей не забыть ;)

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an cód seo iontach agus tapa ach má tá nasc sa chomhad Doc osclóidh sé fuinneog ag rá go bhféadfadh faisnéis a bheith nasctha le comhad eile na hathruithe seo a chur i bhfeidhm? agus ansin ceann eile ag iarraidh a shábháil mar. An bhfuil bealach ann chun cur leis an gcód chun na céimeanna seo a dhéanamh go huathoibríoch domsa? As ~800 tá ~40 agus caithfidh mé a bheith i láthair agus é seo a dhéanamh gach uair.
go raibh maith agat
Rátáil 5 as 5
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Vincent,
Is féidir leis an gcód VBA seo a leanas bhfabhar a thabhairt duit. Bain triail as, le do thoil. Go raibh maith agat as do chuid aiseolais.

Sub ConvertWordsToPdfs()
'Updated by Extendoffice 20220805
  Dim xIndex As String
  Dim xDlg As FileDialog
  Dim xFolder As Variant
  Dim xNewName As String
  Dim xFileName As String
  On Error Resume Next
  Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
  If xDlg.Show <> -1 Then Exit Sub
  xFolder = xDlg.SelectedItems(1) + "\"
  xFileName = Dir(xFolder & "*.*", vbNormal)
  Application.DisplayAlerts = wdAlertsNone
  While xFileName <> ""
      If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
          xIndex = InStr(xFileName, ".") + 1
          xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
          Documents.Open FileName:=xFolder & xFileName, _
              ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
              PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
              WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
              wdOpenFormatAuto, XMLTransform:=""
          ActiveDocument.ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
              ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
              wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
              Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
              CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
              BitmapMissingFonts:=True, UseISO19005_1:=False
          ActiveDocument.Close wdSaveChanges
      End If
      xFileName = Dir()
  Wend
  Application.DisplayAlerts = wdAlertsAll
End Sub
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, an bhfuil bealach ann chun fillteán aschuir difriúil a roghnú agus ní an fillteán bunaidh?

go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Vincent,
Bain triail as an gcód VBA seo a leanas. Tar éis an cód a rith, an Oscail fhuinneog aníos, roghnaigh le do thoil fillteán ina bhfuil na barúlacha is mian leat a thiontú, sa dara popping suas Sábháil comhaid pdf i fhuinneog, roghnaigh fillteán chun na comhaid PDF a shábháil.

Sub ConvertWordsToPdfs()
'Updated by Extendoffice 20220805
  Dim xIndex As String
  Dim xDlg As FileDialog, xSaveDlg As FileDialog
  Dim xFolder As Variant, xSaveFolder As Variant
  Dim xNewName As String
  Dim xFileName As String
  On Error Resume Next
  Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
  xDlg.Title = "Open"
  xDlg.ButtonName = "Open"
  If xDlg.Show <> -1 Then Exit Sub
  xFolder = xDlg.SelectedItems(1) + "\"
  xFileName = Dir(xFolder & "*.*", vbNormal)
  Set xSaveDlg = Application.FileDialog(msoFileDialogFolderPicker)
  xSaveDlg.Title = "Save PDF files in"
  xSaveDlg.ButtonName = "Save"
  If xSaveDlg.Show <> -1 Then Exit Sub
  xSaveFolder = xSaveDlg.SelectedItems(1) + "\"
  Application.DisplayAlerts = wdAlertsNone
  While xFileName <> ""
      If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
          xIndex = InStr(xFileName, ".") + 1
          xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
          Documents.Open FileName:=xFolder & xFileName, _
              ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
              PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
              WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
              wdOpenFormatAuto, XMLTransform:=""
          ActiveDocument.ExportAsFixedFormat OutputFileName:=xSaveFolder & xNewName, _
              ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
              wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
              Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
              CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
              BitmapMissingFonts:=True, UseISO19005_1:=False
          ActiveDocument.Close wdSaveChanges
      End If
      xFileName = Dir()
  Wend
  Application.DisplayAlerts = wdAlertsAll
  Set xDlg = Nothing
  Set xSaveDlg = Nothing
End Sub
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta