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

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

Κάθε τόσο, έχετε αναρωτηθεί πόσο υπέροχο θα ήταν αν μπορούσατε να συμπτύξετε ένα συγκεκριμένο εύρος εγγράφων για να προβάλετε δύο μη διαδοχικά μέρη; Τα καλά νέα είναι ότι υπάρχει αυτή η ενσωματωμένη δυνατότητα στο Word 2013 και σε μεταγενέστερες εκδόσεις.

Εάν έχετε Word 2013 ή νεότερη έκδοση, μπορείτε να ανατρέξετε σε αυτόν τον σύνδεσμο για να μάθετε περισσότερα σχετικά με τη λειτουργία: https://support.microsoft.com/en-us/office/collapse-or-expand-parts-of-a-document-701786e0-95e2-40bf-bfe5-f0233cd3520c

Ωστόσο, εάν χρησιμοποιείτε το Word 2010 ή παλαιότερες εκδόσεις, δεν υπάρχει τέτοια τύχη. Για αυτόν τον λόγο, βρήκαμε 2 λύσεις που μπορείτε να υιοθετήσετε σε εκδόσεις πριν από το Word 2013.

Μέθοδος 1: Σύμπτυξη ή ανάπτυξη ενός μεμονωμένου μέρους ενός εγγράφου

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

Sub CollapseOrExpandTheSelectedText1()
  ActiveDocument.Bookmarks("Introduction").Range.Font.Hidden = _
    Not ActiveDocument.Bookmarks("Introduction").Range.Font.Hidden
End Sub

Σημειώσεις:

• Μπορείτε να αλλάξετε το όνομα της μακροεντολής σε ό,τι θέλετε να το ονομάσετε.
• Η "Εισαγωγή" αναφέρεται στο όνομα του σελιδοδείκτη. Βεβαιωθείτε ότι είναι ίδιο με το όνομα που εισαγάγατε στο βήμα 4.

9. Κάντε κλικ στο "Αποθήκευση" για να αποθηκεύσετε τη μακροεντολή.
10. Στη συνέχεια, τοποθετήστε τον δείκτη εισαγωγής κοντά στον σελιδοδείκτη αλλά ποτέ μέσα σε αυτόν. Για παράδειγμα, το τοποθετούμε στη γραμμή πάνω από το επιλεγμένο κείμενο.
11. Στη συνέχεια, πατήστε "Ctrl+ F9" για να εισαγάγετε ένα πεδίο.
12. Μέσα στο πεδίο, πληκτρολογήστε τους παρακάτω κωδικούς:

     MACROBUTTON CollapseOrExpandTheSelectedText1 Introduction

      Σημειώσεις:

• Ο "CollapseOrExpandTheSelectedText1” είναι το όνομα της μακροεντολής στο βήμα 8.
• Ο "Εισαγωγή” είναι η ετικέτα που θέλετε να εμφανίσετε στο κουμπί.

13. Τώρα πατήστε "Alt+ F9" και θα δείτε το κουμπί.
14. Κάντε διπλό κλικ στο κουμπί για ανάπτυξη ή σύμπτυξη του κειμένου.

Μέθοδος 2: Σύμπτυξη ή ανάπτυξη πολλών τμημάτων ενός εγγράφου

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

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

Sub CollapseAllSelectedTexts()
  Dim objBookmark As Bookmark

  For Each objBookmark In ActiveDocument.Bookmarks
    objBookmark.Range.Font.Hidden = True
  Next
End Sub

Για να επεκτείνετε όλα τα κείμενα, θα χρειαστείτε αυτό:

Sub ExpandAllSelectedTexts()
  Dim objBookmark As Bookmark

  For Each objBookmark In ActiveDocument.Bookmarks
    objBookmark.Range.Font.Hidden = False
  Next
End Sub

3. Στη συνέχεια κάντε κλικ στο "Εκτέλεση" ή πατήστε "F5".

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

Αντιμετωπίστε τις συνέπειες της αποτυχίας του Word

Η λέξη αποτυγχάνει από καιρό σε καιρό. Και υπάρχουν συνέπειες. Ορισμένα από αυτά είναι καλά, ενώ άλλα μπορούν να σας απασχολήσουν με την ανάκτηση των δεδομένων. Εάν το τελευταίο είναι η περίπτωσή σας, καλύτερα να επιλέξετε ένα ανάκτηση εγγράφων εργαλείο για να σας βοηθήσει με την επιχείρηση.

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

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