Fortlaufende Rechnungsnummer in Word Vorlage erstellen

Vielen Lieben Dank für die super Antwort. Die Hochkommas waren bei dem ersten starten vorhanden und ich hätte diese nie als Fehrlerquelle gesehen. Wieder etwas gelernt. Vielen Dank
<br />

Hallo,
<br />du hast eine Vorlage für Rechnungen erstellt und beispielsweise als "MeineRechnungen.dotm" im Vorlagen-Ordner abgespeichert?
<br />

• In dieser Vorlage befindet sich dort, wo später die Rechnungsnummer eingefügt werden soll, eine Textmarke namens "Order".
  <br />
• In dieser Vorlage ist das folgende (auf deinen Bedarf angepasste) Makro gespeichert:
  <br />

[b]Sub Autonew() [/b][b]Order = System.PrivateProfileString("D:\Settings.txt", _ [/b][b] "MacroSettings", "Order") [/b][b] If Order = "" Then [/b][b] Order = 1 [/b][b] Else [/b][b] Order = Order + 1 [/b][b] End If [/b][b]System.PrivateProfileString("D:\Settings.txt", "MacroSettings", _ [/b][b] "Order") = Order [/b][b]ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "00#") [/b][b]ActiveDocument.SaveAs FileName:="D:\Rechnungen2021\" & "Re_2021_" & Format(Order, "00#")[/b] [b]End Sub [/b]

Du hast außerdem auf Laufwerk D eine Textdatei namens Settings.txt erstellt. Diese enthält folgenden Text:
<br />

[b][MacroSettings] [/b][b]Order=0 [/b]

1. Du erstellst die erste Rechnung über "Datei | Neu | Benutzerdefiniert | MeineRechnungen". Es wird ein neues Dokument erstellt.
<br />Word findet in der Settings.txt die "0" (Null), addiert "1" hinzu, speichert das Dokument im Pfad D:\Rechnungen2021\ als Re_2021_001.docx und trägt im Dokument bei Textmarke Order die Rechnungsnummer 001 ein.
<br />2. Du erstellst die zweite Rechnung über "Datei | Neu | Benutzerdefiniert | MeineRechnungen". Es wird ein neues Dokument erstellt.
<br />Word findet in der Settings.txt die "1", addiert "1" hinzu, speichert das Dokument im Pfad D:\Rechnungen2021\ als Re_2021_002.docx und trägt im Dokument bei Textmarke Order die Rechnungsnummer 002 ein.
<br />3. ...
<br />(Schon mal was von Netiquette gehört?)
<br />Viele Grüße
<br />Lisa
<br />

Hallo Andreas,
<br />in deinem Makro sind die ersten Zeilen als Kommentar gekennzeichnet (beginnend mit Hochkomma, grün formatiert) und werden somit nicht ausgeführt:
<br />


<br />Viele Grüße
<br />Lisa
<br />

Hallo Andreas,
<br />die Vorlage muss auch als solche gespeichert sein, im vorliegenden Fall mit der Dateinamenserweiterung dotm, weil sie andernfalls (mit der Endung dotx) keine Makros speichern könnte.
<br />Das Makro muss AutoNew heißen, damit es beim Neu-Erstellen eines Dokuments automatisch ausgeführt wird.
<br />Wenn du die Vorlage im Datei-Explorer von Windows doppelt anklickst, wird standardmäßig ein neues Dokument erstellt - basierend auf der angeklickten Vorlage.
<br />Alternativ kann man die Vorlage mit der rechten Maustaste anklicken und im Kontextmenü den Befehl "Neu" wählen:
<br />


<br />Das Makro wird ausgeführt: die Rechnungsnummer eingefügt, das Dokument gespeichert. Nimmt man danach Änderungen im Dokument vor, muss man diese natürlich selbst noch einmal speichern.
<br />Für die nächste Rechnung muss darf weder die alte Rechnung noch die Vorlage geöffnet werden. Man muss eine neue Rechnung erstellen: wieder per Doppelklick auf die Vorlage im Datei-Explorer von Windows oder - aus Word heraus - über "Datei | Neu" und dort die Vorlage auswählen.
<br />Falls es gar nicht klappt, kannst du mir deine Vorlage mal zusenden.
<br />Viele Grüße
<br />Lisa
<br />

Hallo Lisa,
<br />bitte entschuldige wenn meine Netiquette nicht deinen Anforderungen entspricht. Ich bin neu hier und gerne bereit neue Sachen zu lernen (auch die Netiquette).
<br />Nachdem ich in Word unter Forlagen meine Rechnungsvorlage mit einem doppelklick geöffnet habe, erscheint bei der Textmarke die Nr 001 und der Vorlagenname wird schon in RE 001 umgewandelt.
<br />Bis hierhin alle super - danach bearbeite ich die Vorlage und fülle diese mit Daten und speicher alles, danach beende ich Word.
<br />Beim erneuten öffnen von Word, wähle ich wieder unter Vorlagen meine Vorlage aus ABER der Zähler (also die Textmarke) steht wieder auf 001. Das Dokument wird auch wieder ind RE 001 benannt...
<br />In der Settings.txt steht: [MacroSettings] Order=1
<br />Was mache ich falsch?
<br />Viele Grüße
<br />Andreas
<br />