Window.Selection (Word)

Gibt das Selection -Objekt zurück, das einen markierten Bereich oder die Einfügemarke darstellt.

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