Window.Selection (Word)

Returns the Selection object that represents a selected range or the insertion point.

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