Word Belgenize Hızlı Bir İçindekiler Tablosu Eklemenin 3 Yolu

Bu p'deost, Word belgenize hızlı bir şekilde içindekiler tablosu eklemenin 3 yolunu göstereceğiz.

Word'de bir belge okurken, içindekileri hızlı bir şekilde gözden geçirmenize yardımcı olması için içindekiler tablosunu veya gezinme bölmesini kullanabilirsiniz. Ancak yazdırma söz konusu olduğunda, gezinti bölmesi belgeyle birlikte yazdırılamaz. Ancak, eski yapar. Bu nedenle, özellikle uzun bir Word belgesine bir içindekiler tablosu eklemek gerekir. Aşağıda 3 etkili yöntem bulunmaktadır.

Yöntem 1: Manuel Olarak İçindekiler Tablosu Ekleme

1. Öncelikle, imleci içindekiler tablosunun gitmesini istediğiniz yere getirin. “Referanslar” sekmesini ve ardından “İçindekiler” komutunu tıklayın.
2. Sonra “İçindekiler Tablosu Ekle”yi seçin.
3. Açılan iletişim kutusunda, "Düzeyleri göster" gibi yapılandırmaları ihtiyacınıza göre ayarlayın.
4. "Tamam" ı tıklayın.

Genellikle, içindekiler tablosunu belgenin ilk sayfasına yerleştiririz. Daha önce sayfa numarası girdiyseniz, şimdi ana belgeyi bulacaksınız.tar2. sayfada ts. O halde durum şu. Bazı insanlar ana belge sayfalarını isteyecektir.tarts her zamanki gibi 1. sayfada yer alırken içindekiler sayfa numaralandırmasının dışında tutulacaktır. Bunu yapmak için ekstra işlemlere ihtiyacınız olacak. Ayrıntılı talimatlar için bu makaleyi okuyun: Nasıl Start Kelimenizdeki Belirli Bir Sayfadan Sayfa Numaralandırma

Ve tüm ayarlamalardan sonra içindekiler tablonuzu güncellemeyi unutmayın.

Yöntem 2: Word Makrosunu Çalıştır

Gördüğünüz gibi, sayfa numaralarının sıfırlanması gibi sorunlar söz konusu olduğunda, bir içindekiler tablosu eklemenin manuel yolu biraz yorucu. Bu nedenle bu görevi yerine getirmek için makro yolunu kullanmanızı tavsiye ederiz. Bir makro ile tüm işlemi saniyeler içinde otomatik olarak gerçekleştirebilirsiniz.

1. Öncelikle, s'ye gitmek için “Ctrl+ Home” tuşlarına basın.tart belge.
2. Ardından VBA editörünü tetiklemek için “Alt+ F11” tuşlarına basın.
3. Ardından “Normal” ve ardından “Ekle” üzerine tıklayın.
4. “Modül”ü seçin ve düzenleme alanını açmak için üzerine çift tıklayın.
5. Ardından aşağıdaki kodları oraya yapıştırın:

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

6. Son fakat en az değil, "Çalıştır" ı tıklayın.

Makro çalıştırıldıktan sonra, yeni eklenen içindekiler ilk sayfaya konulacak ve sayfa numaralandırması s olacaktır.tarikincisinde ts. Ayrıca, içindekiler tablosu zaten güncellenmiştir.

Yöntem 3: Birden Fazla Belgeye İçindekiler Ekleme

Toplu işlemenin kolaylığını seviyorsanız, aşağıdaki makroyu kullanırsınız:

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

Makroyu yüklemek ve çalıştırmak için yöntem 2'deki aynı adımları uygulamanız yeterlidir.

notlar

1. Önce tüm belgeleri aynı dizin altında düzenlemelisiniz.
2. "C:\Users\Public\Documents\New folder\Test1\" klasörünü gerçek klasör yolunuzla değiştirmeyi asla unutmayın. Son “\” karakterini unutmayın.

Word için Onarım Aracı

Word aniden çökeceğinden, bir araç hazırlamak zorunludur. tamir kelimesi ve Word belgeleri. Zamanında bir iyileşme most mümkün olduğunca veri. Bu nedenle, önceden yetkin bir ürün elde etmeniz önerilir.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. Excel düzeltmesi ve pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com