4 maneiras de excluir números em seu documento do Word das estatísticas de contagem de palavras

Soluções de palavras 28 de Setembro de 2025

No artigo de hoje, apresentaremos 4 maneiras eficazes de excluir números em seu documento do Word das estatísticas de contagem de palavras.

Geralmente, o Word conta todos os tipos de texto, sejam palavras ou números. Mas, de vez em quando, é provável que façamos uma contagem de palavras excluindo certos elementos, como números. Portanto, temos o prazer de mostrar a você 4 métodos para atender a esse requisito.

Antes de tudo, você deve fazer um backup do documento desejado e executar todos os métodos abaixo em sua cópia.

Método 1: Excluir todos os números

Em primeiro lugar, abra o arquivo de cópia e clique no botão suspenso em “Localizar” na guia “Página inicial”.
Em segundo lugar, escolha “Localização avançada” para abrir a caixa de diálogo “Localizar e substituir”.
Em seguida, digite “^#” na caixa de texto “Localizar”. Se você não consegue se lembrar desta string, coloque o cursor na caixa de texto “Find what” e clique em “More” e então clique no botão “Special”.
Em seguida, selecione "Qualquer dígito".
Agora clique em “Find In” e escolha “Main Document”.
Você vai encontrar todos os números estão na seleção.
Pressione “Excluir”.
Depois que os números desaparecem, você pode observar que o Word considera alguns sinais de pontuação como palavras agora. Portanto, você também precisa remover todos os sinais de pontuação. Abra a caixa "Localizar e substituir" novamente. Desta vez, insira “[,.;:'”””/\!\*\?\\]” (sem as aspas) na caixa de texto “Localizar”.
E lembre-se de marcar a caixa “Usar curingas”.
Repita a etapa 5 para localizar todos os sinais de pontuação.
Exclua-os.
Por fim, clique em “Revisão” e depois em “Contagem de palavras” para ver o número total de textos.

Método 2: formatar todos os números como textos ocultos

O Word não inclui textos ocultos na contagem de palavras, portanto, você pode optar por definir números em formatação oculta.

Em primeiro lugar, repita os primeiros 6 passos do método.
Em vez de excluir os números selecionados, pressione “Ctrl + D” para abrir a caixa “Fonte”.
Marque a caixa "Oculto" e clique em "OK".
Em seguida, repita da etapa 8 a 9 para encontrar todos os sinais de pontuação.
Da mesma forma, siga as etapas 2 e 3 para formatar sinais de pontuação como textos ocultos.
Finalmente, verifique o total de palavras.

Método 3: Executar Macro do Word

A macro a seguir fará as etapas acima automaticamente e retornará uma caixa de mensagem, contendo o número total de palavras, excluindo números.

Para começar, pressione “Alt+F11” no Word para abrir o editor VBA.
Em seguida, clique em "Normal" na coluna da esquerda.
Em seguida, clique na guia "Inserir" e escolha "Módulo".
Clique duas vezes no módulo para abri-lo e cole os códigos abaixo:

Sub ExcludeNumbersFromWordCount()
  Dim objDoc As Document
  Dim nWord As Integer
 
  Set objDoc = ActiveDocument
 
  With Selection
    .HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "^#"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "[,.;:’" & ChrW(8221) & ChrW(8221) & """/\!\*\?\\]"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
 
  nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)
 
  MsgBox ("There are " & nWord & " words in this document.")
End Sub

Clique em “Executar”.

Você receberá uma caixa de mensagem informando quantas palavras existem em seu documento, conforme abaixo:

Método 4: excluir números em tabelas da contagem de palavras

Aqui está uma necessidade particular de excluir números em tabelas da contagem de palavras. A solução é executar uma macro.

Instale e execute uma macro conforme indicado acima no método 3.
Em seguida, substitua essa macro por esta:

Sub ExcludeNumbersInTablesFromWordCount()
  Dim objDoc As Document, objNewDoc As Document
  Dim nWord As Integer, nWordInNewDoc As Integer, nWordInNewDocWithoutNum As Integer, nNumber As Integer
  Dim objTable As Table
  Dim objRange As Range
  Dim objParagraph As Paragraph
 
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
  nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)
 
  For Each objTable In objDoc.Tables
    objTable.Range.Select
    Selection.Copy
 
    Set objRange = objNewDoc.Range
 
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.PasteSpecial DataType:=wdPasteRTF
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.Text = vbCr
  Next objTable
 
  objNewDoc.Activate
 
  For Each objParagraph In ActiveDocument.Paragraphs
    If objParagraph.Range.Style = "Caption" Then
      objParagraph.Range.Delete
    End If
  Next objParagraph
 
  nWordInNewDoc = objNewDoc.Range.ComputeStatistics(wdStatisticWords)
 
  With Selection
    .HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "^#"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "[,.;:’" & ChrW(8221) & ChrW(8221) & """/\!\*\?\\]"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
 
  nWordInNewDocWithoutNum = objNewDoc.Range.ComputeStatistics(wdStatisticWords)
  nNumber = nWordInNewDoc - nWordInNewDocWithoutNum
  objDoc.Activate
  MsgBox ("There are " & nWord - nNumber & " words in this document, excluding numbers in tables.")
End Sub

Haverá uma caixa de mensagem como esta:

Pense no futuro

Considerando que o Word não é infalível, é essencial tomar medidas preventivas antes que seja tarde demais. A maneira mais eficaz é fazer backup dos seus documentos com a maior frequência possível. Embora o backup de um documento possa levar apenas alguns minutos, a recuperação de um arquivo perdido pode levar horas ou até dias. documento corrompido. Portanto, pense com antecedência para economizar tempo e dinheiro.

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