Come Convertire Word in PDF con VB.Net

July 7

Come Convertire Word in PDF con VB.Net


Se si sta sviluppando un'applicazione di gestione dei documenti in VB.Net, si potrebbe trovare un metodo di conversione documenti di Microsoft Word in file PDF attraverso 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 questo farà risparmiare gli utenti dell'applicazione un sacco di tempo in cui sono necessarie conversioni.

istruzione

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

parola Dim = new ApplicationClass ();

word_file Dim = percorso come oggetto

Word.Document opened_doc = word.Documents.Open (word_file ref, ref nulla, nulla ref, ref nulla, nulla ref, ref nulla, nulla ref, ref nulla, nulla ref, ref nulla, nulla ref, ref nullo);

Assicurarsi che i valori "nulli" 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 attivare altre funzioni speciali di Word all'apertura del documento.

2 Creare una funzione che copia 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 seguente codice nella funzione:

opened_doc.ActiveWindow.Selection.WholeStory

opened_doc.ActiveWindow.Selection.Copy

Clip Dim = Clipboard.GetDataObject

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

mypdf fioco come nuovo mjwPDF

mypdf.PDFFileName = "word_transfer.pdf"

mypdf.PDFTextOut clip.ToString

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

Set parola = niente

Set opened_doc = niente

Set mypdf = niente


Articoli Correlati