Σε αυτό το σελost, είμαστε ενθουσιασμένοι που σας παρουσιάζουμε 3 γρήγορους τρόπους για να επιλέξετε την τρέχουσα σελίδα στο έγγραφο του Word.
Κάθε τόσο, πιθανότατα θα βρεθείτε στην ανάγκη να επιλέξετε την τρέχουσα σελίδα για να αντιγράψετε ή να εξαγάγετε τα περιεχόμενα. Κανονικά, θα τοποθετούσαμε τον κέρσορα στο start της σελίδας και κρατήστε πατημένο το αριστερό κλικ για να επιλέξετε ολόκληρη τη σελίδα. Αλλά πρέπει να παραδεχτείτε ότι αυτή η μέθοδος δεν λειτουργεί καλά συνεχώς, καθώς μπορεί να προκύψουν σφάλματα. Αν και δεν είναι επιστήμη πυραύλων να κάνετε τη δουλειά, μπορείτε να εξοικονομήσετε χρόνο υιοθετώντας πιο γρήγορες μεθόδους.
Εδώ είναι οι 3 λύσεις μας.
Μέθοδος 1: Συντομεύσεις πληκτρολογίου για έγγραφο μιας σελίδας
Όταν υπάρχει μόνο μία σελίδα στο έγγραφο, αυτό που πρέπει να κάνετε είναι να τοποθετήσετε τον δείκτη εισαγωγής οπουδήποτε μέσα στο έγγραφο και να πατήσετε "Ctrl+ A".
Μέθοδος 2: Συντομεύσεις πληκτρολογίου για πολυσέλιδο έγγραφο
Τώρα μιλώντας για πολυσέλιδο έγγραφο, μπορείτε να ακολουθήσετε τα παρακάτω βήματα:
- Αρχικά, τοποθετήστε τον δείκτη εισαγωγής στην αρχή του tarλήψη σελίδας.
- Στη συνέχεια πατήστε "Shift".
- Στη συνέχεια, μετακινηθείτε προς τα κάτω στο κάτω μέρος αυτής της σελίδας και κάντε κλικ στο τέλος της σελίδας.
Μέθοδος 3: Εκτέλεση Word μακροεντολής
- Πρώτο και κύριοost, Κάνε κλικ στο tarλήψη σελίδας.
- Στη συνέχεια, κάντε κλικ στην καρτέλα "Προγραμματιστής".
- Στη συνέχεια, κάντε κλικ στο "Visual Basic" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA. Ή πατήστε "Alt+ F11" για να το κάνετε.
- Τώρα κάντε κλικ στο έργο "Κανονικό" και μετά στην καρτέλα "Εισαγωγή".
- Επιλέξτε «Module» στο αναπτυσσόμενο μενού.
- Επόμενο διπλό κλικ στη μονάδα που μόλις εισήχθη για να ανοίξει ο χώρος κωδικοποίησης.
- Επικολλήστε τους ακόλουθους κωδικούς εκεί:
Sub SelectCurrentPage()
Dim lCurrentPageStart As Long
Dim lCurrentPageEnd As Long
Dim objPageRange As Range
Dim nCurrentPageNumber As Integer
Dim nAllPageNumber As Integer
nCurrentPageNumber = Selection.Information(wdActiveEndPageNumber)
nAllPageNumber = Selection.Information(wdNumberOfPagesInDocument)
' Get the start position of current page.
lCurrentPageStart = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=nCurrentPageNumber).Start
' Get the end position of current page.
If nCurrentPageNumber = nAllPageNumber Then
lCurrentPageEnd = ActiveDocument.Content.End
Else
lCurrentPageEnd = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=nCurrentPageNumber + 1).Start
End If
' Select current page.
Set objPageRange = ActiveDocument.Range(Start:=lCurrentPageStart, End:=lCurrentPageEnd)
objPageRange.Select
End Sub
- Τέλος, κάντε κλικ στο "Run" ή πατήστε "F5". Όλα τα κείμενα σε αυτήν τη σελίδα είναι τώρα σε επιλογή.
Ανάκτηση εγγράφων του Word
Θα ήταν πολύ δύσκολο να βρείτε τα έγγραφα του Word κατεστραμμένα, με αποτέλεσμα να μην έχετε πρόσβαση στις πληροφορίες σας. Σίγουρα, κανείς δεν θέλει να έχει ένα κατεστραμμένο έγγραφο. Ωστόσο, όταν συμβεί κάτι απροσδόκητο, η μόνη επιλογή που απομένει είναι να ανακτήσετε τα δεδομένα είτε με ενσωματωμένο είτε με ένα εργαλείο τρίτου κατασκευαστή.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων κατεστραμμένο Excel pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com


