Πώς να μετατρέψετε ένα έγγραφο σε ένα TXT σε VB

Visual Basic , από μόνη της , δεν περιέχει τα απαραίτητα εργαλεία για να συνεργαστεί με το περιεχόμενο της « DOC » μορφή αρχείου του Microsoft Word . Ωστόσο, εάν ένα αντίγραφο του Microsoft Word είναι εγκατεστημένο στο σύστημα , μαζί με τη Visual Basic , Visual Basic , τότε θα παρατείνεται αυτόματα με αυτό τον τρόπο , καθώς και . Τα πράγματα που θα χρειαστείτε για Microsoft το Word
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Δημιουργήστε ένα νέο έργο της Visual Basic . Επιλέξτε " Εφαρμογή κονσόλας " όταν σας ζητηθεί για τον τύπο εφαρμογής . Αργότερα , μπορείτε να χρησιμοποιήσετε το ίδιο κώδικα στο δικό γραφική διεπαφή χρήστη της εφαρμογής σας , αλλά η επιλογή της κονσόλας επιτρέπει το φροντιστήριο για να μεταβείτε κατ 'ευθείαν στον κώδικα που έχει σημασία . 2

Επικολλήστε τον ακόλουθο στην πρώτη γραμμή της το έργο ( πάνω από τη γραμμή " Module Module1 " ) :

Εισαγωγές Microsoft.Office.Interop

Εάν το Microsoft Word δεν είναι εγκατεστημένο στο σύστημά σας , τότε η εντολή θα υπογραμμιστεί με πράσινο χρώμα για να ενημερώσει . σας από αυτό το γεγονός , και δεν μπορείτε να συνεχίσετε το φροντιστήριο
εικόνων 3

Επικολλήστε τον ακόλουθο εντός του " Main" υπορουτίνα :

Δημ. WAPP = Νέα Word.Application

Dim wDoc = wApp.Documents.Open ( fileName : = " file.doc " , μόνο για ανάγνωση = True )

wDoc.SaveAs ( " file.txt " , Word.WdSaveFormat.wdFormatDOSText )

wApp.Quit (

) Αυτό ανοίγει ένα αντίγραφο του Microsoft Word στο παρασκήνιο , ανοίγει το έγγραφο " file.doc " ως μόνο για ανάγνωση ( ένα χαρακτηριστικό ασφαλείας για την αποτροπή ακούσιων αλλαγών στο έγγραφο ) , και καλεί του Word "Save As " εντολή για να το αποθηκεύσετε ως ένα αρχείο κειμένου DOS που ονομάζεται " file.txt . " Τέλος , το Microsoft Word κλείνει αυτόματα .
Η
εικόνων