Option Compare Database
Option Explicit
Public Function ConvertPDFToWord(Fichero_Destino As String)
'-----------------------------------------------------------------------------------------------------------------------------------------------
' Fuente : https://access-global.net/vba-convertir-pdf-a-word
'-----------------------------------------------------------------------------------------------------------------------------------------------
' Título : CargaFavoritos
' Autor : Desconocido
' Creación : desconocida
' Propósito : convertir un fichero PDF en un fichero Word
' Retorno : Sin retorno
'-----------------------------------------------------------------------------------------------------------------------------------------------
' Referencias : https://learn.microsoft.com/es-es/office/vba/api/word.application.changefileopendirectory
' https://learn.microsoft.com/es-es/office/vba/api/word.document
' https://learn.microsoft.com/es-es/office/vba/api/word.saveas2+
' Microsoft Word x.x Object Library
'-----------------------------------------------------------------------------------------------------------------------------------------------
'Test: : Para adaptar este código en tu aplicación puedes basarte en este procedimiento test. Copiar el bloque siguiente al
' portapapeles y pega en el editor de VBA. Descomentar la línea que nos interese y pulsar F5 para ver su funcionamiento.
'
' Sub ConvertPDFToWord_test()
'
' Call ConvertPDFToWord (nombre del fichero)
'
' End Sub
'
'-----------------------------------------------------------------------------------------------------------------------------------------------
On Error GoTo LinError
Do While (Fichero_Destino <> "")
ChangeFileOpenDirectory "C:\Users\luisv\Documents" 'Directorio de origen
Documents.Open filename:=Fichero_Destino, ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, XMLTransform:=""
' ChangeFileOpenDirectory "C:\Users\luisv\Documents" 'Directorio de destino que no incluimos si ambos son iguales
ActiveDocument.SaveAs2 filename:=Replace(Fichero_Destino, ".pdf", ".docx"), FileFormat:=wdFormatXMLDocument _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, CompatibilityMode:=15
ActiveDocument.Close
Exit Function
Loop
LinError:
MsgBox "Ha habido un error " & Err.Description
End Function
