Wenn Sie die Entwicklung eines Dokumenten-Management -Anwendung in VB.Net sind , könnten Sie ein Verfahren zur Konvertierung von Microsoft Word-Dokumente , PDF-Dateien durch Automatisierung sehr nützlich finden. Wenn Sie Ihre Anwendung , um die Dokumente in das PDF- Format zu konvertieren , um Änderungen oder Korrekturen zu vermeiden, dann Codierung einer Klasse oder das Modul genau das zu tun , die die Benutzer der Anwendung eine Menge Zeit sparen, wenn Umbauten erforderlich sind. Anleitung
1

Erstellen Sie ein Word -Anwendung -Klasse, die ein Dokument öffnet . Erstellen Sie die Variable Klasse, um ein Dokument mit dem Namen " myfilename.doc " oder etwas ähnliches zu öffnen. Fügen Sie folgenden Code in ein Modul in VB.Net :

Dim Wort = new ApplicationClass ();

Dim word_file = path as Object

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

Achten die "Null "-Werte sind in der oben genannten Code , um das Dokument mit den Standardeinstellungen Parameter nur, wenn Sie das Dokument in einer bestimmten Ansicht zu öffnen oder müssen andere spezielle Word-Funktionen beim Öffnen des Dokuments aktivieren müssen öffnen.
2 < p> erstellen Sie eine Funktion , die den Inhalt des Word-Dokuments , um die Windows-Zwischenablage kopiert . Um dies zu tun , verwenden Sie die " WholeStory " VBA -Befehl , um die Aufgabe nach dem Drücken der "Strg" und "A" -Tasten gleichzeitig zu markieren, und wählen Sie alle Objekte und Text im Dokument zu simulieren. Verwenden Sie den Befehl "Kopieren" , um die markierten Objekte in die Windows-Zwischenablage einfügen . Um dies zu tun , geben Sie den folgenden Code in die clip = Clipboard.GetDataObject
3

-Code ein Objekt Variable auf eine neue PDF- und Transfer von Inhalten aus dem Word-Dokument zu erstellen. Fügen Sie folgenden Code in das neue Objekt :

Dim As New MyPDF mjwPDF

mypdf.PDFFileName = " word_transfer.pdf "

mypdf.PDFTextOut clip.ToString

4

Code eingeben , um sowohl die word-und PDF-Dokumente durch Einfügen den folgenden Code am Ende der Funktion schließen :

Set word = nichts

Set opened_doc = nothing

Set MyPDF = nichts