Range.End (Word)

Retorna ou define a posição do caractere final de um intervalo. Long de leitura/gravação.

Todos os objetos Range têm uma posição inicial e uma final. A posição final é o ponto mais afastado do início da história. Se essa propriedade for definida para um valor menor do que a propriedade Start , a propriedade Start será definida com o mesmo valor (ou seja, a propriedade Start e end é igual). Essa propriedade retorna a posição de caractere final em relação ao início da história. O texto do documento principal (wdMainTextStory) começa com a posição de caractere 0 (zero). Você pode alterar o tamanho de uma seleção, intervalo ou indicador definindo essa propriedade.

Set myRange = ActiveDocument.Paragraphs(1).Range 
myRange.End = myRange.End - 1