Window.Selection (Word)

Retorna o objeto Selection que representa um intervalo selecionado ou o ponto de inserção. Somente leitura.

If Windows.Count >= 2 Then 
 Windows(1).Selection.Copy 
 Windows(1).Next.Activate 
 Selection.Paste 
End If