Código para convertir un documento word de 5 páginas en 5 ficheros pdf
Tengo un documento word de varias páginas (20) y necesitaría saber cómo podría, mediante código vba exportar cada una de las páginas en ficheros independientes pdf dándoles a cada fichero un nombre distinto, p.e. Pagina1.pdf, pagina2.pdf... Y así sucesivamente.
1 Respuesta
Respuesta de Abraham Valencia
[Hola
Solo reemplaza la ubicación de los archivos:
Sub ExtraerPaginasPDF()
Dim jso As Object, PDDoc As Object, AVDoc As Object, gApp As Object
Dim Ruta As String, Nombre As String
Dim x As Long
Let Ruta = "D:\Varios\Por clasificar\Matriz.pdf"
Set gApp = CreateObject("Acroexch.app")
Set AVDoc = CreateObject("AcroExch.AVDoc")
If (AVDoc.Open(Ruta, Ruta)) Then
Set AVPageView = AVDoc.GetAVPageView
Set PDDoc = AVDoc.GetPDDoc()
Set jso = PDDoc.GetJSObject
For x = 0 To jso.numPages - 1
Nombre = "D:\Carpeta\" & "Página_" & Right(x + 1001, 3) & ".pdf"
jso.extractPages x, x, Nombre
Next
End If
gApp.exit
MsgBox "Listo"
Set jso = Nothing
Set PDDoc = Nothing
Set AVDoc = Nothing
Set gApp = Nothing
End SubSaludos]
Abraham Valencia
