Encontrar uma corda em um documento e apagar tudo depois

Question

Eu quero encontrar uma string em um documento do Word e tudo apagar-se depois.

O que é a melhor maneira de fazer isso sem usar o objeto Selection?

Answer 1

Use um objeto Range vez. Straight Outta a ajuda Word 2003:

Se você chegou ao objeto Find do objeto Range, a seleção não é alterado quando a correspondência de texto encontrar critérios for encontrado, mas o Gama objeto é redefinido. Os seguintes exemplo localiza a primeira ocorrência da palavra "azul" na ativa documento. Se "azul" é encontrado no documento, myRange é redefinido

Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="blue", _
    Forward:=True
If myRange.Find.Found = True Then 

Agora, use o método SetRange desse objeto Range para tornar o início do intervalo de ser o próximo caractere após o fim da corda que você procurou e fazer o final do intervalo ser o fim do documento:

myRange.SetRange (myRange.End + 1), ActiveDocument.Content.End

(TODO: Você vai precisar para lidar com o caso quando a cadeia é a última coisa no documento)

Para excluir o conteúdo:

myRange.Delete