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

Ինչպե՞ս խմբաքանակի միջոցով մի քանի Word փաստաթղթեր փոխարկել pdf ֆայլերի:

Word- ի փաստաթուղթը PDF ֆայլի վերափոխելը ձեզ համար հեշտ է Word- ում Save as գործառույթով: Բայց եթե ուզում եք բոլոր Word փաստաթղթերը թղթապանակում փոխարկել PDF ֆայլերը միանգամից առանձնացնելու համար, ինչպե՞ս կարող եք դրան հասնել: Այս հոդվածը ձեզ ցույց կտա VBA կոդ ՝ Word- ում բազմաթիվ Word փաստաթղթեր խմբաքանակով PDF ֆայլերի վերափոխելու համար:

Խմբաքանակի մի քանի Word փաստաթղթեր VBA- ով վերափոխեք pdf ֆայլերի
Խմբաքանակը մի քանի Word փաստաթղթեր փոխակերպում է pdf ֆայլերի Kutools- ի համար Word- ով


Խմբաքանակի մի քանի Word փաստաթղթեր VBA- ով վերափոխեք pdf ֆայլերի

Հաջորդ VBA կոդը օգնում է ձեզ արագորեն վերափոխել բոլոր Word փաստաթղթերը թղթապանակում միանգամից pdf ֆայլերի: Խնդրում եմ, արեք հետևյալ կերպ.

1. Word- ում սեղմիր ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

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

VBA կոդ. Word- ում խմբաքանակը փոխակերպում է բազմաթիվ Word փաստաթղթեր pdf ֆայլերի

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

4. sննման երկխոսություն է բացվում, խնդրում ենք ընտրեք այն թղթապանակը, որը պարունակում է Word փաստաթղթեր, որոնք կփոխարկեք pdf ֆայլերի, և կտտացրեք OK կոճակը:

Այնուհետև ընտրված թղթապանակի բոլոր Word փաստաթղթերը միանգամից վերափոխվում են առանձին pdf ֆայլերի: Տեսեք,


Խմբաքանակը մի քանի Word փաստաթղթեր փոխակերպում է pdf ֆայլերի Kutools- ի համար Word- ով

Եթե ​​VBA կոդը դժվար է կարգավորել, կարող եք փորձել այն Փոխակերպել փաստաթղթերը օգտակարությունը Kutools բառի համար խնդիրը լուծելու համար:

Kutools բառի համար ՝ ավելի քան 100 հարմար բառերի հավելումներով, անվճար փորձեք առանց սահմանափակումների 60 օրվա ընթացքում.

1: սեղմեք Kutools Plus > Doc / Docx, Տեսեք,

2. Մեջ Փաստաթղթի ձևաչափի փոխարկիչ պատուհանը, դուք պետք է անեք հետևյալը.

2.1) Ընտրեք պանակը, որը պարունակում է փաստաթղթեր, որոնք դուք կփոխարկեք pdf- ի Աղբյուրի ֆայլի պանակ Բաժին;
2.2 Ընտրել Փոխակերպել docx- ը pdf- ի - ից Ձևաչափի փոխարկում բացվող ցուցակ;
2.3) Լռելյայնորեն, Նպատակակետի ուղին նույնն է, ինչ աղբյուրը վանդակը ստուգված է: Եթե ​​ցանկանում եք բոլոր վերափոխված pdf ֆայլերը տեղադրել նույն պանակում, պարզապես այս տարբերակը ընտրված պահեք.
Եթե ​​ցանկանում եք առանձնացնել pdf ֆայլերը և աղբյուրի փաստաթղթերը, ապա պետք է ապանշել Նպատակակետի ուղին նույնն է, ինչ աղբյուրը տուփը և ընտրեք նոր պանակ ՝ pdf ֆայլերը համակարգչում պահելու համար Պահպանել տուփ;
2.4) Կտտացրեք այն սկիզբ կոճակ Տեսեք,

3. Դրանից հետո բացվում է երկխոսության տուփ ՝ ձեզ ասելու համար, թե քանի փաստաթուղթ է հաջողությամբ փոխարկվել, կտտացրեք այն OK կոճակը և փակել այն Փաստաթղթի ձևաչափի փոխարկիչ պատուհան.

