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)))

支持我们

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

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