zählt Word wie oft eine Vorlage aufgerufen wurde?

gibt es eine Feldfunktion die Zahl der Öffnungen einer Vorlage im aktuellen Dokument ausgibt?

Ola und nein,

nach meiner Kenntnis nicht ...

gibt's vielleicht einen Zähler, wie oft ein Dokumnet geöffnet bzw. überarbeitt wurde?

Ola,

alles, was verfügbar ist, das steht unter Datei -> Eigenschaften im Register Statistik

Du kannst Dir aber helfen, wenn du eine Dokumentvariable anlegst und bei jedem öffnen per makro hochzählst ...

das hört sich ja gut an, wie müßte die Dokvariable heißen, wie das Makro?

Ola,

konsultiere bitte mal die Hilfe von Word, ich bin etwas knapp mit der zeit Zitat:

Feldfunktionen: DocVariable-Feld
{ DOCVARIABLE Name }

Fügt die Zeichenfolge ein, die einer Dokumentvariablen zugewiesen ist. Jedes Dokument verfügt über eine Reihe von Variablen, die mithilfe der Programmiersprache Microsoft Visual Basic für Applikationen hinzugefügt werden können bzw. auf die Bezug genommen werden kann. Mithilfe dieses Feldes kann der Inhalt der Dokumentvariablen im Dokument angezeigt werden.

Name
Der Name der Dokumentvariablen

Anmerkung Weitere Informationen zu Dokumentvariablen erhalten Sie, indem Sie in der Hilfe zu Visual Basic für Applikationen nach der Eigenschaft Variablen suchen. Ist die Hilfe nicht installiert, führen Sie Setup aus, um sie zu installieren.

hab's rausgefunden. Sieht so aus:
Sub rechnung()
Dim oDoc As Document, oV As Template
Set oDoc = ActiveDocument
Set oV = oDoc.AttachedTemplate
Projekt = oV.VBProject.Name
aSec = aSec & Left(oV.Name, InStr(oV.Name, .) - 1)
Num = GetSetting(AppName:=Projekt, Section:=aSec, _
Key:=Laufnummer, Default:=0)
Num = Val(Num) + 1
SaveSetting AppName:=Projekt, Section:=aSec, _
Key:=Laufnummer, Setting:=Num
On Error Resume Next
oDoc.CustomDocumentProperties.Add Name:=Laufnummer, _
LinkToContent:=False, Value:=Num, Type:=msoPropertyTypeString
On Error GoTo 0
For Each Teil In oDoc.StoryRanges
Teil.Fields.Update
While Not (Teil.NextStoryRange Is Nothing)
Set Teil = Teil.NextStoryRange
Teil.Fields.Update
Wend
Next
With Dialogs(wdDialogFileSummaryInfo)
.Title = Präfix & Num
.Execute
End With
oDoc.Windows(1).Caption = Präfix & Num
End Sub

Klasse!