Ich verzweifle grad an einer Sache. Beim Öffnen eines Word Dokuments soll das Makro automatisch den Namen einer Anlage in die Fußzeile in eine Tabelle schreiben. Dafür habe ich an der Stelle wo der Text stehen soll eine Textmarke mit dem Namen "Anlagentext" definiert. Beim Öffnen des Word Dokuments öffnet sich eine Userbox mit einer Usereingabe, diese wird dann bestätigt und an die Textmarke erscheint der Text.
Private Sub CommandButton1_Click()
ActiveDocument.Bookmarks("Anlagentext").Range = Anlage
Abfrage.Hide
End Sub
Anlage heißt hierbei die TextBox aus der UserBox.
Mein Problem nun ist, wenn dort ein Text schon steht soll natürlich das Makro nicht jedes Mal erneut aktiviert werden. Also war meine Prüfung, dass wenn das Word geöffnet wird er prüfen soll, ob die Textmarke leer ist oder nicht. Aber egal ob bei der Textmarke was steht oder nicht, er öffnet immer die Userbox. Wo ist mein Fehler?
Sub Document_Open()
If ActiveDocument.Bookmarks("Anlagentext").Range = "" Then
Abfrage.Show
Else
End If
End Sub
Gruß, Tom
|