Lise đang làm việc với 50 tài liệu nhỏ, nhiều tài liệu dài chưa đến một trang. Tất cả đều nằm trong các tệp riêng biệt (không có tài liệu chính hoặc tài liệu phụ). Cô ấy muốn biết tổng số từ trong tất cả các tệp và tự hỏi liệu có cách nào dễ dàng để đếm không.

Một tùy chọn là sử dụng phần bổ trợ của bên thứ ba có thể tính số từ cho bạn. Đây là ba gợi ý mà bạn có thể muốn xem:

WordCounter: http://www.editorium.com/counter.htm FineCount: http://www.tilti.com/software-for-translators/finecount/?id=2_finecountv2 Total Assistant: http://www.surefiresoftware.com/totalassistant/

Tất nhiên, nếu bạn thích “tự cuộn” hơn là dựa vào giải pháp của người khác, bạn có thể tạo một macro tương đối đơn giản để lướt qua từng tệp trong một thư mục và tính tổng số từ.

Sub GetWordCount()

Dim docname As String     Dim NumWords As Long     Dim NumFiles As Integer     Dim PathName As String

PathName = "c:\mypath\"



NumWords = 0     docname = Dir(PathName & ".doc")

While docname <> ""

NumFiles = NumFiles + 1         Documents.Open FileName:=PathName & docname, Visible:=False         Documents(docname).Activate

NumWords = NumWords + ActiveDocument.BuiltInDocumentProperties("Number of words").Value

Documents(docname).Close savechanges:=False         docname = Dir     Wend

MsgBox ("There are " & NumWords & " words in " & NumFiles & " documents.")

End Sub

Để sử dụng macro, hãy đảm bảo rằng bạn thay đổi biến PathName để nó phản ánh đường dẫn đến thư mục chứa tài liệu bạn muốn kiểm đếm. (Ký hiệu đường dẫn phải kết thúc bằng dấu gạch chéo ngược.) Khi bạn chạy macro, nó sẽ hiển thị số từ trong hộp thông báo.

_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 (5595) á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: