Word.ActiveDocument.Close geht nicht!

[juku]

Hallo,

bin kein VB´ler aber habe eine Aufgabe

und eine scheinbare Lösung mit einem Problem:

Aufgabe:

Ein Formular als Vorlage .dot oder .doc nur soll

für eine Begrenzte Anzahl von Drucken oder

Speicherungen zur Verfügung gestellt werden?.

Wenn das Dokument 50 oder 100 oder 150 mal gedruckt oder gespeichert wurde, ist das Dokument nicht mehr ausführbar.

Die gespeicherten Dokumente sollen geschützt sein.

scheinbare Lösung:

Beim öffnen wird jedesmal die "DruckauftragNr" hochgezählt und die Abfrage das bei einer bestimmten anzahl das Dukoument geschlossen werden soll

geht auch, nur

Word.ActiveDocument.Close

.Close

geht nicht

IDEE??

Word als ganzes zu schließen geht (...Quit) geht aber

Private Sub Document_Open()

Set oVorlage = ActiveDocument.AttachedTemplate.OpenAsDocument

With oVorlage

Flag = False

For Each Var In oVorlage.Variables

If Var.Name = "DruckauftragNr" Then

Flag = True

Exit For

End If

Next

If Flag = True Then

DruckauftragNr = .Variables("DruckauftragNr").Value + 1

.Variables("DruckauftragNr").Value = DruckauftragNr

Else

DruckauftragNr = 1

.Variables.Add Name:="DruckauftragNr", Value:="1"

End If

If DruckauftragNr > 1 Then

Word.ActiveDocument.Saved = True

'MsgBox "Nutzungsdauer abgelaufen!"

Word.ActiveDocument.Close

Else

.Close SaveChanges:=wdSaveChanges

MsgBox "Die Druckauftragsnummer lautet wie folgt: " & CStr(DruckauftragNr), vbOKOnly

End If

End With

End Sub

Weiß einer warum?

MFG

JUKU