Συμπτώματα
Όταν προσπαθείτε να ανοίξετε προγραμματισμένα ένα έγγραφο του Microsoft Word, το έγγραφο ανοίγει ως έγγραφο μόνο για ανάγνωση και δεν μπορείτε να επεξεργαστείτε το έγγραφο.
Όταν προσθέτετε τον κώδικα
ReadOnly:=False
εξακολουθεί να ανοίγει το έγγραφο ως έγγραφο μόνο για ανάγνωση.
Όταν ανοίγετε το ίδιο έγγραφο χρησιμοποιώντας την εντολή " Άνοιγμα ", εμφανίζεται το ακόλουθο μήνυμα:
Όνομα διαδρομής πρέπει να ανοιχτεί μόνο για ανάγνωση, εκτός αν οι αλλαγές σε αυτό πρέπει να αποθηκευτούν. Άνοιγμα μόνο για ανάγνωση;
Μπορείτε να ανοίξετε το έγγραφο για επεξεργασία, κάνοντας κλικ στο κουμπί Ναι στο μήνυμα.
Αιτία
Αυτό το ζήτημα παρουσιάζεται επειδή η Visual Basic ανοίγει όλα τα έγγραφα με το χαρακτηριστικό ReadOnlyRecommended οριστεί σε true ως έγγραφο μόνο για ανάγνωση, ακόμα και αν προσπαθήσετε να ορίσετε το χαρακτηριστικό μόνο για ανάγνωση σε false.
Σημείωση Το παρακάτω παράδειγμα ισχύει για το Word 2003 και 2002:
-
Ξεκινήστε το Word και, στη συνέχεια, δημιουργήστε ένα νέο έγγραφο.
-
Στο μενού Εργαλεία, κάντε κλικ στο στοιχείο Επιλογές.
-
Στο παράθυρο διαλόγου " Επιλογές ", στην καρτέλα ασφάλεια , κάντε κλικ για να επιλέξετε το πλαίσιο ελέγχου συνιστάται μόνο για ανάγνωση .
-
Αποθηκεύστε το έγγραφο ως C:\Test.doc.
-
Κλείστε το έγγραφο.
-
Πιέστε το συνδυασμό πλήκτρων ALT + F11 για να ξεκινήσετε την Επεξεργασία Visual Basic.
-
Στο μενού " Εισαγωγή ", κάντε κλικ στην εντολή " λειτουργική μονάδα".
-
Στο φύλλο λειτουργικής μονάδας, πληκτρολογήστε τον ακόλουθο κώδικα:
Sub Test()
Documents.Open FileName:="C:\Test.doc", ReadOnly:=False
End Sub -
Πιέστε το συνδυασμό πλήκτρων ALT + F11, για να επιστρέψετε στο Word.
-
Στο μενού Εργαλεία , επιλέξτε μακροεντολήκαι, στη συνέχεια, κάντε κλικ στην εντολή μακροεντολές.
-
Στη λίστα όνομα μακροεντολής , κάντε κλικ στο Testκαι, στη συνέχεια, κάντε κλικ στην επιλογή Εκτέλεση.
Ανοίγει το έγγραφο ως έγγραφο μόνο για ανάγνωση.
Εναλλακτικός τρόπος αντιμετώπισης
Για να επιλύσετε αυτό το ζήτημα, χρησιμοποιήστε την ακόλουθη μακροεντολή βασικής Word αντί για τη μακροεντολή της Visual Basic που εμφανίζονται στο βήμα 8 της ενότητας "Αιτία" αυτού του άρθρου:
Sub Test()
WordBasic.FileOpen Name:="C:\Test.doc"
End Sub
Με αυτήν τη μακροεντολή μετά το άνοιγμα του αρχείου, μπορείτε να επεξεργαστείτε.
Κατάσταση
Η Microsoft έχει επιβεβαιώσει ότι πρόκειται για ένα πρόβλημα στα προϊόντα της Microsoft που παρατίθενται στην αρχή αυτού του άρθρου.
