Convertir .doc a .pdf

Convertir .doc a .pdf

Muchas veces nos hemos visto en la necesidad de realizar una conversion de documentos entre estos dos tipos de formatos, existen muchas herramientas en la red que hacen dicho proceso, sin enbargo como programadores nos vemos en la necesidad muchas veces de manipular dicha conversion por tal motivo se inicia este pequeño tutorial.

Comenzemos...

Usaremos VB .Net 2008
Office 2010 [Version actualmente en mi PC]


Primero crearemos un nuevo proyecto.

En el formulario de inicio [Form1] agregaremos los siguientes controles
1- Caja de texto [TxtSource]
2- Boton Examinar [BtnExaminar]
3- Boton Convertir a PDF [BtnConvertir]
4- Un label [Label1]

El formulario se vera asi:





A nuestro proyecto debemos agregar la referencia correspondiente a Word
para mi caso es Microsoft Word 14.0 Object Library
Si tienes otra version de offices debes agregar la libreria correspondiente a tu version.




Vamos al codigo...

En el evento click del boton examinar haremos lo siguiente, esto lo que hace es habrir un dialogo el cual nos permitira seleccionar un documento de Word y almacenara la ruta en el TxtSource


'Seleccionar Tipo de Fichero
Dim TipoFichero As String
TipoFichero = ""
TipoFichero = "Fichero MSWord |*.doc;*.docx"


Try
Dim oFD As New OpenFileDialog
With oFD
.Filter = TipoFichero
.FileName = TxtSource.Text
If .ShowDialog = DialogResult.OK Then
TxtSource.Text = .FileName
End If
End With

Catch oexcep As Exception
MessageBox.Show("Error: //Abriendo Documento// " & vbCrLf & _
"Use una ubicación diferente" & vbCrLf & _
ControlChars.CrLf & _
oexcep.Message & ControlChars.CrLf)

End Try


Luego en el evento click del boton ConvertirArchivo!!!

'----Pasando documento de Word a PDF ---------------------------------------
'----By CesarL

Dim wordApplication As ApplicationClass = New ApplicationClass()
Dim wordDocument As Document = Nothing

Dim paramSourceDocPath As String = TxtSource.Text

Dim paramExportFilePath As String = "C:\Test.pdf"
Dim paramExportFormat As WdExportFormat = _
WdExportFormat.wdExportFormatPDF
Dim paramOpenAfterExport As Boolean = False
Dim paramExportOptimizeFor As WdExportOptimizeFor = _
WdExportOptimizeFor.wdExportOptimizeForPrint
Dim paramExportRange As WdExportRange = _
WdExportRange.wdExportAllDocument
Dim paramStartPage As Int32 = 0
Dim paramEndPage As Int32 = 0
Dim paramExportItem As WdExportItem = _
WdExportItem.wdExportDocumentContent
Dim paramIncludeDocProps As Boolean = True
Dim paramKeepIRM As Boolean = True
Dim paramCreateBookmarks As WdExportCreateBookmarks = _
WdExportCreateBookmarks.wdExportCreateWordBookmarks
Dim paramDocStructureTags As Boolean = True
Dim paramBitmapMissingFonts As Boolean = True
Dim paramUseISO19005_1 As Boolean = False

Try
'Abrir documento basados en el que selecciono
wordDocument = wordApplication.Documents.Open(paramSourceDocPath)

' Exportar al formato deseado
If Not wordDocument Is Nothing Then
wordDocument.ExportAsFixedFormat(paramExportFilePath, _
paramExportFormat, paramOpenAfterExport, _
paramExportOptimizeFor, paramExportRange, paramStartPage, _
paramEndPage, paramExportItem, paramIncludeDocProps, _
paramKeepIRM, paramCreateBookmarks, _
paramDocStructureTags, paramBitmapMissingFonts, _
paramUseISO19005_1)
End If
Catch ex As Exception
'Aqui una exepcion no controlada
Finally
'cerrar documento
If Not wordDocument Is Nothing Then
wordDocument.Close(False)
wordDocument = Nothing
End If

'Quit a la aplicacion WinWord
If Not wordApplication Is Nothing Then
wordApplication.Quit()
wordApplication = Nothing
End If

GC.Collect()
GC.WaitForPendingFinalizers()
GC.Collect()
GC.WaitForPendingFinalizers()
End Try


' Fin de proceso -----------------------------------------------------------

Ahora solo ejecutamos nuestro proyecto, seleccionamos el archivo .doc ó .docx y presionamos el boton ConvertirArchivo!!! y se convertira el documento seleccionado y se almacenara en "C:\Test.pdf"