[rebollón]

A mi me funciona esto:

WordApp.ActiveWindow.Selection.EndKey(FinalDelDocumento, EmptyParam);

Donde finaldeldocumento está definida como OleVariant y al inicio del programa inicializo como:

FinalDelDocumento:= wdStory;