como convertir más de 5 documentos WORD a PDF sin internet

[@miguelalvarado4656]

CÓDIGO: 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

[@JairoManuelLeon]

Mi hermano, gracias. Me has salvado la vida. Muchas Gracias

[@EdieSantiagoRegaladoHernandez]

SOS GRANDE, ME SIRVIÓ MUCHO!

[@miguelalvarado4656]

Gracias por comentar

[@susalbe3481]

Muchas gracias 🤗 como maestra te agradezco el tiempo ahorrado

[@miguelalvarado4656]

Con mucho gusto

[@DavidRamos-rn3iq]

Muchas gracias, me ayudo mucho 👍

[@miguelalvarado4656]

Con mucho gusto

[@limaxgen77]

En F5 sale sintax error 😢

[@florvillaltagrd2138]

Necesito esto con urgencia, pero no puedo copiar ése código

[@xaviervivas1092]

Alguien tiene un nuevo código me sale macros :(

[@DIEGOMENDOZAQUINONES]

SI NO FUNCIONA F5, CON CUAL OTRO PUEDO HACERLO?

[@jorgeheribertoperezzuniga6439]

Presiona fn + F5

[@tunja-diplomadoenmediosdec5012]

Esta bien gracias

[@gloriadiago101]

Muchas gracias

[@arturoacosta9764]

Como se baja el archivo con el código

[@mauriciopalacios6036]

No funciona

[@miguelalvarado4656]

debe ser por el tiempo ya