Selection.Flags (Word)

Devuelve o establece las propiedades de la selección. Posibles valores de retorno son wdSelActive - La selección es la selección activa, wdSelAtEOL - La selección se encuentra al final de la carta, wdSelOvertype - La selección se ha sobrescrito, wdSelReplace - La selección se ha reemplazado, wdSelStartActive - La selección se encuentra al principio del documento activo.

ActiveDocument.Words(1).Select 
MsgBox Selection.StartIsActive 
Selection.Flags = wdSelStartActive 
MsgBox Selection.StartIsActive