Πώς να μετατρέψετε το Word σε PDF με VB.Net

Αν είστε ανάπτυξη μιας εφαρμογής διαχείρισης εγγράφων σε VB.Net , μπορείτε να βρείτε μια μέθοδο μετατροπής εγγράφων του Microsoft Word σε αρχεία PDF μέσω της αυτοματοποίησης πολύ χρήσιμο . Εάν χρειάζεστε την αίτησή σας για να μετατρέψει τα έγγραφα σε μορφή PDF για να εμποδίσετε τις αλλαγές ή τις αλλαγές , τότε κωδικοποίηση μια κατηγορία ή ενότητα για να κάνει ακριβώς αυτό θα σώσει τους χρήστες της εφαρμογής σας πολύ χρόνο , όταν χρειάζονται μετατροπές . Οδηγίες
Η 1

Δημιουργήστε μια κλάση εφαρμογή Word που ανοίγει ένα έγγραφο . Δημιουργήστε τη μεταβλητή κλάσης για να ανοίξετε ένα έγγραφο που ονομάζεται " myfilename.doc " ή κάτι παρόμοιο . Εισάγετε τον παρακάτω κώδικα σε μια λειτουργική μονάδα σε VB.Net :

Dim λέξη = νέα ApplicationClass ( ) ?

Δημ. word_file = διαδρομή ως αντικείμενο

Word.Document opened_doc = λέξη . Documents.Open ( ref word_file , ref null , null διαιτητή , ref null , null διαιτητή , ref null , null διαιτητή , ref null , null διαιτητή , ref null , null διαιτητή , ref null) ?

Να είστε βέβαιος οι " null " τιμές υπάρχουν στο παραπάνω κώδικα για να ανοίξετε το έγγραφο χρησιμοποιώντας τις προεπιλεγμένες παραμέτρους , εκτός και αν χρειαστεί να ανοίξετε το έγγραφο σε μια συγκεκριμένη προβολή ή πρέπει να ενεργοποιήσετε άλλες ειδικές δυνατότητες του Word για το άνοιγμα του εγγράφου . 2

Δημιουργήστε μια λειτουργία που αντιγράφει το περιεχόμενο του εγγράφου του Word με το clipboard των Windows . Για να το κάνετε αυτό, χρησιμοποιήστε το " WholeStory " εντολή VBA για να προσομοιώσει το έργο της πατώντας το πλήκτρο " Ctrl " και τα πλήκτρα " A" ταυτόχρονα για να επισημάνετε και να επιλέξετε όλα τα αντικείμενα και το κείμενο στο έγγραφο . Χρησιμοποιήστε την επιλογή " Αντιγραφή " εντολή για την εισαγωγή των τονίζεται αντικείμενα στο Πρόχειρο των Windows . Για να το κάνετε αυτό, τοποθετήστε τον ακόλουθο κώδικα σε το clip = Clipboard.GetDataObject εικόνων
3

Κωδικός μια μεταβλητή αντικειμένου για να δημιουργήσετε ένα νέο PDF και μεταφορά περιεχομένου από το έγγραφο του Word . Επικολλήστε τον ακόλουθο κώδικα στο νέο αντικείμενο :

Dim mypdf As New mjwPDF

mypdf.PDFFileName = " word_transfer.pdf "

mypdf.PDFTextOut clip.ToString
Φτηνές 4

Εισάγετε τον κωδικό για να κλείσει τόσο τον Λόγο και τα έγγραφα PDF με την επικόλληση τον παρακάτω κωδικό στο τέλος της συνάρτησης :

Set λέξη = τίποτα

Set opened_doc = τίποτα

Ορισμός mypdf = τίποτα
Η
εικόνων