Chỉ Hiển thị Thống kê Khả năng Đọc (Microsoft Word)
Khi bạn kiểm tra ngữ pháp trên tài liệu của mình, bước cuối cùng mà Word thực hiện là hiển thị một tập hợp thống kê khả năng đọc mà bạn có thể sử dụng để phân tích cách trình bày nội dung của mình. Có thể đôi khi bạn chỉ muốn hiển thị số liệu thống kê về khả năng đọc mà không cần kiểm tra ngữ pháp hoàn chỉnh trước. Rất tiếc, Word không cung cấp cách thực hiện việc này. Tuy nhiên, bạn có thể tạo một macro sẽ hiển thị thống kê khả năng đọc khá đẹp. Trung tâm của một macro như vậy sẽ là bộ sưu tập Thống kê khả năng đọc.
Để biết cách viết một macro như vậy, hãy xem xét macro một dòng sau:
Sub CheckTest() MsgBox ActiveDocument.Content.ReadabilityStatistics(9).Value End Sub
Macro này hiển thị một số đại diện cho giá trị Flesch Reading Ease, thành viên thứ chín của bộ sưu tập Thống kê khả năng đọc. Có 10 phần tử riêng lẻ trong bộ sưu tập, như sau:
Index |
Meaning |
|
1 |
Words |
|
2 |
Characters |
|
3 |
Paragraphs |
|
4 |
Sentences |
|
5 |
Sentences per Paragraph |
|
6 |
Words per Sentence |
|
7 |
Characters per Word |
|
8 |
Passive Sentences |
|
9 |
Flesch Reading Ease |
|
10 |
Flesch-Kincaid Grade Level |
Để hiển thị tất cả mười thống kê (như sẽ được thực hiện trong kiểm tra ngữ pháp hoàn chỉnh của tài liệu của bạn), tất cả những gì bạn cần làm là thực hiện bước macro của bạn thông qua các thành viên khác nhau của bộ sưu tập và hiển thị giá trị của chúng.
Macro sau thực hiện điều đó:
Sub Readability() Dim DocStats As String Dim MBTitle As String Dim J As Integer MBTitle = "Readability Statistics" DocStats = "" With ActiveDocument.Content For J = 1 to 10 DocStats = DocStats & .ReadabilityStatistics(J) DocStats = DocStats & ": " DocStats = DocStats & .ReadabilityStatistics(J).Value DocStats = DocStats & vbCrLf Next J End With MsgBox DocStats, vbOKOnly, MBTitle End Sub
Khi bạn chạy macro, hãy hiểu rằng cần một chút thời gian để chạy.
Trên thực tế, tùy thuộc vào tốc độ của hệ thống, độ dài của tài liệu và độ phức tạp của nó, có thể mất khá nhiều thời gian để chạy. Kiên nhẫn; sau khi hoàn thành mười thống kê, chúng sẽ được hiển thị trên màn hì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 (10666) áp dụng cho Microsoft Word 2007, 2010, 2013 và 2016. 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: