3 métodos para contar o número de palavras para seções em seu documento do Word

Neste artigo, haverá 3 métodos para você contar o número de palavras para seções em seu documento do Word.

É fácil obter o número total de palavras de um documento. Mas não há nenhuma função no Word para nos dizer o número de palavras de uma seção. E dado que preferimos colocar conteúdos do mesmo tópico em uma seção, como organizar um capítulo enquanto escrevemos um livro, é necessário que encontremos soluções alternativas para obter a contagem de seção.   A seguir estão 3 abordagens que exigem a execução de uma macro.

Método 1: conte o número de palavras da seção atual

1. Primeiramente, posicione o cursor dentro da seção desejada.
2. Então você precisa abrir o editor VBA no Word. Clique em “Desenvolvedor” e depois no comando “Visual Basic”. Caso você não consiga encontrar “Desenvolvedor” na Faixa de Opções, pressione “Alt+F11”.
3. Em seguida, clique no projeto “Normal” na coluna da esquerda.
4. Em seguida, clique na guia "Inserir".
5. Nesse menu suspenso, escolha “Módulo”.
6. Abra um novo módulo com um clique duplo.
7. Agora no módulo aberto, cole os seguintes códigos:

Sub CountWordsOfCurrentSection()
  MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
         & " words in current section.")
End Sub

8. Por fim, clique em “Executar” ou pressione “F5” para executar os códigos.

Você receberá uma caixa de mensagem, mostrando o número total da seção atual, conforme abaixo:

Método 2: conte o número de palavras para uma seção específica

Digamos que você esteja trabalhando em um livro e definindo cada capítulo como uma seção individual. Então, para saber quantas palavras você escreveu em um capítulo, você pode utilizar este método.

1. Siga as etapas acima para instalar e executar uma macro.
2. Basta substituir a macro por esta:

Sub CountWordsOfSpecificSection()
  Dim strSecNum As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strSecNum = InputBox("Enter a section number here:", "Enter Section Number") 
  MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
          & " words in section " & strSecNum & ".")
  Application.ScreenUpdating = True
End Sub

3. E ao executá-lo, haverá uma caixa de entrada. Na caixa “Enter Section Number”, insira o número da seção e clique em “OK” para prosseguir.

O resultado é mostrado em uma caixa de mensagem.

Método 3: conte o número de palavras para todas as seções em um documento

Como o subtítulo sugere, desta forma você obterá o número total de palavras de cada seção em um documento e as listará em uma caixa de mensagem.

1. Primeiramente, abra o documento de destino.
2. Ainda assim, você deve repetir as etapas do método 1 para instalar e executar a macro.
3. E desta vez, altere com esta macro:

Sub CountWordsOfEachSectionInDoc()
  Dim objDoc As Document
  Dim nNumberOfSection As Long
  Dim strText As String
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  nNumberOfSection = objDoc.Sections.Count
 
  For nNumberOfSection = 1 To nNumberOfSection
    strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
              .Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
              & vbNewLine
  Next nNumberOfSection
 
  MsgBox strText
 
  Application.ScreenUpdating = True
End Sub

Aqui está o resultado possível:

Salvar dados valiosos

Ao lidar com todos os tipos de documentos, você deve ter em mente a segurança deles. Como você nunca sabe quando acontecerá a próxima perda de dados, é recomendável fazer backup de arquivos importantes. Além disso, é sempre bom obter uma ferramenta que possa recuperar documento, caso existam.

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