Macro Word VBA - Đếm từ trong lựa chọn

Đếm từ trong lựa chọn

Macro Word VBA này sẽ đếm số từ trong vùng chọn. Nếu không có lựa chọn nào được thực hiện, nó sẽ đếm số từ trong toàn bộ tài liệu.

Sub WordCount () 'đếm toàn bộ tài liệu, sau đó đếm từ để lựa chọn (nếu thứ gì đó được chọn) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeSt Statistics (wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeSt Statistics (wdStatisticCharacters) MsgBox " Toàn bộ tài liệu chứa: "& vbCrLf & nWordsCount &" từ và "& vbCrLf & _ nCharCount &" các ký tự không có dấu cách "," Số từ "'giờ đây hiển thị số từ cho văn bản đã chọn Nếu Lựa chọn. AdWords.Count> = 1 Và Selection.Type wdSelectionIP Then nWordsCount = Selection.Range.ComputeSt Statistics (wdStatisticWords) nCharCount = Selection.Range.ComputeSt Statistics (wdStatisticCharacters) MsgBox "Văn bản đã chọn chứa:" & vbCrLf & nWordsCount & "từ và" & vbCr dấu cách ",," Đếm từ (lựa chọn) "Kết thúc Nếu Kết thúc Sub