Hướng dẫn cách cập nhật hoặc làm mới số thứ tự tiêu đề miêu tả trong Word

Tiêu đề miêu tả (Caption) là gì

Chức năng cho Caption trong Word là một chức năng mạnh mẽ cho bạn có thể chèn chú thích vào những bức ảnh mà bạn chèn vào file văn bản của mình và từ đó bạn còn có thể tạo ra các phụ lục cho tất cả những bức ảnh đó để có thể quản lý chúng một cách nhanh chóng và dễ dàng.

Tuy nhiên số phụ đề sẽ không theo thứ tự nếu bạn di chuyển phụ đề và thậm chí là xóa chúng đi trong quá trình chỉnh sửa tài liệu của mình. Sau đó chúng ta cần sửa lại số thứ tự của các tiêu đề miêu tả này. Vậy có cách nào có thể cập nhật hoặc làm mới tất cả các số thứ tự tiêu đề miêu tả này không. Trong bài này Gitiho.com sẽ hướng dẫn các bạn vài cách đơn giản và hữu ích để cập nhật hoặc làm mới số thứ tự tiêu đề miêu tả trong Word một cách nhanh nhất.

Cách 1: Dùng phím tắt để cập nhật hoặc làm mới số thứ tự tiêu đề miêu tả.

Các phím tắt này đều rất dễ sử dụng, chỉ cần bạn ghi nhớ kỹ thao tác,

Bước 1: Nhấn Ctrl A để chọn tất cả văn bản trong tài liệu.

Bước 2: Nhấn F9.

Kết thúc thao tác này tất cả các số thứ tự tiêu đề miêu tả đều đã được cập nhật.

Cách 2: Dùng mã VBA để cập nhật hoặc làm mới các số thứ tự tiêu đề miêu tả.

Cách này rất hữu hiệu và thông minh, bạn có thể sử dụng mã VBA để cập nhật hoặc làm mới các số thứ tự tiêu đề miêu tả. Hãy thực hiện theo các bước sau đây nhé.

Bước 1: Nhấn tổ hợp phím Alt và F11 để mở cửa sổ Microsoft Visual Basic for Application. Nếu phím tắt của bạn không hoạt động, hãy kích chuột chọn tab Developer, chọn Visual Basic, nhờ thao tác này cửa sổ  Microsoft Visual Basic for Application sẽ được xuất hiện lập tức.

Bước 2: Chọn Insert, chọn Module. Một cửa sổ module sẽ xuất hiện. Tại đây bạn sao chép và dán mã VBA dưới đây vào cửa sổ đó.

Bước 3: Nhấn chọn Run (nút tam giác màu xanh lá cây trên thanh công cụ) hoặc nút F5 để chạy mã VBA.

Mã VBA để cập nhật hoặc làm mới số thứ tự các tiêu đề mô tả.

Sub UpdateCaptionNumbers()

Dim oStory As Range

Dim oField As Field

For Each oStory In ActiveDocument.StoryRanges

For Each oField In oStory.Fields 

oField.Update

Next oField

Next oStory

End Sub

Đến đây các bạn đã hoàn thành thao tác và đạt được kết quả mong muốn.