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
