3 αποτελεσματικοί τρόποι περιήγησης ανά πλαίσιο κειμένου στο έγγραφο του Word

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

Υπάρχει η εντολή "Select Browse Object" στο Word που σας επιτρέπει να περιηγηθείτε μόνο στα αντικείμενα που επιλέξατε. Για παράδειγμα, μπορείτε να επιλέξετε να περιηγηθείτε ανά πίνακα ή σελίδα. Δυστυχώς, δεν υπάρχει ενσωματωμένη λειτουργία για περιήγηση ανά πλαίσιο κειμένου. Επομένως, θα σας παρέχουμε 3 τρόπους για να το κάνετε.

Μέθοδος 1: Χρησιμοποιήστε το πλήκτρο "Tab"

1. Αρχικά, πατήστε "Ctrl+Home" για να μεταβείτε στην αρχή ενός εγγράφου.
2. Στη συνέχεια, βρείτε και κάντε κλικ στο πρώτο πλαίσιο κειμένου.
3. Στη συνέχεια πατήστε "Tab" για να μεταβείτε στο επόμενο πλαίσιο κειμένου.

Παρεμπιπτόντως, με αυτόν τον τρόπο θα βρείτε επίσης σχήματα και εικόνες στο έγγραφο.

Μέθοδος 2: Εκτέλεση μακροεντολής για μετάβαση από ένα πλαίσιο κειμένου σε άλλο

1. Πρώτα απ 'όλα, πατήστε "Alt + F11" για να ενεργοποιήσετε τον επεξεργαστή VBA στο Word.
2. Στη συνέχεια κάντε κλικ στο "Normal".
3. Στη συνέχεια, κάντε κλικ στο «Εισαγωγή» και επιλέξτε «Ενότητα» στο αναπτυσσόμενο μενού του.
4. Ανοίξτε τη νέα λειτουργική μονάδα με διπλό κλικ.
5. Τώρα στην περιοχή κωδικοποίησης, επικολλήστε τους ακόλουθους κωδικούς:

Sub BrowseByTextBox()
  Dim objShape As Shape
  Dim strBoxText As String
  Dim strButtonValue As String
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      strBoxText = objShape.TextFrame.TextRange.Text
      strButtonValue = MsgBox("This text box contains: " & vbNewLine _
                       & strBoxText & vbNewLine & "Is this your desired text box?" _
                       & vbNewLine, vbYesNo, "Desired Text Box")
      If strButtonValue = vbYes Then
        Exit Sub
      End If
    End If
  Next objShape
End Sub

6. Κάντε κλικ στο κουμπί "Εκτέλεση" στη γραμμή μενού ή πατήστε "F5" για να εκτελέσετε τους κωδικούς.

Μόλις ξεκινήσετε την εκτέλεση της μακροεντολής, θα εμφανιστεί ένα παράθυρο μηνύματος, όπως το παρακάτω:

Στο πλαίσιο εμφανίζεται το περιεχόμενο στο τρέχον επιλεγμένο πλαίσιο κειμένου. Μπορείτε να κάνετε κλικ στο "Ναι" για να το σταματήσετε εάν είναι το πλαίσιο κειμένου που θέλετε. Διαφορετικά, κάντε κλικ στο "Όχι" για να μεταβείτε στο επόμενο πλαίσιο κειμένου.

Μέθοδος 3: Εύρεση συγκεκριμένου πλαισίου κειμένου

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

1. Πρώτα απ 'όλα, ανατρέξτε στα βήματα της μεθόδου 2 για εγκατάσταση και εκτέλεση μακροεντολής.
2. Στη συνέχεια, θυμηθείτε να αντικαταστήσετε τη μακροεντολή με αυτήν:

Sub FindASpecificTextBox()
  Dim objShape As Shape
  Dim strBoxTitle As String
  Dim objInlineShape As InlineShape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strBoxTitle = InputBox("Enter the title of the text box to be found here: ")
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      If objShape.Title = strBoxTitle Then
        Exit Sub
      End If
    End If
  Next objShape
  For Each objInlineShape In objDoc.InlineShapes
    If objInlineShape.Type = msoTextBox Then
      objInlineShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      If objInlineShape.Title = strBoxTitle Then
        Exit Sub
      End If
    End If
  Next objInlineShape
 
  Application.ScreenUpdating = True
End Sub

3. Στη συνέχεια, στο πλαίσιο εισαγωγής που εμφανίζεται, εισαγάγετε τον τίτλο του πλαισίου κειμένου που θέλετε να βρείτε και κάντε κλικ στο "OK" για να συνεχίσετε. Θα βρείτε το πλαίσιο κειμένου προορισμού στην επιλογή.

Αντιμετωπίστε την απώλεια δεδομένων

Δεδομένου ότι το Word είναι ένα από τα πιο χρησιμοποιούμενα λογισμικά, είναι απαραίτητο να γνωρίζετε ορισμένα κόλπα όταν το Word σταματήσει να ανταποκρίνεται. Για σημαντικά κατεστραμμένο έγγραφο, η μόνη επιλογή σας είναι να το ανακτήσετε. Και για να το κάνετε αυτό, πρέπει να επιλέξετε προσεκτικά ένα εργαλείο τρίτου μέρους που μπορείτε να εμπιστευτείτε.

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων κατεστραμμένο xlsx και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com