Այժմ .docx ձևաչափի բոլոր փաստաթղթերը վերափոխվում են pdf ֆայլերի:

Եթե ​​ցանկանում եք անվճար օգտվել այս օգտակար ծառայությունից, գնացեք այստեղ անվճար ներբեռնել ծրագրաշարը նախ և ապա անցեք գործողությունը կիրառելու համար ՝ համաձայն վերը նշված քայլերի:


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

 

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

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (29)
Գնահատված 5- ը 5- ից դուրս է · 2 վարկանիշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ լավ բլոգ, շնորհակալություն այս բլոգը կիսելու համար: Այն ունի այնքան օգտակար տեղեկատվություն օգտվողների համար: Ինձ շատ դուր եկավ այս տեղեկությունը:
Հուսով եմ, որ դուք կշարունակեք կիսվել նման տեսակի տեղեկատվության փոխանակմամբ word doc-ը html-ի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA, եթե ես փորձեմ փոխակերպել ֆայլը, որը պարունակում է մակրոներ, ապա մակրոները վերածվում են բաց ֆայլի և ավարտվում են առանց փակման ֆայլի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա՞ որևէ միջոց, որպեսզի ֆայլի անունը վերցվի փաստաթղթի տեքստից:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi այնտեղ,


կա՞ արդյոք VBA կոդը հարմարեցնելու հեշտ միջոց, որպեսզի Փաստաթղթերը փոխարկվեն .txt-Files-ի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,

Ես ստանում եմ գործարկման ժամանակի սխալ «424»:
Օբյեկտը պահանջվում է

ստորև բերված կոդով

Documents.Open Filename:=xFolder & xFileName, _

Confirm Conversions:=False, Read Only:=False, AddToRecentFiles:=False, _

PasswordDocument:="", PasswordTemplate:="", Revert:=False, _

WritePasswordDocument:="", WritePasswordTemplate:="", Ձևաչափ:= _

wdOpenFormatAuto, XMLTransform:=""


wdOpenFormatAuto = 0 ասում է.

Please help.

Thanks.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,



Ես ստանում եմ գործարկման ժամանակի սխալ «424»:

Օբյեկտը պահանջվում է


պատկերը կցված է:




Please help.



Thanks.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ձեզ, շատ շնորհակալ եմ այս կոդի համար: Այն լավ է աշխատում, այնուամենայնիվ, ես յուրաքանչյուր փոխարկումից հետո ստանում եմ երկխոսության տուփ՝ doc բառը պահպանելու համար, և ես պետք է պահպանեմ: Կարո՞ղ եք կոդ ներառել մակրոյում, որպեսզի այդ ֆայլը պահպանվի և փակվի յուրաքանչյուրը փակելու փոխարեն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
եթե «ActiveDocument.Save»-ն ավելացնեք «ActiveDocument.Close»-ի վերևում, այն կպահի փաստաթուղթը նախքան ինքն իրեն փակելը, այնպես որ դուք ստիպված չեք լինի միշտ սեղմել պահպանման հուշումը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շնորհակալություն vba կոդի համար, դա շատ է օգնում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA կոդը հիանալի է: Ողջույն, կերա
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փոխել xIndex = InStr(xFileName, ".") + 1


Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​փոխեք
xIndex = InStr(xFileName, ".") + 1 դեպի
xIndex = InStrRev (xFileName, ".") + 1
այն կփնտրի տողի վերջից՝ առաջին կետը գտնելու համար: Սա կխուսափի խնդիրներից, երբ ֆայլի անունը պարունակում է կետ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Спасибо, очень дельный խորհուրդ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​փոխում եքxFileName = Dir(xFolder & «*.*», vbNormal)
դեպի xFileName = Dir(xFolder & "*.doc*", vbNormal) մակրոն չի խափանվի, երբ նույն թղթապանակում կան ոչ Word ֆայլեր:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա փրկեց իմ օրը, շատ շնորհակալություն:
Ես պարզապես կցանկանայի նշել այն մարդկանց համար, ովքեր օգտագործում են սա, եթե Word-ը կարծես սառչում է, պարզապես սպասեք. այն ստեղծում է .pdf ֆայլեր: Իմ Word-ը սառեց, բայց ես բացեցի ֆայլերի թղթապանակը և տեսա, որ այն իսկապես ստեղծում է .pdf բոլոր ֆայլերի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA 很棒!!感謝您的分享。
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես խնդիր ունեմ, եթե փաստաթուղթը ունի 1.2.3.5 անունը. Blabla bla.doc, այն պահպանում և վերագրում է PDF ֆայլերը, իսկ վերջում ես ունեմ միայն 0ne: վերջին փաստաթուղթը: Ինչպե՞ս կարող եմ լուծել այս խնդիրը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​փոխեք
xIndex = InStr(xFileName, ".") + 1
դեպի
xIndex = InStrRev (xFileName, ".") + 1
այն կփնտրի տողի վերջից՝ առաջին կետը գտնելու համար: Սա կխուսափի խնդիրներից, երբ ֆայլի անունը պարունակում է կետ:

