Como extrair conteúdo entre duas palavras específicas de um documento do Word para outro

Neste artigo, mostraremos como extrair o conteúdo entre duas palavras específicas de um documento do Word para outro.

De vez em quando, você terá que extrair conteúdos entre palavras específicas em algumas ocasiões. A seguir estão 2 casos possíveis que você pode encontrar:

1. Primeiro, em uma tabela do Word, para todas as células em uma coluna começando e terminando com as mesmas 2 palavras, pode ser necessário extrair apenas a parte do meio diferente, como abaixo:   
2. Em segundo lugar, em alguns arquivos de log com várias entradas, você provavelmente precisará extrair apenas aqueles de que precisa. Em seguida, você pode especificar a primeira e a última palavra e usar o método I deste artigo para obter o conteúdo de que precisa.

Para realizar tal tarefa, preferimos executar uma macro do Word. Basta seguir estes passos.

Extrair conteúdo entre duas palavras

1. primeiro e primeiroost, pressione “Alt+F11” para abrir o editor VBA no Word.
2. Em seguida, clique no projeto “Normal” na coluna da esquerda.
3. Em seguida, clique na guia "Inserir" na barra de menu.
4. Escolha “Módulo” no menu suspenso.
5. Clique duas vezes para entrar no espaço de codificação do novo módulo e cole estes códigos lá:

Sub ExtractContentsBetweenTwoWords()
  Dim strFirstWord As String
  Dim strLastWord As String
  Dim objDoc As Document
  Dim objDocAdd As Document
  Dim objRange As Range
 
  ' Initialize and create a new blank document.
  Set objDoc = ActiveDocument
  Set objDocAdd = Documents.Add
  objDoc.Activate
 
  ' Enter the first and last words.
  strFirstWord = InputBox("Enter the first word:", "First Word")
  strLastWord = InputBox("Enter the last word:", "Last Word")
 
  ' Find and extract contents and insert them into the new document.
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Text = strFirstWord & "*" & strLastWord
      .MatchWildcards = True
      .MatchWholeWord = True
 
      Do While .Execute
        Selection.MoveStart Unit:=wdCharacter, Count:=Len(strFirstWord)
        Selection.MoveEnd Unit:=wdCharacter, Count:=-Len(strLastWord)
 
        objDocAdd.Range.InsertAfter Selection.Range & vbNewLine
        Selection.Collapse wdCollapseEnd
      Loop
    End With
  End With
End Sub

6. Em seguida, clique em “Executar” ou pressione “F5” para executar os códigos.
7. Na caixa de entrada "Primeira palavra", digite a primeira palavra. Lembre-se de que a macro diferencia maiúsculas de minúsculas. Portanto, inicialize a palavra, se necessário.
8. Em seguida, clique em "OK" para ir para a caixa "Última palavra".
9. Da mesma forma, digite a palavra e clique em "OK". Não se esqueça de seguir a mesma regra de inicializar a palavra de acordo.

Haverá um novo documento aberto e todo o conteúdo extraído aparecerá lá.

Extrair conteúdo entre colchetes

Como mencionamos, alguns conteúdos estão entre colchetes. Então aqui está o que você pode fazer:

1. Para% starPara desativar, você precisa seguir as etapas acima para instalar e executar uma macro.
2. Agora, de acordo com o tipo de colchete, você pode escolher a macro correspondente abaixo:

Para colchetes {}:

Sub ExtractContentsInBraces()
  Dim objDoc As Document
  Dim objDocAdd As Document
  Dim objRange As Range
 
  Set objDoc = ActiveDocument
  Set objDocAdd = Documents.Add
  objDoc.Activate
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "\{(*)\}"
      .MatchWildcards = True
 
      Do While .Execute
        Selection.MoveStart Unit:=wdCharacter, Count:=1
        Selection.MoveEnd Unit:=wdCharacter, Count:=-1
 
        objDocAdd.Range.InsertAfter Selection.Range & vbNewLine
        Selection.Collapse wdCollapseEnd
      Loop
    End With
  End With
End Sub

3. Para colchetes [ ]:

Basta substituir esta linha de código:

.Text = "\{(*)\}"

Com:

.Text =\[(*)\]

4. Em seguida, para parênteses ():

Substitua a mesma linha de código na etapa 3 por:

.Text = "\((*)\)"

5. E para colchetes <>:

Use esta linha em vez disso:

.Text = "\<(*)\>"

Lidar com um desastre de dados

Em um mundo altamente conectado como o nosso, é vital manter a segurança dos dados em mente o tempo todo. Além do mais, é preciso saber o que fazer em tempos de desastre de dados. E sua melhor escolha é obter um reparação docx ferramenta.

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