2種計算多語言Word文檔中一種語言的單詞總數的方法

立即分享:

在今天的文章中,我們將向您介紹2種方法來計算多語言Word文檔中一種語言的總單詞數。

有時,某些人可能需要編輯多語言Word文檔。 如此一來,有時您會想要為一種特定語言進行字數統計,而只是發現Word無法執行此任務。

然後,我們的目標是為您提供2個有用的解決方案來解決此類問題。

方法1:使用“高級查找”選項

  1. 首先,單擊“主頁”選項卡下“編輯”組中“查找”後面的上下三角形按鈕。     單擊“主頁”->“按鈕”->單擊“高級查找”
  2. 現在,在“查找和替換”對話框中,單擊“更多”按鈕。
  3. 並選中“僅查找整個單詞”框。
  4. 然後點擊“格式化”按鈕。
  5. 接下來選擇“語言”。點擊“格式”->選擇語言
  6. 在「尋找語言」對話方塊中,找到並選擇目標語言,然後按一下「確定」。選擇語言->單擊“確定”
  7. 現在回到“查找和替換”框,單擊“查找”,然後選擇“主文檔”。單擊“查找”->“選擇主文檔”
  8. 接下來,將選擇所有英語單詞,然後檢查屏幕左下角的單詞計數。 我們可以看到數字是93。檢查英語單詞的字數統計

方法2:運行Word宏

  1. 首先,點選「開發者」標籤。
  2. 然後單擊“ Visual Basic”以觸發VBA編輯器。 如果尚未啟用“ Developer”選項卡,請改為按“ Alt + F11”。單擊“開發人員”->單擊“ Visual Basic”
  3. 接下來,單擊“普通”,然後單擊“插入”。
  4. 選擇“模塊”。單擊“常規”->單擊“插入”->單擊“模塊”
  5. 並雙擊新模塊以打開編碼空間。
  6. 然後在其中粘貼以下代碼:
Sub CountTotalWordsOfOneLanguage()
  Dim objRange As Range
  Dim nWords As Long
 
  ' Initialization
  Set objRange = ActiveDocument.Range
  nWords = 0
 
  ' Find all English words and do word count.
  With objRange.Find
    .LanguageID = wdFrench
    Do While .Execute
      nWords = nWords + objRange.ComputeStatistics(wdStatisticWords)
    Loop
  End With
 
  MsgBox nWords
End Sub
  1. 最後,點擊“運行”按鈕。粘貼代碼->單擊“運行”

將會彈出一個消息框。 數字是指本文檔中法語文本的總字數。一個消息框,顯示法語文本的總數

請注意:

在代碼行“.LanguageID = wdFrench“中,”wd法語”表示法語。 要自定義代碼以用於更特定的用途,可以將語言ID替換為所需的確切語言。 有關更多語言ID,您可以訪問: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)

正確處理損壞的Word文件

由於各種錯誤或錯誤,Word有時會關閉或凍結。 說,如果您無法定期備份文件,則很有可能會丟失所有寶貴的數據。 剩下的兩個解決方法是利用Word的內置功能或獲取一個程序來 維修文件鑑於前者在大多數情況下似乎效果不佳,建議選擇第三方工具。

作者簡介:

陳薇薇(Vera Chen)是 DataNumen,Inc.是數據恢復技術的全球領導者,包括 Excel修復 以及 pdf 維修軟件產品。 欲了解更多信息,請訪問 萬維網。datanumen.COM

立即分享:

評論被關閉。