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