M-x調出命令，輸入：

count-words

老張說:

如果有選區，則顯示選區內的行數，詞數，字（母）數。 如果沒有選區，則計算當前buffer。 注意這個對於英文比較正常，中文因為分詞的問題，word數是有問題的。應該以字數為準。 因此上述方法只是大致統計，精度不高，網上搜到了下面的程式碼，可以分別統計英文單詞數和非英文的字數，未經測試，供參考。

(defun zjs-count-word ()
  (interactive)
  (let ((beg (point-min)) (end (point-max))
        (eng 0) (non-eng 0))
    (if mark-active
        (setq beg (region-beginning)
              end (region-end)))
    (save-excursion
      (goto-char beg)
      (while (< (point) end)
        (cond ((not (equal (car (syntax-after (point))) 2))
               (forward-char))
              ((< (char-after) 128)
               (progn
                 (setq eng (1+ eng))
                 (forward-word)))
              (t
               (setq non-eng (1+ non-eng))
               (forward-char)))))
    (message "English words: %d\nNon-English characters: %d"
             eng non-eng)))

支援我們

如果您喜欢这篇文章，您可以分享给您的朋友，分享到您的社交账号比如：

或者 点击这个链接 观看广告支持我【广告内容与我们无关，请不要轻易相信并打开弹出的广告】。
若您经济宽裕，更欢迎通过下面的方式小额赞助以支持我们的创作。