2 métodos para excluir textos de tabelas das estatísticas de contagem de palavras

Na publicação de hoje, temos o prazer de compartilhar com vocês dois métodos eficazes para excluir textos de tabelas das estatísticas de contagem de palavras.

As tabelas geralmente são usadas para armazenar dados. E as tabelas são nossas melhores amigas para ilustrar pontos enquanto trabalhamos em um documento. Então pode ficar um pouco estranho quando a contagem de palavras está envolvida. Às vezes, precisamos apenas obter o número de palavras dos textos principais, em vez de todos os dados nas tabelas. No entanto, todos sabem que o Word conta todas as palavras em seu documento por padrão. Por esta razão, criamos meios eficientes. Continue a ler para saber mais.

Método 1: Selecione tabelas manualmente e faça as contas por conta própria

Se for um documento curto com apenas uma ou duas tabelas, não há problema em selecionar as tabelas uma a uma pressionando a tecla “Ctrl”. Nesta abordagem, o número total nas tabelas selecionadas ficará visível na barra de status, conforme abaixo:

Como você vê, existem 2 números. O primeiro refere-se ao número de palavras nas tabelas selecionadas, enquanto o segundo é o número total de palavras em seu documento. Basta usar o segundo número menos o primeiro para obter o resultado.

Método 2: Executar Códigos VBA

Conforme mencionado acima, o método 1 será tedioso se você tiver um grande número de tabelas em document. Selecioná-los manualmente definitivamente não é o caminho ideal. Em vez disso, recomendamos uma macro que contará todas as palavras, mas as excluirá em tabelas e legendas.

1. Em primeiro lugar, pressione “Alt + F11” para abrir o editor VBA no Word.
2. Em seguida, clique em “Normal”.
3. Em seguida, clique na guia "Inserir".
4. E escolha “Módulo” no menu suspenso da guia “Inserir”.
5. Clique duas vezes no novo módulo para abrir a área de codificação no lado direito.
6. Agora cole a seguinte macro lá:

Sub ExcludeTableAndCaptionWordsFromWordCount()
  Dim objTable As Table
  Dim objParagraph As Paragraph
  Dim objDoc As Document
  Dim nTableWords As Integer, nDocWords As Integer, nWordCount As Integer, nCaptionWords As Integer
 
  Set objDoc = ActiveDocument
  nTableWords = 0
  nCaptionWords = 0
  nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)
 
  With objDoc
    For Each objTable In .Tables
      nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
    Next objTable
  End With
 
  With objDoc
    For Each objParagraph In .Paragraphs
      If objParagraph.Range.Style = "Caption" Then
        nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
      End If
    Next objParagraph
  End With
 
  nWordCount = nDocWords - nTableWords - nCaptionWords
 
  MsgBox ("There are " & nWordCount & " main text words in this document." & vbCr & "The following items are excluded from word count: " & vbCr & "Total words in tables: " & nTableWords & vbCr & "Total caption words: " & nCaptionWords)
End Sub

7. Por fim, clique em “Executar”.

A execução da macro deve abrir uma caixa de mensagem, mostrando o resultado da contagem.

Lidar com danos de palavras

Dependemos muito de software como o Word para processar o trabalho diariamente. Como resultado, não podíamos deixar de pensar nas consequências avassaladoras de ter um Corrupção de palavras. Você pode se sentir desesperado, a menos que tenha uma ferramenta de reparo de documentos suficiente.

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 de xls e pdf reparar produtos de software. Para mais informações visite www.datanumen.com