Hướng Dẫn Xóa Các Style Tùy Chỉnh Trong Word Bằng VBA

Khi làm việc với các tài liệu Word tải về, bạn có thể gặp phải tình trạng tài liệu chứa quá nhiều Style tùy chỉnh không cần thiết, khiến việc định dạng trở nên rối rắm. Bài viết này sẽ hướng dẫn bạn cách xóa toàn bộ các Style tùy chỉnh và chỉ giữ lại các Style mặc định của Word bằng cách sử dụng VBA (Visual Basic for Applications).

Bước 1: Kích hoạt Developer Tab trong Word

Trước khi sử dụng VBA, bạn cần kích hoạt tab Developer:

1. Mở Word.

2. Vào File > Options.

3. Trong cửa sổ Word Options, chọn Customize Ribbon.

4. Trong danh sách bên phải, đánh dấu vào ô Developer và bấm OK.

Bước 2: Mở VBA Editor

1. Nhấn Alt + F11 để mở VBA Editor.

2. Trong cửa sổ VBA, vào menu Insert > Module để tạo một module mới.

Bước 3: Dán đoạn mã VBA

Dán đoạn mã sau vào module mới:

Sub DeleteCustomStyles()
    Dim s As Style
    For Each s In ActiveDocument.Styles
        If Not s.BuiltIn Then
            On Error Resume Next
            s.Delete
            On Error GoTo 0
        End If
    Next s
    MsgBox "Da xoa Style tuy chinh!", vbInformation
End Sub

Bước 4: Chạy Macro

1. Đóng cửa sổ VBA Editor.

2. Quay lại Word, nhấn Alt + F8 để mở cửa sổ Macro.

3. Chọn DeleteCustomStyles và bấm Run để chạy macro.

Khi macro hoàn tất, tất cả các Style tùy chỉnh sẽ bị xóa, và bạn sẽ nhận được thông báo "Da xoa Style tuy chinh!".

Lưu ý

• Style mặc định của Word (như Normal, Heading 1, Heading 2, v.v.) sẽ không bị xóa.

• Trước khi chạy macro, bạn nên sao lưu tài liệu để tránh mất dữ liệu không mong muốn.

• Nếu gặp lỗi bảo mật khi chạy macro, hãy làm theo các bước sau:

  1. Vào File > Options > Trust Center.

  2. Chọn Trust Center Settings > Macro Settings.

  3. Chọn Enable all macros (bật lại chế độ an toàn sau khi hoàn thành).

Kết luận

Sử dụng VBA là cách nhanh chóng và hiệu quả để xóa các Style tùy chỉnh không mong muốn trong Word. Hy vọng bài viết này sẽ giúp bạn làm việc hiệu quả hơn với các tài liệu Word phức tạp!