Por que o Método Range.Find do Word VBA Não Encontra Correspondências em Quebras de Página

Ao executar uma macro VBA no Word que usa o método Range.Find para buscar uma string específica, a macro pode informar que o texto não foi encontrado mesmo que você o veja na página. Isso geralmente acontece quando o termo de pesquisa abrange uma quebra de página ou de seção. O método Find opera em um intervalo de texto contíguo, e o Word insere caracteres ocultos para quebras de página e seção que interrompem a sequência lógica de caracteres. Este artigo explica por que o método Find falha em quebras de página e fornece uma solução confiável usando o StoryRange e a propriedade Wrap do objeto Find.

Por que o Range.Find do Word VBA Falha em Quebras de Página

O Word armazena quebras de página como caracteres ocultos especiais no fluxo de texto. Ao atribuir um Range a uma página específica usando o método GoTo com wdGoToPage, o Range cobre apenas o texto entre o caractere de quebra de página anterior e o próximo. O caractere de quebra de página em si não está incluído no Range. Se o termo de pesquisa contiver caracteres que normalmente seriam adjacentes no texto lógico, mas estão separados pelo caractere de quebra de página, o método Find não consegue ver a string completa porque o caractere de quebra está no meio e não faz parte do Range.

Por exemplo, considere a frase “Isto é um teste” que se divide em duas páginas como “Isto é um” na página 1 e “teste” na página 2. O Range da página 1 contém “Isto é um” seguido pelo caractere de quebra de página. O Range da página 2 começa com “teste”. O método Find pesquisa cada Range independentemente e nunca vê “Isto é um teste” como uma string contígua.

O Papel do Objeto StoryRange

A estrutura de documentos do Word inclui várias histórias: a história de texto principal, cabeçalhos, rodapés, notas de rodapé, notas de fim e outras. A história de texto principal (wdMainTextStory) contém todo o texto do corpo do documento, incluindo caracteres de quebra de página, caracteres de quebra de seção e outras marcas de formatação ocultas. Ao acessar a história de texto principal via ActiveDocument.StoryRanges(wdMainTextStory), você obtém um Range que abrange todo o fluxo de texto lógico sem limites de quebra de página. Usar esse StoryRange para a operação Find garante que a pesquisa veja a sequência completa de texto.

Como Corrigir o Método Find para Pesquisas Entre Páginas

A solução envolve três alterações no seu código VBA: usar o Range da história de texto principal em vez de um Range específico de página, definir a propriedade Wrap do objeto Find para continuar a pesquisa e tratar explicitamente o caso em que o Find começa após a localização da correspondência. Abaixo estão as etapas detalhadas.

1. Declare e defina a variável StoryRange
   Use Dim rngStory As Word.Range e depois Set rngStory = ActiveDocument.StoryRanges(wdMainTextStory). Isso fornece um Range que cobre todo o corpo do documento, incluindo todos os caracteres de quebra.
2. Recolha o intervalo para o início
   Chame rngStory.Collapse Direction:=wdCollapseStart para mover o ponto de inserção para o início do documento. Isso impede que o Find comece no meio do texto.
3. Configure o objeto Find
   Defina a propriedade Text do Find para sua string de pesquisa. Defina .Wrap = wdFindContinue para que, se a pesquisa chegar ao final do intervalo sem encontrar o texto, ela volte ao início e pesquise novamente. Isso garante que uma correspondência que aparece antes do ponto inicial ainda seja encontrada.
4. Execute o Find e verifique o resultado
   Use With rngStory.Find e chame .Execute. Após a chamada, verifique rngStory.Find.Found para ver se o texto foi encontrado. Se encontrado, rngStory agora se refere ao texto correspondente.
5. Lide com múltiplas correspondências em um loop
   Se precisar encontrar todas as ocorrências, envolva a chamada Execute em um loop Do While. Após cada localização bem-sucedida, chame rngStory.Collapse Direction:=wdCollapseEnd e depois rngStory.Find.Execute novamente para avançar além da correspondência.

Se o Find do Word VBA Ainda Não Encontrar Correspondências Após a Correção

Find Falha Quando o Termo de Pesquisa Contém Caracteres Não Imprimíveis

Se sua string de pesquisa incluir espaços, tabulações ou outros espaços em branco, o método Find pode falhar porque o Word normaliza espaços em branco de forma diferente entre quebras de página. Para resolver, substitua espaços na string de pesquisa pelo padrão curinga [ ^t^s] ou use a propriedade .MatchWildcards = True e pesquise por Istoéumteste onde corresponde a qualquer caractere, incluindo caracteres de quebra.

Find Retorna Falso Quando o Intervalo Começa Após o Texto Alvo

Se você não recolher o intervalo para o início antes de chamar Execute, e a seleção atual ou ponto de inserção estiver após o texto alvo, o Find pode retornar Falso mesmo com Wrap definido como wdFindContinue. A propriedade Wrap só funciona quando o intervalo é recolhido para um ponto antes do alvo. Sempre recolha para o início do StoryRange antes da primeira chamada Find.

Find Pula Correspondências em Cabeçalhos ou Rodapés

A história de texto principal não inclui cabeçalhos, rodapés ou notas de rodapé. Se seu alvo de pesquisa estiver em um cabeçalho, você deve acessar essa história específica via ActiveDocument.StoryRanges(wdPrimaryHeaderStory) ou iterar por todos os intervalos de história. Use um loop sobre todos os itens em ActiveDocument.StoryRanges e execute o Find em cada história.

Métodos Find do Word VBA: Page Range vs StoryRange vs Document Range

Item	Page Range (GoTo)	StoryRange (wdMainTextStory)	Document Range (ActiveDocument.Range)
Escopo	Texto entre duas quebras de página	História de texto principal inteira, incluindo quebras	Documento inteiro, incluindo todas as histórias
Inclui caracteres de quebra de página	Não	Sim	Sim
Encontra correspondências entre páginas	Não	Sim	Sim, mas pode incluir texto de cabeçalho/rodapé
Requer configuração Wrap	Não necessário se o intervalo contiver o texto	Recomendado (wdFindContinue)	Recomendado (wdFindContinue)
Melhor caso de uso	Pesquisar dentro de uma única página	Pesquisar texto do corpo entre quebras	Pesquisar todo o conteúdo do documento

A abordagem StoryRange é a mais confiável para encontrar texto que abrange quebras de página, pois opera no fluxo de texto lógico. O Document Range inclui todas as histórias, o que pode causar falsos positivos se o mesmo texto aparecer em um cabeçalho ou rodapé. Escolha o método que corresponde ao seu escopo de pesquisa.

Agora você pode escrever macros VBA que encontram texto corretamente entre quebras de página usando o Range da história de texto principal e definindo a propriedade Wrap como wdFindContinue. Em seguida, teste sua macro em um documento com quebras de página intencionais para confirmar a correção. Para cenários avançados, considere usar a propriedade MatchWildcards com um padrão que corresponda a qualquer caractere de quebra.