Cómo convertir Word a PDF con VB.Net

Si está desarrollando una aplicación de gestión de documentos en VB.Net , es posible encontrar un método para convertir documentos de Microsoft Word en archivos PDF mediante la automatización de gran utilidad. Si necesita que su aplicación para convertir los documentos al formato PDF para evitar cambios o ediciones , a continuación, codificar una clase o módulo para hacer precisamente eso salvará a los usuarios de la aplicación de una gran cantidad de tiempo en que se necesitan conversiones. Instrucciones
1

Crear una clase de aplicación de Word que se abre un documento. Cree la variable de clase para abrir un documento denominado " myfilename.doc " o algo similar. Inserte el siguiente código en un módulo en VB.Net :

palabra Dim ApplicationClass = new ();

word_file Dim = ruta como objeto

opened_doc Word.Document = palabra . Documents.Open (ref word_file , ref null, ref null, ref null, ref null, ref null, ref null, ref null, ref null, ref null, ref nulo , referencia null);

Asegúrese los valores " nulos " están presentes en el código anterior para abrir el documento utilizando los parámetros por defecto a menos que usted necesita para abrir el documento en una vista específica o necesita habilitar otras características especiales de Word al abrir el documento.
2 < p > Crear una función que copia el contenido del documento de Word en el portapapeles de Windows. Para ello, utilice el comando VBA " WholeStory " para simular la tarea de presionar las teclas " A", " Ctrl" y al mismo tiempo para resaltar y seleccionar todos los objetos y el texto del documento. Utilice la opción "Copiar " para insertar los objetos señalados en el Portapapeles de Windows . Para ello, inserte el código siguiente en el Clip = Clipboard.GetDataObject
3

Código una variable de objeto para crear un nuevo PDF y el contenido de traslado desde el documento de Word. Pega el siguiente código en el nuevo objeto :

mypdf Dim As New mjwPDF

mypdf.PDFFileName = " word_transfer.pdf "

mypdf.PDFTextOut clip.ToString
Página 4

código de inserción para cerrar tanto el Word y PDF al pegar el siguiente código al final de la función:

Set word = nada

Set opened_doc = nada

Set mypdf = nada