DruckversionLösung
Die Lösung von RechnungDatNr.doc
Für die jeweilig neue Rechnungsnummer wird ein Feld CreateDate mit verändertem Format verwendet.
CreateDate mit Format "dd-MM-yy-HHmm"
Das Feld wurde eingefügt mit "Einfügen" - "Feld...".
Klick auf Feldfunktion erlaubt, das Format zu bearbeiten.
Die Ansicht der Feldfunktionen im Dokument können Sie mit <Alt> + <F9> nachträglich ein- bzw. ausschalten.
Der Code von Rechnung.doc oder RechnungJahrNr.doc
Die VBA-Prozedur heißt ReNr.
Public Pfad As String
Sub ReNr()
Dim Text1 As String
Dim Laenge As Integer
Dim Nummer As Long
If ActiveDocument.Name = "Rechnung.doc" Then
Pfad = ActiveDocument.Path
Text1 = ActiveDocument.Bookmarks("kopf").Range
If Mid(Text1, 15, 8) <> "" Then ' Prüfung, ob noch keine Nummer
Nummer = Mid(Text1, 15, 8) 'Hier wird vorherige Nummer gelesen
End If
Nummer = Nummer + 1
Text1 = Left(Text1, 14) & Nummer
ActiveDocument.Bookmarks("kopf").Range = Text1
Laenge = Len(Text1) 'zur Definition der neuen Bookmarke
With Selection
'Gelöschte Bookmarke wieder definieren
.HomeKey Unit:=wdStory
.MoveDown Unit:=wdLine, Count:=2
.MoveRight Unit:=wdCharacter, Count:=Laenge, Extend:=wdExtend
ActiveDocument.Bookmarks.Add Range:=.Range, Name:="kopf"
.MoveLeft Unit:=wdCharacter, Count:=1
End With
End If
End Sub Die Erhöhung der Rechnungsnummer erfolgt nur, wenn die Originaldatei Rechnung.doc geöffnet wurde.
If ActiveDocument.Name = "Rechnung.doc" Then.
Der Zugriff zur Rechnungsüberschrift mit der veränderlichen Rechnungsnummer erfolgt über die Bookmarke "kopf":
Text1 = ActiveDocument.Bookmarks("kopf").Range.
Die Variable Text1 nimmt den gesamten Text der Überschrift auf.
