3 cách để chèn nhanh mục lục vào tài liệu Word của bạn

Trong bài viết này, chúng tôi sẽ hướng dẫn bạn 3 cách nhanh chóng để chèn mục lục vào tài liệu Word của mình.

Trong khi đọc tài liệu trong Word, bạn có thể sử dụng mục lục hoặc ngăn điều hướng để giúp mình xem qua nội dung một cách nhanh chóng. Tuy nhiên, khi in, ngăn điều hướng không thể được in cùng với tài liệu. Nhưng, trước đây thì có. Vì vậy, việc chèn mục lục vào văn bản Word là cần thiết, đặc biệt là những văn bản dài. Sau đây là 3 phương pháp hiệu quả.

Phương pháp 1: Chèn mục lục theo cách thủ công

1. Đầu tiên, đặt con trỏ vào vị trí bạn muốn đặt mục lục. Nhấp vào tab “Tài liệu tham khảo” sau đó nhấp vào lệnh “Mục lục”.
2. Tiếp theo chọn “Chèn mục lục”.
3. Trong hộp thoại mở ra, hãy thiết lập các cấu hình mà bạn cần, chẳng hạn như “Hiển thị cấp độ”.
4. Nhấp vào "OK".

Thông thường, chúng ta đặt mục lục ở trang đầu tiên của tài liệu. Nếu trước đó bạn đã chèn số trang, bạn sẽ thấy tài liệu chính bắt đầu từ trang 2. Vậy thì đây là trường hợp: Một số người muốn tài liệu chính bắt đầu từ trang 1 như thường lệ, trong khi mục lục không được đánh số trang. Để làm được điều này, bạn cần thực hiện thêm một số thao tác. Hãy đọc bài viết này để biết hướng dẫn chi tiết: Cách bắt đầu đánh số trang từ một trang cụ thể trong Word

Và hãy nhớ cập nhật mục lục của bạn sau tất cả những điều chỉnh.

Cách 2: Chạy Macro trong Word

Như bạn thấy, cách thủ công để chèn mục lục hơi mệt mỏi, với những vấn đề như đặt lại số trang. Vì lý do này, chúng tôi khuyên bạn nên sử dụng cách macro để hoàn thành nhiệm vụ này. Với macro, bạn có thể tự động thực hiện toàn bộ quá trình trong vài giây.

1. Trước tiên, nhấn tổ hợp phím “Ctrl + Home” để quay lại đầu tài liệu.
2. Sau đó nhấn “Alt + F11” để kích hoạt trình soạn thảo VBA.
3. Tiếp theo bấm vào “Bình thường” và sau đó “Chèn”.
4. Chọn “Mô-đun” và nhấp đúp vào nó để mở vùng chỉnh sửa.
5. Sau đó dán các mã sau vào đó:

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. Cuối cùng nhưng không kém phần quan trọng, hãy nhấp vào “Chạy”.

Sau khi chạy macro, mục lục mới được chèn sẽ được đặt ở trang đầu tiên và số trang sẽ bắt đầu lại từ trang thứ hai. Đồng thời, mục lục cũng đã được cập nhật.

Cách 3: Chèn mục lục vào nhiều tài liệu

Trong trường hợp bạn thích sự dễ dàng của việc xử lý hàng loạt, bạn hãy sử dụng macro dưới đây:

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

Chỉ cần làm theo các bước tương tự trong phương pháp 2 để cài đặt và chạy macro.

Ghi Chú

1. Trước tiên bạn phải sắp xếp tất cả các tài liệu trong cùng một thư mục.
2. Đừng bao giờ quên thay thế “C:\Users\Public\Documents\New folder\Test1\” bằng đường dẫn thư mục thực của bạn. Đừng quên “\” cuối cùng.

Công cụ sửa lỗi cho Word

Vì Word bất ngờ bị lỗi nên cần phải chuẩn bị một công cụ để sửa chữ và các tài liệu Word. Khôi phục kịp thời có thể giúp lấy lại được càng nhiều dữ liệu càng tốt. Do đó, nên chuẩn bị sẵn một sản phẩm chuyên dụng.

Giới thiệu tác giả:

Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa lỗi excel và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm