Range.End (Word)

Devuelve o establece la posición del carácter final de un intervalo.

Todos los objetos Range tienen una posición inicial y una final. Esta propiedad devuelve la posición del carácter final con respecto al principio del artículo.

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