Αυτήν τη στιγμή είστε εκτός σύνδεσης, σε αναμονή για επανασύνδεση στο Internet

Εμφανίζεται μήνυμα λάθους χρόνου εκτέλεσης 4248, 4605 ή 5941 όταν προσπαθείτε να αλλάξετε τις ιδιότητες σε ένα ανοιχτό έγγραφο του Word

ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.

Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:813983
Συμπτώματα
Όταν προσπαθείτε να χρησιμοποιήσετε το Microsoft Visual Basic for Applications (VBA) για να αλλάξετε τις ιδιότητες ενός εγγράφου, ενδέχεται να λάβετε ένα από τα ακόλουθα μηνύματα λάθους:
Σφάλμα χρόνου εκτέλεσης '4248':
Αυτή η εντολή δεν είναι διαθέσιμη, επειδή το έγγραφο δεν είναι ανοιχτό.
Σφάλμα χρόνου εκτέλεσης '4605':
Αυτή η μέθοδος ή ιδιότητα δεν είναι διαθέσιμη επειδή ένα παράθυρο εγγράφου δεν είναι ενεργή.
Σφάλμα χρόνου εκτέλεσης '5941':
Δεν υπάρχει το απαιτούμενο μέλος της συλλογής.
Αιτία
Αυτό το ζήτημα μπορεί να προκύψει, εάν δεν έχετε ανοίξει ένα έγγραφο ή εάν το έγγραφο στο οποίο κάνετε αναφορά δεν είναι ανοιχτό. Το Word μπορεί να αλλάξει μόνο τις ιδιότητες ενός εγγράφου ανοίξτε (ή ορατότητα).

ΣΗΜΕΙΩΣΗΑυτά τα μηνύματα λάθους ενδέχεται να προκύψουν, εάν ανοίξετε το έγγραφο με τοΟρατόη ιδιότητα οριστεί σεFALSE.
Εναλλακτικός τρόπος αντιμετώπισης
Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς να παρέχει καμία εγγύηση, είτε σιωπηρή είτε ρητή, περιλαμβανομένων, ενδεικτικά, των σιωπηρών εγγυήσεων εμπορευσιμότητας ή/και καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες, για να καλύψουν τις συγκεκριμένες ανάγκες σας.
Εάν δεν έχετε μεγάλη εμπειρία προγραμματισμού, ίσως χρειαστεί να επικοινωνήσετε με κάποιον πιστοποιημένο συνεργάτη της Microsoft (Microsoft Certified Partner) ή να χρησιμοποιήσετε τις συμβουλευτικές υπηρεσίες Microsoft Advisory Services. Για περισσότερες πληροφορίες, επισκεφθείτε αυτές τις τοποθεσίες της Microsoft στο Web:

Πιστοποιημένοι συνεργάτες της Microsoft -https://partner.microsoft.com/global/30000104

Συμβουλευτικές υπηρεσίες της Microsoft-http://support.Microsoft.com/GP/advisoryservice

Για περισσότερες πληροφορίες σχετικά με τις επιλογές υποστήριξης που είναι διαθέσιμες και τον τρόπο επικοινωνίας με τη Microsoft, επισκεφθείτε την ακόλουθη τοποθεσία της Microsoft στο Web:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS
Για πρόσθετες πληροφορίες σχετικά με τον τρόπο χρήσης του δείγματος κώδικα που περιλαμβάνονται σε αυτό το άρθρο, κάντε κλικ στον αριθμό του άρθρου παρακάτω για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
290140OFFXP: Τρόπος για την εκτέλεση του δείγματος κώδικα από άρθρα της Γνωσιακής Βάσης
Τα ακόλουθα δείγματα μακροεντολών VBA δείχνουν πώς μπορείτε να αλλάξετε την τιμή τηςΤΙΤΛΟΣπεδίο τουΙδιότητες (Properties)παράθυρο διαλόγου. Το ακόλουθο δείγμα περιλαμβάνει κώδικα για να παγιδεύσει το σφάλμα, στην περίπτωση που δεν υπάρχουν ανοιχτά έγγραφα και να εμφανίσετε ένα μήνυμα:
Sub ChangeDocProperties()	   On Error GoTo ErrHandler	   ActiveDocument.BuiltInDocumentProperties("Title") = "My Title"   Exit Sub	ErrHandler:   If Err <> 0 Then'	' Display an error message.'      MsgBox Err.Description'	' Clear the error.'      Err.Clear	   Resume Next		End If	End Sub
Το ακόλουθο δείγμα μακροεντολής περιλαμβάνει κώδικα που θα κάνει τα εξής:
  • Παγίδευση του σφάλματος, σε περίπτωση που δεν υπάρχουν ανοιχτά έγγραφα.
  • Με την παγίδευση σφαλμάτων, δημιουργήστε ένα νέο έγγραφο.
  • Συνέχιση εκτέλεσης στη γραμμή που προκάλεσε το σφάλμα.
Sub ChangeDocProperties()	   On Error GoTo ErrHandler      ActiveDocument.BuiltInDocumentProperties("Title") = "My Title"   Exit Sub	ErrHandler:   If Err <> 0 Then'	' Add a document.'      Documents.Add'	' Clear the error.'      Err.Clear'' Run the code that caused the error.'      Resume	   End If	End Sub
Αναφορές
Για πρόσθετες πληροφορίες σχετικά με το πώς μπορείτε να λάβετε Βοήθεια σχετικά με τη VBA, κάντε κλικ στον αριθμό του άρθρου παρακάτω για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
305326OFFXP: Προγραμματισμός πόρων για τη Visual Basic for Applications
Wd2003 vb vba vbe prb OfficeErrorMessages 10095 wd2007

Προειδοποίηση: Αυτό το άρθρο έχει μεταφραστεί αυτόματα

Ιδιότητες

Αναγνωριστικό άρθρου: 813983 - Τελευταία αναθεώρηση: 09/29/2010 14:11:00 - Αναθεώρηση: 2.0

Microsoft Office Word 2007

  • kberrmsg kbprb kbmt KB813983 KbMtel
Σχόλια
erTracking = 1; var Route = "76500"; var Ctrl = ""; document.write("