İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Toplu bir neçə Word sənədini pdf fayllarına necə çevirir?

Bir Word sənədini PDF faylına Worddə funksiyanı saxla ilə çevirmək asandır. Ancaq PDF sənədlərini bir anda ayırmaq üçün bir qovluqda bütün Word sənədlərini çevirmək istəyirsinizsə, necə nail ola bilərsiniz? Bu yazı Word'deki pdf fayllarına birdən çox Word sənədini topluya çevirmək üçün VBA kodunu göstərəcəkdir.

Batch VBA ilə çoxlu Word sənədlərini pdf fayllara çevirir

Batch Word üçün Kutools ilə pdf faylları birdən çox Word sənədlərini çevirir


Asanlıqla batch Word'ün pdf fayllarına birdən çox Word sənədini çevirir:

The Document Format Converter faydası Excel üçün Kutools Docx formatında sənədləri müəyyən bir qovluğa pdf faylları tez çevirməkdə kömək edə bilər. Ekran görüntüsünə baxın:

Word üçün Kutools: 100-dən çox 30 lazımlı Word eklentisi ilə, XNUMX gün ərzində heç bir məhdudiyyət olmadan cəhd edin. İndi indir və pulsuz sınaq!


Batch VBA ilə çoxlu Word sənədlərini pdf fayllara çevirir

Aşağıdakı VBA kodu bir qovluğa bütün Word sənədlərini tez bir zamanda pdf fayllarına çevirməyə kömək edir. Xahiş edirik bunu edin.

1. Word'de, basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules, sonra VBA kodu aşağıda Module pəncərəsinə kopyalayın.

VBA kodu: Batch Word'ün pdf fayllarına birdən çox Word sənədini çevirir

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. Basın F5 kodunu çalıştırmak üçün düyməsini basın.

4. A Gözatma informasiya qutusu açılır, pdf fayllarına çevrilən Word sənədlərini ehtiva edən qovluğu seçin və basın OK düyməsini basın.

Sonra seçilmiş qovluqdakı bütün Word sənədləri birbaşa pdf fayllarına çevrilir. Ekran görüntüsünə baxın:


Batch Word üçün Kutools ilə pdf faylları birdən çox Word sənədlərini çevirir

VBA kodunu idarə etmək çətindirsə, siz də cəhd edə bilərsiniz Sənədləri dəyişdirin faydası Word üçün Kutools problemi həll etmək.

Word üçün Kutools : 100-dən çox lazımlı Word eklentisi ilə, 30 gün ərzində heç bir məhdudiyyət olmadan cəhd edin.

1. klik Kutools Plus > Doc / Docx. Ekran görüntüsünə baxın:

2. İçində Document Format Converter pəncərədə aşağıdakıları etməlisiniz:

2.1) Qovluqda pdf-ə çevirəcəyi sənədləri seçin Mənbə fayl qovluğu bölmə;

2.2 seçin Docx faylını pdf-ə çevirin dən Format Konvertasiya açılan siyahı;

2.3) Varsayılan olaraq Hedef yolu mənbə kimi eyni qutusu yoxlanılır. Bütün dönüştürülmüş pdf fayllarını eyni qovluqda yerləşdirmək istəyirsinizsə, yalnız bu seçimi seçməlisiniz;

Əgər siz pdf faylları və mənbə sənədlərini ayırmaq istəyirsinizsə, silmək lazımdır Hedef yolu mənbə kimi eyni qutusuna daxil edin və pdf fayllarını saxlamaq üçün yeni bir qovluq seçin Saxla Qutu;

2.4) basın start düyməsini basın. Ekran görüntüsünə baxın:

3. Daha sonra hansı sənədlərin uğurla çevrildiyini sizə bildirmək üçün bir informasiya qutusu açılır, sonra basın OK düyməsini basın və bağlayın Document Format Converter pəncərə.

İndi bütün .docx formatında sənədlər pdf fayllarına çevrilir.

Bu yardım proqramının pulsuz bir sınaq versiyasını istəyirsinizsə, xahiş edirəm proqramı pulsuz yükləyin birincisi, sonra yuxarıdakı addımlara uyğun olaraq əməliyyata müraciət edin.



Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.