Supportnet / Forum / Textverarbeitung

Hallo ! danke Lisa nochmal für die Empfehlung; ich habe nun das Makro eingebaut, aber es funktioniert nicht: Das öffnen von Datei neu ~Auswahl~ RGVORLAGE.dot klappt einwandfrei; das Hochzählen beim speichern unter z.B. RGVORLAGE0014.doc klappt auch; doch der Zähler in der Rechnung selbst bleibt immer auf 0001; ich habe den Zähler so eingefügt: einfügen, Feld, Dokument Information, DokEigenschaft, ~Optionen~ Laufnummer, hinzufügen, OK, OK Scheinbar war das nicht richtig ??? An dem Platz steht immer: 0001 ! Das Dokument selbst wird aber richtig mit gezählt, oben in der blauen Titelleiste steht richtigerweise z.B. RGVORLAGE0014.doc Die Ini-Datei wie im Musterbeispiel in C:\settings.txt beinhaltet hier auch korrekt: [RGVORLAGE] Laufnummer=0014 Warum kommt in meinem Rechnungsfeld immer wieder die 0001, bzw. wie kann ich dem Feld in der Rechnung diese Nummer richtig zuweisen ? mfg michi P.S. hier der verwendete VBA-code http://mypage.bluewin.ch/reprobst/WordFAQ/Kollerat.htm#Kollerat6 Private Const Präfix = "Rechnung" Private Const INIDatei = "c:\settings.txt" Sub AutoNew() Dim oDoc As Document, oV As Template Set oDoc = ActiveDocument Set oV = oDoc.AttachedTemplate aSec = aSec & Left(oV.Name, InStr(oV.Name, ".") - 1) Num = System.PrivateProfileString(INIDatei, aSec, "Laufnummer") Num = Val(Num) + 1 System.PrivateProfileString(INIDatei, aSec, "Laufnummer") = 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 --- Von Lisa2004 schau mal hier Creating sequentially numbered documents (such as invoices) http://word.mvps.org/FAQs/MacrosVBA/NumberDocs.htm oder hier Frage 2. Wie kann ich einem Word-Dokument oder in einem Word-Dokument eine fortlaufende Nummer vergeben? http://mypage.bluewin.ch/reprobst/WordFAQ/Kollerat.htm --- von Michi0815 Suche ein Makro das für Word 2000 und 97 geht, es soll Rechnungen automatisch nummerieren wenn man ein .dot öffnet ! Habe zwar schon ein Makro ~Automatische Nummerierung mit WinWord 97~ gefunden und probiert, aber es zeigt nur Syntaxfehler. (von Herrn Krainsky, http://home.t-online.de/home/0593116681-0001/word039.htm ) Kennt sich da jemand aus ? Kann jemand diesen Fehler identifizieren, und ausmerzen ? Oder weiß jemand eine andere Internetadresse wo man ein automatisches Nummerierungs-Makro bekommen kann ? gruss michi