Sehen Sie sich auf dem Weg zur Lösung gemäß des vorliegenden Beispiels einige Objekte und dazugehörigen Methoden an.

1. Die aktuelle Markierung (das ist ein Objekt) soll der gesamte Text des Dokuments sein
   Selection.WholeStory

2. Die aktuelle Markierung soll soweit reduziert werden, dass am Ende nur noch der Cursor steht.
   Selection.Collapse _
   Direction:=wdCollapseEnd
   
   Die Parameter der Collapse-Methode ist die Richtungsangabe Direction:=wdCollapseEnd
   zum Ende.
   Es gibt auch wdCollapseStart
   zum Dokumentanfang.

3. Man kann auch den Cursor um eine Anzahl von Worten nach links oder rechts bewegen.
   Selection.MoveLeft Unit:=wdWord, _
   Count:=1, Extend:=True
   
   Vom aktuellen Selction-Objekt wird der Cursor mit der MoveLeft-Methode bewegt.
   
   Die Parameter Unit:=wdWord gibt die Einheit an, über die bewegt werden soll. (Es gibt auch wdCharacter für Zeichen, wdSentence für Satz, wdParagraph für Absatz.)
   Count gibt die Anzahl der Einheiten an, z.B Unit:=wdWord, Count:=3 bedeutet: "Bewegen um 3 Worte in die angegebene Richtung".
   
   Extend:=True heißt, dass sich letztlich der Cursor über die angegebenen Einheiten bewegt und dabei so markiert, als hielte man die linke Maustaste bzw. die <Shift>-Taste fest.
   Selection.MoveLeft Unit:=wdWord, _
   Count:=1, Extend:=True markiert ein Wort.

4. Selection.MoveDown Unit:=wdParagraph, _
   Count:=8
   Bewegt den Cursor 8 Absätze in Richtung Dokumentende.

5. Selection.Delete löscht den Inhalt der markierten Auswahl.

6. Selection.InsertAfter Modul1.Mitarbeiter
   fügt den Inhalt der Variable Mitarbeiter nach der aktuellen Auswahl ein.

7. Selection.HomeKey Unit:=wdStory
   Setze den Cursor an den Anfang des Dokuments.

8. ActiveDocument.Close
   schließt das aktive Dokument.

9. Die schlichte Anweisung
   MsgBox _
   ("Sie dürfen mit dem Dokument nicht arbeiten!")
   zeigt diesen Text in einer Meldungsbox an.