Window.Selection (Word)

Devuelve el objeto Selection que representa un intervalo seleccionado o el punto de inserción.

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