Եթե ​​փոխեք
xFileName = Dir(xFolder & "*.*", vbNormal)
դեպի
xFileName = Dir(xFolder & "*.doc*", vbNormal)
մակրոն չի խափանվի, երբ նույն թղթապանակում կան ոչ Word ֆայլեր:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Макрос работает некорректно, если в именах файлов есть точки
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​փոխեք
xIndex = InStr(xFileName, ".") + 1
դեպի
xIndex = InStrRev (xFileName, ".") + 1
այն կփնտրի տողի վերջից՝ առաջին կետը գտնելու համար: Սա կխուսափի խնդիրներից, երբ ֆայլի անունը պարունակում է կետ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​փոխեք
xIndex = InStr(xFileName, ".") + 1
դեպի
xIndex = InStrRev (xFileName, ".") + 1
այն կփնտրի տողի վերջից՝ առաջին կետը գտնելու համար: Սա կխուսափի խնդիրներից, երբ ֆայլի անունը պարունակում է կետ:

Եթե ​​փոխեք
xFileName = Dir(xFolder & "*.*", vbNormal)
դեպի
xFileName = Dir(xFolder & "*.doc*", vbNormal)
մակրոն չի խափանվի, երբ նույն թղթապանակում կան ոչ Word ֆայլեր:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն! Խնայեց ինձ այնքան ժամանակ!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Вот тут во втором условии надо 4 заменить на 5:
Եթե ​​((Right(xFileName, 4)) <> «.doc» կամ Right(xFileName, 5) <> «.docx») Ապա
Для исключения проблемы наличия точек може сделать так:
xIndex = InStr(xFileName, «.doc») + 1
Ну и про советы других товарищей не забыть ;)

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը զարմանալի է և արագ, բայց եթե Doc ֆայլում հղում կա, այն կբացի պատուհան, որտեղ ասվում է, որ կարող է լինել մեկ այլ ֆայլի հետ կապված տեղեկատվություն, կիրառեք այս փոփոխությունները: իսկ հետո մեկ ուրիշը խնդրում է պահպանել որպես: Կոդին ավելացնելու միջոց կա՞ այս քայլերն ինձ համար ավտոմատ կերպով կատարելու համար: 800-ից ~40-ն է, և ես պետք է ներկա լինեմ և ամեն անգամ դա անեմ:
Շնորհակալություն
Գնահատված 5- ը 5- ից դուրս է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Վինսենթ,
Հետևյալ VBA կոդը կարող է ձեզ լավություն անել: Խնդրում եմ, փորձեք: Շնորհակալություն արձագանքի համար:

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
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ձեզ կա՞ տարբերակ ընտրել այլ ելքային թղթապանակ և ոչ թե բնօրինակը:

Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Վինսենթ,
Խնդրում ենք փորձել հետևյալ VBA կոդը: Կոդը գործարկելուց հետո ան բաց պատուհանը բացվում է, խնդրում ենք ընտրել մի թղթապանակ, որը պարունակում է փաստաթղթերը, որոնք ցանկանում եք փոխարկել, երկրորդ բացվող պատուհանում Պահպանեք PDF ֆայլերը պատուհանում ընտրեք թղթապանակ՝ PDF ֆայլերը պահելու համար:

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
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր