Come convertire Word in PDF con VB.Net

Se si sviluppa un'applicazione di gestione dei documenti in VB.Net , si potrebbe trovare un metodo di conversione di documenti di Microsoft Word in file PDF tramite l'automazione molto utile . Se è necessario l'applicazione per convertire i documenti in formato PDF per evitare cambiamenti o modifiche, quindi la codifica di una classe o di un modulo per fare proprio che salverà gli utenti dell'applicazione di un sacco di tempo quando sono necessarie conversioni . Istruzioni
1

Creare una classe applicazione Word che si apre un documento. Creare la classe variabile per aprire un documento denominato " myfilename.doc " o qualcosa di simile . Inserire il seguente codice in un modulo in VB.Net :

Dim parola = new ApplicationClass ( ) ;

Dim word_file = percorso come oggetto

opened_doc Word.Document = parola . Documents.Open ( rif word_file , riferimento null, ref null, ref null, ref null, ref null, ref null, ref null, ref null, ref null, ref null, ref null) ;

assicurarsi i valori "null" sono presenti nel codice qui sopra per aprire il documento usando i parametri di default a meno che non è necessario aprire il documento in una vista specifica o necessità di abilitare altre funzioni speciali Word all'apertura del documento.
2

Creare una funzione che consente di copiare il contenuto del documento di Word negli Appunti di Windows . Per fare questo, utilizzare il comando VBA " WholeStory " per simulare il compito di premere i tasti "A" "Ctrl" e allo stesso tempo per evidenziare e selezionare tutti gli oggetti e il testo del documento . Utilizzare il comando "Copia" per inserire gli oggetti evidenziati negli Appunti di Windows . Per fare questo , inserire il codice riportato di seguito nel Clip = Clipboard.GetDataObject
3 Codice

una variabile oggetto per creare un nuovo PDF e contenuti trasferimento dal documento di Word . Incollare il codice seguente nel nuovo oggetto :

Dim mypdf As New mjwPDF

mypdf.PDFFileName = " word_transfer.pdf "

mypdf.PDFTextOut clip.ToString

4

codice Inserisci per chiudere sia la Parola e documenti PDF incollando il codice seguente alla fine della funzione :

parola = niente

opened_doc = nulla < br

Set> mypdf = niente