Πώς να μετατρέψετε αρχεία του Word σε PDF χρησιμοποιώντας VB

έγγραφα του Word είναι ανοικτή για οποιονδήποτε να επεξεργαστείτε και να διαγράψετε περιεχόμενο . Για το λόγο αυτό , οι προγραμματιστές έχουν επιφορτιστεί με τη μετατροπή εγγράφων του Word σε PDF για την ανοικτή διανομή . Τα έγγραφα του Word μετατρέπονται σε μορφή PDF , έτσι ώστε η εταιρεία μπορεί να διανείμει το PDF στο διαδίκτυο χωρίς να αντιγραφούν ή να τροποποιηθούν . Ο κωδικός μπορεί να υλοποιηθεί με τη χρήση Basic ( VB ) γλώσσα Visual . Αυτό είναι ευεργετικό για κάθε κωδικοποιητή που χρειάζεται για να μετατρέψει τα έγγραφα από έναν επιτραπέζιο υπολογιστή ή web εφαρμογή . Οδηγίες
Η

1 Ανοίξτε το έγγραφο του Word . Μπορείτε να ανοίξετε ένα έγγραφο του Word από την προετοιμασία του κλάση εφαρμογής του Word , η οποία είναι μια μεταβλητή που περιέχει όλες τις μεθόδους και τις ιδιότητες για το Word χειραγώγηση αρχείο . Ο ακόλουθος κώδικας ανοίγει ένα αρχείο με το όνομα " myfile.doc " :

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

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

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

Η οι " null " όλες τις απαραίτητες τιμές , επειδή η λειτουργία "Άνοιγμα" έχει πολλές παραμέτρους που απαιτούνται για να ανοίξετε ένα έγγραφο . Ορίζοντας αυτές τις παραμέτρους για να " null " ανοίγει το έγγραφο μόνο με τις προεπιλεγμένες ιδιότητες . 2

Αντιγράψτε το περιεχόμενο του αρχείου του Word στο Πρόχειρο . Αυτό επιτυγχάνεται με τη χρήση της « WholeStory " και " Copy" λειτουργίες. Η " WholeStory " λειτουργία είναι παρόμοια με το χέρι τονίζοντας όλο το περιεχόμενο του φακέλου και "Copy" μεταφέρει το επισημασμένο τμήμα στο Πρόχειρο . Τα παρακάτω κώδικα αντιγράφει το αρχείο του Word κλιπ = Clipboard.GetDataObject εικόνων
3

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

Dim mypdf As New mjwPDF

mypdf.PDFFileName = " word_transfer.pdf "

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

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

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

Set opened_doc = τίποτα

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