Δημιουργήστε το Word μεταβλητή την αίτησή σας . Αυτή η μεταβλητή περιλαμβάνει όλες τις λειτουργίες που χρησιμοποιούνται για να διαβάσετε το έγγραφο του Word . Το έγγραφο του Word έχει οριστεί σε «αόρατα », επειδή η εφαρμογή είναι απλή ανάγνωση του αρχείου και όχι την παρουσίαση των δεδομένων για τον αναγνώστη . Ο ακόλουθος κώδικας αρχικοποιεί τις μεταβλητές σας :
λέξη = Νέα Word.Application
word.Visible = False 2
Ανοίξτε το έγγραφο και να αντιγράψετε το περιεχόμενο του εγγράφου του Word . Αυτό αντιγράφει το περιεχόμενο του εγγράφου του Word στην επιφάνεια εργασίας ή διακομιστή Πρόχειρο , το οποίο χρησιμοποιείται για να γράψει το περιεχόμενο του αρχείου PDF . Οι παρακάτω κώδικας αντιγράφεται το περιεχόμενο :
doc = word.Documents.Open ( DirectCast ( word.doc , " word.doc " με το όνομα του εγγράφου του Word .
εικόνων 3
Δημιουργήστε το έγγραφο PDF . Όπως και το έγγραφο του Word , η μεταβλητή αρχείο PDF περιέχει όλες τις βιβλιοθήκες που χρησιμοποιούνται για τη δημιουργία ενός PDF . ο παρακάτω κώδικας δημιουργεί ένα κενό αρχείο PDF :
Dim pdf As New mjwPDF
pdf.PDFTitle = " Word σε PDF "
pdf.PDFFileName = " \\ wordtopdf.pdf "
Η 4
Γράψτε το περιεχόμενο του αρχείου του Word με το αντικείμενο του αρχείου PDF Ο κώδικας που ακολουθεί μεταφέρει το περιεχόμενο του Word στο PDF : .
pdf.PDFTextOut Clipboard.GetDataObject.ToString
.
5
Κλείστε το PDF και έγγραφα του Word Αυτό απελευθερώνει τα δύο αρχεία από τη μνήμη , έτσι ώστε να μπορούν να διαβαστούν από τους χρήστες ή να χρησιμοποιηθούν σε άλλους τομείς του προγράμματός σας Ο κώδικας που ακολουθεί απελευθερώνει τα αρχεία : .
Ορισμός pdf = Τίποτα
Set λέξη = Τίποτα
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα