Por que o Selection.TypeText do Word VBA insere texto no intervalo de indicador errado

Você executa uma macro VBA do Word que usa Selection.TypeText para inserir texto em um indicador específico, mas o texto acaba fora do indicador ou no intervalo errado. Isso geralmente acontece porque Selection.TypeText não respeita o intervalo do indicador quando a seleção não é explicitamente definida para o indicador. A causa raiz é que Selection.TypeText opera na seleção atual do documento, que pode mudar de forma imprevisível após outras operações, como inserção de intervalo ou navegação no documento. Este artigo explica por que Selection.TypeText falha ao atingir o intervalo correto do indicador e fornece um método confiável usando Range.Text ou Range.InsertAfter para garantir que o texto seja colocado exatamente onde você deseja.

Por que Selection.TypeText falha ao atingir o intervalo do indicador

No VBA do Word, o objeto Selection representa a posição atual do cursor ou a área destacada no documento. Quando você chama Selection.TypeText, ele insere texto nessa localização precisa, independentemente de quaisquer intervalos de indicador que você possa ter referenciado anteriormente em seu código. O erro comum é supor que selecionar o intervalo do indicador primeiro irá travar o ponto de inserção nesse intervalo. No entanto, o próprio método Select pode fazer com que a janela do documento role, o que pode redefinir a seleção ou fazer com que o intervalo seja perdido. Além disso, se o indicador estiver dentro de uma tabela, cabeçalho ou outra região protegida, Selection.TypeText pode falhar silenciosamente ou inserir texto na área editável mais próxima.

A razão técnica central é que Selection.TypeText foi projetado para simulação de digitação em nível de usuário, não para manipulação programática de intervalos. Ele interage com a camada de interface do usuário do documento, o que pode introduzir comportamento imprevisível. Por exemplo, se o indicador estiver recolhido (um único ponto em vez de um intervalo), Selection.TypeText inserirá texto nesse ponto, mas o intervalo do indicador pode então se expandir incorretamente ou o novo texto pode não ser considerado parte do indicador. Por outro lado, se o indicador cobrir um intervalo de texto, Selection.TypeText substitui apenas a parte selecionada, que pode não ser todo o intervalo do indicador se a seleção for alterada.

Como o objeto Selection se desvia do indicador

Quando você executa ActiveDocument.Bookmarks("MeuIndicador").Range.Select, o Word destaca o conteúdo do indicador na janela do documento. No entanto, o objeto Selection agora aponta para essa área destacada apenas se nenhum outro código ou ação do usuário mudar o foco. Se sua macro realizar qualquer outra operação—como ativar um documento diferente, abrir uma caixa de diálogo ou até mesmo mover o cursor—o Selection pode se deslocar. Mesmo sem alterações explícitas, o processamento interno do Word pode fazer com que a seleção perca sua âncora. Consequentemente, uma chamada subsequente a Selection.TypeText insere texto na nova localização, não no indicador.

Etapas para inserir texto no intervalo correto do indicador

Para inserir texto de forma confiável em um intervalo de indicador sem depender do objeto de seleção, use a propriedade Range do indicador diretamente. O objeto Range é estável e não depende do estado da interface do usuário do documento. Abaixo estão dois métodos: um que substitui todo o conteúdo do indicador e outro que anexa texto ao conteúdo existente.

Método 1: Substituir o conteúdo do indicador usando Range.Text

1. Declarar e definir o intervalo do indicador
   Use Dim bmRange As Range e Set bmRange = ActiveDocument.Bookmarks("NomeDoSeuIndicador").Range. Isso cria uma referência direta ao intervalo do indicador sem usar a seleção.
2. Atribuir novo texto ao intervalo
   Escreva bmRange.Text = "Seu novo texto aqui". Isso substitui todo o conteúdo dentro do intervalo do indicador pela string especificada. O indicador em si é automaticamente excluído quando você substitui o texto, então você deve reinseri-lo se precisar manter o indicador para operações futuras.
3. Reinserir o indicador
   Após atribuir o texto, use ActiveDocument.Bookmarks.Add "NomeDoSeuIndicador", bmRange para recriar o indicador sobre o novo texto. Isso preserva o indicador para uso subsequente.

Método 2: Anexar texto ao conteúdo existente do indicador usando Range.InsertAfter

1. Obter o intervalo do indicador
   Defina Dim bmRange As Range: Set bmRange = ActiveDocument.Bookmarks("NomeDoSeuIndicador").Range.
2. Mover o final do intervalo para o final do indicador
   Use bmRange.Collapse Direction:=wdCollapseEnd para recolher o intervalo a um ponto no final do conteúdo do indicador. Isso garante que o novo texto seja anexado após o conteúdo existente, não inserido dentro dele.
3. Inserir o novo texto
   Chame bmRange.InsertAfter "Seu texto anexado". Isso adiciona a string após o ponto recolhido.
4. Reinserir o indicador se necessário
   Como no Método 1, o indicador é removido após a inserção. Recrie-o com ActiveDocument.Bookmarks.Add "NomeDoSeuIndicador", bmRange.

Erros comuns ao usar Selection.TypeText com indicadores

“Selection.TypeText insere texto fora do indicador”

Isso ocorre quando você usa Bookmark.Range.Select e depois Selection.TypeText sem garantir que a seleção permaneça no indicador. A correção é evitar Selection.TypeText completamente e usar Range.Text ou Range.InsertAfter conforme descrito nas etapas acima. Verifique também se o nome do indicador está escrito corretamente e se o indicador existe no momento da execução.

“Indicador desaparece após executar a macro”

Quando você atribui texto a Range.Text, o Word exclui o indicador por design. Esse é um comportamento esperado. Sempre readicione o indicador após modificar o conteúdo do intervalo. Se você precisar manter o indicador em várias inserções, armazene a referência do intervalo antes de modificar o texto e reaplique o indicador usando essa mesma variável de intervalo.

“Texto é inserido, mas o intervalo do indicador se expande incorretamente”

Isso acontece quando o indicador está recolhido (um único ponto de inserção) e você usa Selection.TypeText. O novo texto se torna parte do indicador, mas o intervalo pode se estender além do que você pretendia. Para controlar o intervalo com precisão, sempre trabalhe com um objeto Range que você recolhe ou expande explicitamente usando métodos como Collapse, MoveStart ou MoveEnd antes de inserir texto.

Item	Selection.TypeText	Range.Text / Range.InsertAfter
Confiabilidade	Imprevisível — depende do estado da interface e da posição do cursor	Estável — opera diretamente no intervalo do indicador
Preservação do indicador	Pode excluir ou alterar o indicador sem aviso	Exclui o indicador por design; deve ser readicionado
Facilidade de uso	Simples para inserções únicas, mas propenso a erros	Requer etapa extra para reinserir o indicador
Desempenho	Mais lento devido à interação com a interface e atualizações de tela	Mais rápido — sem necessidade de redesenho da interface
Melhor caso de uso	Simular digitação do usuário em tempo real	Inserção programática de texto em indicadores

Agora você pode inserir texto de forma confiável no intervalo correto do indicador usando o objeto Range em vez de Selection.TypeText. Em seguida, explore o método Range.InsertBefore para prefixar texto ao conteúdo do indicador. Como dica avançada, use Application.ScreenUpdating = False no início da sua macro e defina-o de volta para True no final para acelerar ainda mais as operações de intervalo de indicador e evitar oscilações na tela.