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

Compartilhe agora:

no p de hojeost, temos o prazer de compartilhar com você 2 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.Excluir textos de tabela das estatísticas de contagem de palavras

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:Número de palavras nas tabelas selecionadas

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. primeiro e primeiroost, pressione “Alt+F11” para invocar 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”.Clique em "Normal"->Clique em "Inserir"->Clique em "Módulo"
  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) Com objDoc Para Cada objTable In .Tables nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords) Próxima objTable Terminar Com Com objDoc Para Cada objParagraph In .Paragraphs Se objParagraph.Range.Style = "Caption" Then nCaptionWords = nCaptionWords + objParagraph.Range .ComputeStatistics(wdStatisticWords) End If Next objParagraph End With nWordCount = nDocWords - nTableWords - nCaptionWords MsgBox ("Existem " & nWordCount & " palavras do texto principal neste documento." & vbCr & "Os seguintes itens foram excluídos da contagem de palavras: " & vbCr & "Total de palavras nas tabelas: " & nTableWords & vbCr & "Total de palavras de legenda: " & nCaptionWords) End Sub
  1. Por fim, clique em “Executar”.Cole Códigos->Clique em "Executar"

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

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

Compartilhe agora:

5 respostas para “2 métodos para excluir textos de tabelas das estatísticas de contagem de palavras”

  1. estou recebendo um erro de tempo de execução '91': variável de objeto ou com variável de bloco não definida. Tentei resolver isso tentando descobrir a ajuda pressionando ajuda na mensagem de erro, mas não tenho nenhum conhecimento de codificação. Por favor ajude

    eu tenho :

    SubExcludeTableAndCaptionWordsFromWordCount()
    Dim objTable como tabela
    Dim objParagraph como parágrafo
    Dim objDoc como documento
    Dim objCaption como CaptionLabels
    Dim nTableWords como inteiro, nDocWords como inteiro, nWordCount como inteiro, nCaptionWords como inteiro

    Definir objDoc = ActiveDocument
    Definir objParagraph = Parágrafo
    Definir objTable = Tabela
    Definir objCaption = CaptionLabels
    nPalavrasTabela = 0
    nCaptionWords = 0
    nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)

    Com objDoc
    Para cada objTable em .Tables
    nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
    Próxima tabelaobj
    Terminar com

    Com objDoc
    Para cada objParagraph em .Paragraphs
    Se objParagraph.Range.Style = “Caption” então
    nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
    Se acabar
    Próximo objParagraph
    Terminar com

    nWordCount = nDocWords – nTableWords – nCaptionWords

    MsgBox (“Existem ” & nWordCount & ” palavras do texto principal neste documento.” & vbCr & “Os seguintes itens são excluídos da contagem de palavras: ” & vbCr & “Total de palavras nas tabelas: ” & nTableWords & vbCr & “Total caption palavras: ”& nCaptionWords)
    End Sub

  2. constantemente eu lia artigos menores ou resenhas que também esclarecem seu motivo, e isso também está acontecendo com este post que estou lendo neste momento.

  3. O método 2 é legítimo. Para aqueles que têm um resumo e referências, você precisa excluí-lo primeiro e depois disso, você executa a besta.

Deixe um comentário

O seu endereço de e-mail não será publicado. Os campos obrigatórios são marcados com *