Bruce đang tìm cách nào đó để Word tự động đánh dấu các câu dài trong tài liệu. Ví dụ, anh ta có thể muốn có những câu có hơn 20 từ được đánh dấu bằng màu nào đó để chúng được định vị dễ dàng.

May mắn thay, Word duy trì một bộ sưu tập Câu, có thể truy cập thông qua VBA, bao gồm mỗi câu trong tài liệu. Bạn có thể kiểm tra từng mục trong bộ sưu tập này (từng câu riêng lẻ) để xác định xem nó có dài hơn độ dài mong muốn của bạn hay không. Macro sau cung cấp một ví dụ về cách thực hiện điều này.

Sub Mark_Long()

Dim iMyCount As Integer     Dim iWords As Integer

If Not ActiveDocument.Saved Then         ActiveDocument.Save     End If

'Reset counter     iMyCount = 0

'Set number of words     iWords = 20

For Each MySent In ActiveDocument.Sentences         If MySent.Words.Count > iWords Then              MySent.Font.Color = wdColorRed             iMyCount = iMyCount + 1         End If     Next     MsgBox iMyCount & " sentences longer than " & _       iWords & " words."

End Sub

Lưu ý rằng mỗi câu được kiểm tra, và nếu nó dài hơn độ dài mong muốn (được xác định bởi biến iWords) thì câu đó sẽ được thay đổi thành màu chữ đỏ. Điều này giúp bạn dễ dàng kiểm tra tài liệu và phát hiện ra câu nào vượt quá độ dài bạn đã chỉ định.

_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 (11909) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: