Σε αυτήν την ανάρτηση, θα σας δείξουμε 3 τρόπους για να εισαγάγετε γρήγορα έναν πίνακα περιεχομένων σε ένα έγγραφο του Word.
Κατά την ανάγνωση ενός εγγράφου στο Word, μπορείτε να χρησιμοποιήσετε είτε τον πίνακα περιεχομένων είτε το παράθυρο πλοήγησης για να δείτε τον εαυτό σας γρήγορα. Ωστόσο, όταν πρόκειται για εκτύπωση, το παράθυρο πλοήγησης δεν μπορεί να εκτυπωθεί μαζί με έγγραφο. Όμως, το πρώτο κάνει. Επομένως, είναι απαραίτητο να εισαγάγετε έναν πίνακα περιεχομένων σε ένα έγγραφο του Word, ειδικά σε έναν μακρύ. Ακολουθούν 3 αποτελεσματικές μέθοδοι.
Μέθοδος 1: Εισαγάγετε έναν πίνακα περιεχομένων με μη αυτόματο τρόπο
- Αρχικά, τοποθετήστε τον κέρσορα στο σημείο όπου θέλετε να πηγαίνει ο πίνακας περιεχομένων. Κάντε κλικ στην καρτέλα "Αναφορές" και μετά στην εντολή "Πίνακας περιεχομένων".
- Στη συνέχεια επιλέξτε "Εισαγωγή πίνακα περιεχομένων".
- Στο παράθυρο διαλόγου ανοιχτό, ρυθμίστε τις διαμορφώσεις όπως χρειάζεστε, όπως "Εμφάνιση επιπέδων".
- Κάντε κλικ στο "OK".
Συνήθως, τοποθετούμε τον πίνακα περιεχομένων στην πρώτη σελίδα του εγγράφου. Εάν έχετε εισάγει αριθμό σελίδας στο παρελθόν, θα διαπιστώσετε ότι το κύριο έγγραφο ξεκινά τώρα από τη σελίδα 2. Τότε η κατάσταση έχει ως εξής. Μερικοί άνθρωποι θα θέλουν η κύρια σελίδα του εγγράφου να ξεκινά από τη σελίδα 1 ως συνήθως, ενώ ο πίνακας περιεχομένων θα πρέπει να εξαιρεθεί από την αρίθμηση σελίδων. Για να το κάνετε αυτό, θα χρειαστείτε επιπλέον λειτουργίες. Διαβάστε αυτό το άρθρο για λεπτομερείς οδηγίες: Πώς να ξεκινήσετε την αρίθμηση σελίδων από μια συγκεκριμένη σελίδα στο Word σας
Και θυμηθείτε να ενημερώσετε τον πίνακα περιεχομένων σας μετά από όλες τις προσαρμογές.
Μέθοδος 2: Εκτέλεση Word μακροεντολής
Όπως βλέπετε, ο χειροκίνητος τρόπος εισαγωγής πίνακα περιεχομένων είναι λίγο κουραστικός, με ζητήματα όπως η επαναφορά αριθμών σελίδων. Για αυτόν τον λόγο, σας συνιστούμε να χρησιμοποιήσετε τον τρόπο μακροεντολής για την εκπλήρωση αυτής της εργασίας. Με μια μακροεντολή, μπορείτε να εκτελέσετε αυτόματα ολόκληρη τη διαδικασία σε δευτερόλεπτα.
- Αρχικά, πατήστε "Ctrl+Home" για να μεταβείτε στην αρχή του εγγράφου.
- Στη συνέχεια, πατήστε "Alt + F11" για να ενεργοποιήσετε το πρόγραμμα επεξεργασίας VBA.
- Στη συνέχεια κάντε κλικ στο "Normal" και μετά στο "Insert".
- Επιλέξτε "Module" και κάντε διπλό κλικ σε αυτό για να ανοίξετε την περιοχή επεξεργασίας.
- Στη συνέχεια επικολλήστε τους ακόλουθους κωδικούς εκεί:
Sub InsertTOC()
Selection.InsertBreak Type:=wdSectionBreakNextPage
Selection.HomeKey Unit:=wdStory
With ActiveDocument
.TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
LowerHeadingLevel:=9, IncludePageNumbers:=True, AddedStyles:="", _
UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _True
.TablesOfContents(1).TabLeader = wdTabLeaderDots
.TablesOfContents.Format = wdIndexIndent
End With
ActiveDocument.Sections(1).PageSetup.DifferentFirstPageHeaderFooter = True
With ActiveDocument.Sections(2)
.Footers(wdHeaderFooterPrimary).LinkToPrevious = False
.Footers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = True
.Footers(wdHeaderFooterPrimary).PageNumbers.StartingNumber = 1
End With
ActiveDocument.TablesOfContents(1).Update
End Sub
- Τελευταίο αλλά όχι το λιγότερο, κάντε κλικ στο "Εκτέλεση".
Μετά την εκτέλεση της μακροεντολής, ο νέος πίνακας περιεχομένων που εισήχθη θα τοποθετηθεί στην πρώτη σελίδα και η αρίθμηση σελίδων θα ξεκινήσει από τη δεύτερη. Επίσης, ο πίνακας περιεχομένων έχει ήδη ενημερωθεί.
Μέθοδος 3: Εισαγωγή πινάκων περιεχομένων σε πολλά έγγραφα
Σε περίπτωση που σας αρέσει η ευκολία της επεξεργασίας παρτίδας, χρησιμοποιείτε την παρακάτω μακροεντολή:
Sub InsertTOCForMultiDoc()
Dim objDoc As Document
Dim strFile As String, strFolder As String
' Initialization
strFolder = "C:\Users\Public\Documents\New folder\Test1\"
strFile = Dir(strFolder & "*.docx", vbNormal)
' Precess each document in the folder.
While strFile <> ""
Set objDoc = Documents.Open(FileName:=strFolder & strFile)
Selection.InsertBreak Type:=wdSectionBreakNextPage
Selection.HomeKey Unit:=wdStory
With ActiveDocument
.TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
LowerHeadingLevel:=9, IncludePageNumbers:=True, AddedStyles:="", _
UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
True.TablesOfContents(1).TabLeader = wdTabLeaderDots
.TablesOfContents.Format = wdIndexIndent
End With
ActiveDocument.Sections(1).PageSetup.DifferentFirstPageHeaderFooter = True
With ActiveDocument.Sections(2)
.Footers(wdHeaderFooterPrimary).LinkToPrevious = False
.Footers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = True
.Footers(wdHeaderFooterPrimary).PageNumbers.StartingNumber = 1
End With
ActiveDocument.TablesOfContents(1).Update
objDoc.Save
objDoc.Close
strFile = Dir()
Wend
End Sub
Απλώς ακολουθήστε τα ίδια βήματα στη μέθοδο 2 για να εγκαταστήσετε και να εκτελέσετε τη μακροεντολή.
Σημειώσεις
- Πρέπει πρώτα να κανονίσετε όλα τα έγγραφα στον ίδιο κατάλογο.
- Μην ξεχάσετε ποτέ να αντικαταστήσετε το "C: \ Users \ Public \ Documents \ New folder \ Test1 \" με την πραγματική διαδρομή φακέλου. Μην ξεχάσετε το τελευταίο "\".
Επισκευή εργαλείου για το Word
Δεδομένου ότι το Word θα συντριβεί ξαφνικά, είναι απαραίτητο να προετοιμάσετε ένα εργαλείο επισκευή Word και έγγραφα Word. Μια έγκαιρη ανάκτηση μπορεί να συγκεντρώσει όσο το δυνατόν περισσότερα δεδομένα. Επομένως, συνιστάται να αποκτήσετε ένα κατάλληλο προϊόν εκ των προτέρων.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων Επιδιόρθωση Excel και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com