Bạn có thể xác định số kiểu có sẵn trong tài liệu (khi tạo macro VBA) bằng cách sử dụng thuộc tính Đếm với đối tượng Kiểu. Điều này được thực hiện bằng cú pháp sau:

x = ActiveDocument.Styles.Count

trong đó x là biến sau đó bạn có thể sử dụng trong các dòng macro VBA khác. Lưu ý rằng hàm này cho biết có bao nhiêu cái đã được xác định, chứ không phải bao nhiêu cái đang được sử dụng thực sự. Điều này có nghĩa là các kiểu cài sẵn cũng được tính. Nếu bạn muốn loại trừ các kiểu cài sẵn, bạn có thể thực hiện đếm số lần lặp lại thực tế của các kiểu theo cách sau:

x = 0 For Each objStyle in ActiveDocument.Styles     If Not objStyle.BuiltIn Then x = x + 1 Next objStyle

_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 (803) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Word (Word 2007 và sau này) tại đây: