Knifflig / fortlaufende Nummer vergeben
Bjoern Grigo
Ich hab da mal ne Frage.
Ich würde gern meine Dokumente mit einer fortlaufenden Nummer
versehen.
Bis jetzt ist meine Vorlage nur mit einer Adressdatentabelle verknüpft
um mir Arbeit zu sparen.
Die Zahl sollte um eine Nummer erhöht werden wenn ich ein Dokument
erstelle.
Kann Word sowas leisten? Eventuell unter Einbindung einer kleinen Exel
Tabelle?
Idealerweise würde noch eine weitere Datei erstellt, in der ich die
fortlaufenden Nummern mit einem Kommentar versehen könnte.
Habt Ihr Ideen für Lösungsansätze?
Nutze Office 97.
TIA Björn
to get public key:
mailto:bjoern...@gmx.de?subject=get%20public%20key
Thomas Löwe [MVP Word]
> Ich würde gern meine Dokumente mit einer fortlaufenden
> Nummer versehen.
Bärbel Strauß hat hierzu am 12. Oktober 1999 eine Lösung bereitgestellt.
Nachfolgend füge ich diesen Beitrag bei:
--Beginn
Rechnungsnummern kannst du nur über ein Makro und eine ini-Datei in ein
Worddokument einlesen.
1. In Dokumentvorlage für Rechnung ein Feld { RgNr } einfügen.
2. Makro für diese Dokumentvorlage erstellen:
Sub autonew()
vorlagenPfad = Options.DefaultFilePath(wdUserTemplatesPath)
' Rechnungsnummer holen, erhöhen und sichern
RgNum = System.PrivateProfileString((vorlagenPfad &
"\rechnung.ini"), _
"Rechnung", "RgNr")
num = Val(RgNum) + 1
System.PrivateProfileString((vorlagenPfad & "\rechnung.ini"), _
"Rechnung", "RgNr") = num
' Rechnungsnummer in das Dokument schreiben
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:=
_
"BESTIMMEN RgNr " & Chr(34) & num & Chr(34)
ActiveDocument.Fields.Update
End Sub
3. Rechnung.ini in Standardverzeichnis für Dokumentvorlagen mit folgendem
Inhalt erstellen.
[Rechnung]
RgNr=16
--Ende
Bei weiteren Fragen stehen wir dir jederzeit gern zur Verfügung.
--
Schöne Grüße Thomas Löwe [Microsoft MVP Word]
Bitte alle Supportanfragen in die Newsgroup stellen.
Microsoft KB: englisch: http://support.microsoft.com/support/search/
Microsoft KB: deutsch : http://search.microsoft.com/germany/supportkb
Bjoern Grigo
<suppor...@young-world.com> wrote:
>1. In Dokumentvorlage für Rechnung ein Feld { RgNr } einfügen.
>2. Makro für diese Dokumentvorlage erstellen:
>3. Rechnung.ini in Standardverzeichnis für Dokumentvorlagen mit folgendem
>Inhalt erstellen.
Hallo,
Ich muß gestehen, das ist ´ne Nummer zu groß für mich.
Ich befaß mich das erste mal mit Makros.
Zu eins:
Wenn ich versuche ein Feld einzufügen sehen die immer so aus.
<<RgNr>> Das ist doch nur eine Verknüfung zu einer Datentabelle oder?
Zu zwei:
Ich hab versucht das Makro aus Deinem Posting. im Vis.Basic Editor
einzufügen, hat aber aufgrund der Zeilenumbrüche im Posting nur Mist
ergeben.
Zu drei:
Rechnung.ini erstellt im Standard dot Verzeichnis und 2 Zeilen
[Rechnung]
RgNr=16
eingefügt.
*Kopfkratz* Und ich dachte ich kenn´ mich langsam in Word aus. :-)
Gibt es vielleich ´ne Möglichkeit eine bestehende Lösung zu
importieren (und notfalls abzuändern/anzupassen)?
Ich setz mich aber auch nochmal selbst damit auseinander wenn Du noch
ein paar Tips für mich hast.
Gerald Kollmann
> 1. In Dokumentvorlage für Rechnung ein Feld { RgNr } einfügen.
Warum eigentlich der Umweg über ein Feld (der übrigens in der
angeführten Form gar nicht funktioniert)?
> 2. Makro für diese Dokumentvorlage erstellen:
>
> Sub autonew()
[...]
> ' Rechnungsnummer in das Dokument schreiben
> Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
> Text:="BESTIMMEN RgNr " & Chr(34) & num & Chr(34)
> ActiveDocument.Fields.Update
>
> End Sub
Einfacher ist es, im Dokument an der gewünschten Stelle eine
Textmarke "RgNr" zu definieren, und dann im Makro darauf verweisen
und "num" an der Textmarke einfügen...:
Vorschlag:
' Rechnungsnummer in das Dokument schreiben
Selection.GoTo What:=wdGoToBookmark, Name:="RgNr"
Selection.TypeText Text:=Num
Hat den Vorteil, dass es garantiert funktioniert... :-))
Ciao
Gerald
«
--
. Gerald Kollmann, A-9581 Ledenitzen, Austria
. Homepage: http://www.kollmann.org
. eMail: ger...@kollmann.org