Como localizar ou excluir rapidamente parágrafos contendo textos específicos em seu documento do Word

Neste artigo, continuaremos a oferecer a você a maneira de localizar ou excluir rapidamente parágrafos contendo textos específicos em seu documento do Word.

Em um de nossos artigos anteriores, mostramos como localizar ou deletar frases contendo um texto específico. Para informações detalhadas, você pode consultar este link: 2 maneiras rápidas de encontrar ou excluir frases contendo texto específico em sua palavra

Da mesma forma, desta vez mostraremos a você os detalhes de localização ou exclusão de parágrafos contendo textos específicos.

Encontre ou exclua parágrafos contendo textos específicos via VBA

1. primeiro e primeiroost, acione o editor VBA clicando na aba “Desenvolvedor” na Faixa de Opções e em seguida clique em “Visual Basic”. Ou se o “Desenvolvedor” ainda não estiver disponível, você pode pressionar “Alt+F11”.
2. Em seguida, clique em projeto “Normal”.
3. Em seguida, na barra de menu, clique na guia "Inserir".
4. E no menu suspenso de “Inserir”, escolha “Módulo”.
5. Clique duas vezes nesse módulo e cole a seguinte macro lá:

Sub DeleteParagraphsContainingSpecificTexts() Dim strFindTexts As String Dim strButtonValue As String Dim nSplitItem As Long Dim objDoc As Document strFindTexts = InputBox("Digite os textos a serem encontrados aqui e use vírgulas para separá-los: ", "Textos a serem encontrados") nSplitItem = UBound(Split(strFindTexts, ",")) Com Seleção .HomeKey Unit:=wdStory ' Encontra os textos digitados um a um. Para nSplitItem = 0 Para nSplitItem Com Selection.Find .ClearFormatting .Text = Split(strFindTexts, ",")(nSplitItem) .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchWholeWord = False . MatchCase = False .MatchSoundsLike = False .MatchWildcards = False .MatchAllWordForms = False .Execute End With Do While .Find.Found = True ' Expande a seleção para o parágrafo inteiro. Selection.Expand Unit:=wdParagraph strButtonValue = MsgBox("Tem certeza que deseja deletar o parágrafo?", vbYesNo) If strButtonValue = vbYes Then Selection.Delete End If .Collapse wdCollapseEnd .Find.Execute Loop Next End With MsgBox ("Word tem terminou de localizar todos os textos inseridos.") Set objDoc = Nothing End Sub

6. Em seguida, clique no botão “Executar” ou pressione “F5” para executar os códigos.
7. Agora, na caixa “Textos a serem encontrados” que aparece, digite os textos na caixa de texto. Esta macro permite encontrar vários textos ao mesmo tempo. Você apenas insere os textos que deseja encontrar e usa vírgulas para separar cada um. Lembre-se de não inserir espaço após a vírgula.
8. Em seguida, clique em “OK” para prosseguir.
9. Em seguida, o primeiro parágrafo com target text está na seleção. E há também a caixa de mensagem, perguntando se você deseja excluir o parágrafo. Clique em “Sim” para excluir o parágrafo. Ou clique em “Não” para encontrar a próxima ocorrência do texto.
10. Depois de terminar a pesquisa no documento, há uma caixa de mensagem como abaixo:

Lide com os documentos do Word destruídos

Entendemos que o Word não está imune a erros e corrupções. É esta falha que faz do nosso documento uma vítima frequente de danos do documento. Portanto, para evitar a perda permanente de nossos dados importantes, é melhor obter uma ferramenta de correção com antecedência.

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