Document.Activate (Word)

Ativa o documento especificado para que se torne o documento ativo.

Sub OpenSales() 
 'Sales.doc must exist and be open but not active. 
 Documents("Sales.doc").Activate 
End Sub