Word cho phép bạn tạo các kiểu để xác định cách văn bản trong tài liệu của bạn sẽ xuất hiện. Bên cạnh danh sách đầy đủ các kiểu cài sẵn, Word cho phép bạn tạo bất kỳ kiểu tùy chỉnh nào mà bạn có thể mong muốn. Sau đó, bạn có thể in biểu định kiểu cho tài liệu của mình, như được mô tả trong các số báo khác của WordTips.

Tuy nhiên, điều gì sẽ xảy ra nếu bạn muốn có một danh sách chỉ các kiểu tùy chỉnh? Word không bao gồm một tính năng cho phép bạn phân biệt kiểu nào được bao gồm trong bản in trang định kiểu. Nếu bạn muốn có danh sách các kiểu tùy chỉnh được sử dụng trong tài liệu, bạn có thể tạo một danh sách bằng cách sử dụng macro. Các bước macro sau đây thông qua tất cả các kiểu và tạo danh sách các kiểu đáp ứng cả hai tiêu chí (tùy chỉnh và đang được sử dụng): bạn cũng có thể đọc thuộc tính ActivePrinter

Sub PrintCustomStyles()

Dim docThis As Document     Dim styItem As Style     Dim sUserDef(499) As String     Dim iStyleCount As Integer     Dim J As Integer

' Ref the active document     Set docThis = ActiveDocument

iStyleCount = 0     For Each styItem In docThis.Styles         'see if being used         If styItem.InUse Then             'make sure not built in             If Not styItem.BuiltIn Then                 iStyleCount = iStyleCount + 1                 sUserDef(iStyleCount) = styItem.NameLocal             End If         End If     Next styItem

If iStyleCount > 0 Then         ' Create the output document         Documents.Add

Selection.TypeText "User-defined Styles In Use"

Selection.TypeParagraph         For J = 1 To iStyleCount             Selection.TypeText sUserDef(J)

Selection.TypeParagraph         Next J         Selection.TypeParagraph         Selection.TypeParagraph     Else         MsgBox "No custom styles in use."

End If End Sub

Hãy nhớ rằng có sự khác biệt giữa “kiểu tùy chỉnh” và “kiểu tùy chỉnh”. (Kiểu cài sẵn có thể là kiểu tùy chỉnh, nếu bạn thay đổi các đặc điểm mặc định của kiểu.) Macro này in danh sách các kiểu tùy chỉnh; nó hoàn toàn bỏ qua những kiểu mà Word cho là được xây dựng trong.

_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 (8339) áp dụng cho Microsoft Word 2007, 2010 và 2013.

Bạn có thể tìm phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: