2 maneiras rápidas de extrair textos com a mesma cor do seu documento do Word

Na publicação de hoje, temos o prazer de compartilhar com você dois métodos rápidos para extrair textos da mesma cor do seu documento do Word.

De vez em quando, durante a formatação de um documento do Word, é provável que apliquemos a cor da fonte em alguns textos para destacá-los para uma atenção extra. Normalmente, essas palavras coloridas são conteúdos importantes que merecem sua revisão novamente. Então, que tal exportá-los e coletá-los em outro lugar para uma verificação mais tarde?

Com foco nessa demanda, sugerimos 2 atalhos rápidos ao invés de infinitas ações de recortar e colar.

Método 1: Utilize o recurso "Localizar"

1. Primeiro, clique na guia "Página inicial".
2. Em seguida, vá para o grupo “Editing” para clicar no botão de triângulo de cabeça para baixo ao lado de “Find”.
3. Em seguida, escolha “Localização avançada” na lista.
4. Na caixa de diálogo "Localizar e substituir", coloque o cursor na caixa de texto "Localizar" e limpe qualquer conteúdo, se houver.
5. Em seguida, clique no botão "Mais".
6. Agora clique no botão “Formatar” e escolha “Fonte”.
7. Na caixa de diálogo “Find Font”, clique no botão suspenso atrás de “Font color” para escolher a cor exata que você atribui aos seus textos.
8. Lembre-se de clicar em “OK”.
9. Agora, volte para a caixa “Localizar e substituir” e clique em “Localizar em”.
10. Por fim, escolha “Documento principal”.

Em seguida, todos os textos na cor desejada serão selecionados. Agora você pode pressionar “Ctrl+C” para copiar e colar o conteúdo em outro local de uma só vez.

Método 2: Executar uma Macro do Word

1. Em primeiro lugar, clique na aba “Desenvolvedor”.
2. Em seguida, clique em “Visual Basic” para acionar o editor VBA.
3. Em seguida, clique em “Normal” e depois em “Inserir”.
4. Escolha “Módulo” no menu.
5. Em seguida, clique duas vezes no módulo para ativar o espaço de codificação.
6. A seguir cole os códigos:

Sub ExtractColoredTexts()
  Dim objDoc As Document, 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
      .Font.Color = wdColorRed
      .Text = ""
      .Execute
    End With
  Do While .Find.Found
    Set objRange = Selection.Range
    objDocAdd.Range.InsertAfter objRange & vbCr
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
  End With
End Sub

7. Agora clique no botão “Executar”.

Haverá um novo documento aberto com todos os textos extraídos.

Nota: Na linha de código “.Font.Color = wdColorRed”, você precisa substituir “wdColorRed” pela cor real de seus textos. Para referência detalhada, você pode visitar esta página: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Problema de palavra de endereço

A maioria de nós já usa o Word com frequência. Mesmo assim, ainda podemos nos deparar com alguns problemas difíceis, como o travamento do programa. Isso é, sem dúvida, um problema bastante sério, pois seus arquivos importantes podem estar em risco. Nessas circunstâncias, recomenda-se obter um... Ferramenta de reparo de erros de dados do Word que deve recuperar dados do Word em apenas alguns minutos.

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