2 métodos para contar o total de palavras de um idioma em um documento do Word multilíngue

No artigo de hoje, gostaríamos de apresentar 2 métodos para contar o total de palavras de um idioma em um documento do Word multilíngue.

De vez em quando, alguns de vocês podem precisar editar um documento do Word em vários idiomas. Como resultado, haverá momentos em que você deseja fazer a contagem de palavras para um idioma específico, mas apenas para descobrir que o Word não pode executar esta tarefa.

Então, nosso objetivo é fornecer a você 2 soluções úteis para resolver esse problema.

Método 1: Use a opção “Localização avançada”

1. Primeiro, clique no botão de triângulo invertido atrás de “Localizar” no grupo “Edição” na guia “Página inicial”.     
2. Agora, na caixa de diálogo “Localizar e substituir”, clique no botão “Mais”.
3. E marque a caixa "Encontrar apenas palavras inteiras".
4. Em seguida, clique no botão “Formatar”.
5. Em seguida, escolha “Idioma”.
6. Na caixa de diálogo “Localizar idioma”, encontre e selecione o idioma desejado e clique em “OK”.
7. Agora, de volta à caixa “Localizar e substituir”, clique em “Localizar em” e escolha “Documento principal”.
8. Em seguida, todas as palavras em inglês devem ser selecionadas e verificar a contagem de palavras no canto inferior esquerdo da tela. Podemos ver que o número é 93.

Método 2: Executar Macro do Word

1. Para começar, clique na aba “Desenvolvedor”.
2. Em seguida, clique em “Visual Basic” para acionar o editor VBA. Caso você ainda não tenha a aba “Desenvolvedor” habilitada, pressione “Alt+F11”.
3. Em seguida, clique em “Normal” e, em seguida, clique em “Inserir”.
4. Escolha “Módulo”.
5. E clique duas vezes no novo módulo para abrir o espaço de codificação.
6. Em seguida, cole os seguintes códigos lá:

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

7. Por fim, clique no botão “Executar”.

Deve haver uma caixa de mensagem aparecendo. O número refere-se ao total de palavras dos textos em francês neste documento.

Nota:

Na linha de código “.LanguageID = wdFrancês", a "wdFrancês” significa língua francesa. Para personalizar os códigos para uso mais específico, você pode substituir o ID do idioma pelo idioma exato que deseja. E para o ID de mais idiomas, você pode visitar: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)

Lidar adequadamente com arquivos do Word corrompidos

De vez em quando, o Word desliga ou congela devido a todos os tipos de erros ou enganos. Digamos que, se você não fizer backup de arquivos regularmente, existe uma grande possibilidade de perder todos os dados preciosos. E as 2 soluções restantes são utilizar a função interna do Word ou obter um programa para documento de reparaçãoConsiderando que a primeira opção geralmente não funciona bem, é aconselhável escolher uma ferramenta de terceiros.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo Correção do Excel e pdf reparar produtos de software. Para mais informações visite www.datanumen.com