Πώς μπορώ να κλείνετε ένα έγγραφο του Word με VBA

; Visual Basic for Applications ( VBA ) είναι μια συγκεκριμένη γλώσσα προγραμματισμού που χρησιμοποιείται κυρίως για να ελέγχετε ορισμένες λειτουργίες στο Excel , αλλά μπορεί επίσης να χρησιμοποιηθεί για τον έλεγχο των άλλων πτυχών των προγραμμάτων έργων , όπως το Word και το PowerPoint . Μερικοί άνθρωποι χρησιμοποιούν τη VBA να αναπτύξουν συγκεκριμένες λειτουργίες για το Word , που μπορεί να είναι χρήσιμη για τη δημιουργία προτύπων εγγράφων ή εκτελούν λειτουργίες ανάλυσης . Χρησιμοποιώντας VBA
Η

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

Όταν ένα έργο VBA έχει ολοκληρωθεί , τότε εμφανίζεται ως " μακρο " στο Microsoft Word . Οι μακροεντολές είναι κάτω από συγκεκριμένους τίτλους , το οποίο μπορείτε να πληκτρολογήσετε για να φέρει και να μυήσουν τους . Υπάρχει επίσης μια μεγάλη συλλογή από μακροεντολές διαθέσιμα στο διαδίκτυο που μπορείτε να χρησιμοποιήσετε για να κατεβάσετε άμεσα τα έργα VBA ή να χρησιμοποιηθούν ως δομικά στοιχεία για να δημιουργήσετε ένα έργο VBA από το δικό σας .
Εικόνων Δημιουργία VBA Εντολές για να κλείσει το Word

Πριν κλείσετε το έγγραφο του Word , μάλλον θα θέλετε να το αποθηκεύσετε . Συνήθως αυτό γίνεται με μια ενιαία γραμμή κώδικα , που είναι γνωστή ως μέθοδος " SaveAs ». Μοιάζει με " doc.saveas ( work_dir &" testdoc.doc " ) " εκτός του ότι αντί του « testdoc » που θα αποκαλούσα το έγγραφο ό, τι θέλετε .

Όταν πρόκειται για την εγκατάλειψη του Word , τότε " word.Quit " είναι η πιο απλή εντολή να δώσει . Αλλά μπορείτε επίσης να χρησιμοποιήσετε πιο περίπλοκη εκδόσεις . Υπάρχει μια συγκεκριμένη μακροεντολή σχεδιαστεί για να βγείτε έξω από όλα τα έγγραφα του Word και το Word κλείσει εντελώς . Είναι γνωστό ως " closeall , " και η ακριβής κωδικός είναι :

Sub closeall ( ) « Κλείστε όλα τα ανοιχτά αρχεία και κλείσιμο του Word

Με Application.ScreenUpdating = False

« Loop Through ανοικτή documentsDo Μέχρι Documents.Count = 0'Close δεν save.Documents ( 1 ) Κλείσιμο SaveChanges : . . = wdDoNotSaveChangesLoop

« Κλείστε το Word δεν save.Quit SaveChanges : = wdDoNotSaveChangesEnd WithEnd Sub

Αυτή η έκδοση έχει σχεδιαστεί ώστε να μην αποθηκεύσετε οποιαδήποτε εργασία , αλλά μπορείτε να το τροποποιήσετε για να αποθηκεύσετε όλα τα έγγραφα. Μόλις έχετε αποθηκεύσει ως μακροεντολή , μπορείτε να πατήσετε " ALT + F8" για να ανοίξετε το παράθυρο μακροεντολών στο Word , στη συνέχεια, επιλέξτε " closeall " και στη συνέχεια επιλέξτε " Run". Αυτό θα κλείσει όλα τα έγγραφα.
Εικόνων
εικόνων