Khi bạn làm việc với một tài liệu trong một thời gian dài, hoặc khi bạn thừa kế tài liệu từ người khác, rất có thể tài liệu đó chứa các kiểu không còn được sử dụng. Bạn có thể muốn loại bỏ các kiểu này, nhưng điều này có thể gây nguy hiểm cho định dạng tài liệu của bạn nếu bạn bắt đầu xóa chúng mà không biết rằng chúng thực sự không được sử dụng.

Đây là nơi mà một macro có ích. Nó có thể nhanh chóng tìm kiếm trong một tài liệu để xem liệu một phong cách cụ thể có được sử dụng ở bất kỳ đâu. Nếu không, thì kiểu này có thể dễ dàng bị xóa. Macro sau đây, DeleteUnusedStyles, thực hiện điều đó.

Sub DeleteUnusedStyles()

Dim oStyle As Style

For Each oStyle In ActiveDocument.Styles         'Only check out non-built-in styles         If oStyle.BuiltIn = False Then             With ActiveDocument.Content.Find                 .ClearFormatting                 .Style = oStyle.NameLocal                 .Execute FindText:="", Format:=True                 If .Found = False Then oStyle.Delete             End With         End If     Next oStyle End Sub

Lưu ý rằng macro bỏ qua một kiểu nếu nó là một kiểu dựng sẵn. Điều này là do việc xóa một kiểu dựng sẵn không thực sự xóa nó, mà chỉ đặt lại kiểu đó về điều kiện mặc định, ban đầu của nó. Trên thực tế, Word không cho phép xóa các kiểu cài sẵn khỏi tài liệu. Ngay cả khi kiểu dựng sẵn không còn được sử dụng nữa nhưng đã từng được sử dụng trong tài liệu, kiểu đó sẽ vẫn hiển thị trong danh sách thả xuống kiểu.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (1337) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003.