Das eingegeben Kennwort wird geprüft. Wenn es als richtig erkannt wird, soll a) der Benutzername übernommen und b) an das Ende des Dokuments in die Grußzeile eingefügt werden.

Ergänzen Sie im Modul Modul1 Ihres Dokuments die Prozedur bearbeiten zu:

Sub bearbeiten ()

If Modul1.Kennwort = "password" Then

'bei ok

'Markiere den gesamten Text

Selection.WholeStory

'Reduziere die Markierung ans Ende der Markierung

Selection.Collapse Direction:=wdCollapseEnd

'Markiere von dort das letzte Word

Selection.MoveLeft Unit:=wdWord, Count:=1, _
Extend:=True

'Lösche das Markierte

Selection.Delete

'Füge danach den Mitarbeiternamen ein

Selection.InsertAfter Modul1.Mitarbeiter

'Setze den Cursor an den Anfang des Dokuments

Selection.HomeKey Unit:=wdStory

'Setzte den Cursor 8 Absätze weiter nach unten

'so dass der Cursor vor dem 9.Absatz steht

'und die Anrede eingegeben werden kann

Selection.MoveDown Unit:=wdParagraph, Count:=8

Else

MsgBox "Sie dürfen mit dem Dokument nicht arbeiten!"

ActiveDocument.Close

End If

End Sub