Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ActiveDocument.Close geht nicht!
Autor: juku
Datum: 12.10.07 00:23
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() Dim oVorlage Dim Flag 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") + 1 DruckauftragNr = .Variables("DruckauftragNr").Value + 1 .Variables("DruckauftragNr").Value = DruckauftragNr Else DruckauftragNr = 1 .Variables.Add Name:="DruckauftragNr", Value:="1" End If If DruckauftragNr > 40 Then Word.ActiveDocument.Saved = True MsgBox "Nutzungsdauer abgelaufen!" Word.ActiveDocument.Close Else Word.ActiveDocument.Close SaveChanges:=wdSaveChanges MsgBox "Die Druckauftragsnummer lautet wie folgt: " & CStr(DruckauftragNr), vbOKOnly End If End With End Sub Habe festgestellt, das die Normal.dot sich auch öffnet und die wohl das ActiveDocument ist Weiß einer warum? MFG JUKU

ActiveDocument.Close geht nicht!	1.303	juku	12.10.07 00:23
Re: ActiveDocument.Close geht nicht!	707	effeff	16.10.07 19:54

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen