Roger Werner schrieb:
Hallo,
ich würde meinen Textdokumenten (Briefen) gerne eine eindeutige
Kennnummer geben die automatisch angelegt wird und dann ganz unten am
Rand eingefügt wird. wie kann ich das Bewerkstelligen?
Ich stelle mir vor, wann immer ich meine Formatvorlage für ein neues
Dokument benutze, diese Kennnummer erzeugt und eingetragen wird, aber
kann man das automatisch erstellen? Wenn ja, wie?
Liebe Grüße,
Roger
Das würde ich mit einem kleinen Macro lösen. Diese wird in der
Formatvorlage verankert. Immer wenn ein neues Dokument erzeugt wird,
wird der Zähler erhöht.
Zum einfügen (ich habe das gerade mal kurz getestet) würde ich die
Dokument-Info Felder nehmen.
---------------- hier mal ein Codeschnippsel ---------------------------
REM Dieses kleine Macro erzeugt eine Textdatei. In dieser wird ein
Zahlenwert gespeichert. Ein Counter.
REM Sollte die Datei vorhanden sein, dann wird der Counter um 1 erhöht.
REM
REM Die zweite Routine schreibt diesen Counter Wert in ein Text-Dokument
Feld (das Info4 Feld)
REM
REM Dieses Feld sollte dann im Dokument erscheinen.
REM
Sub Main
REM Filename und Pfad. Bitte Anpassen!!
const counterfile = "C:\demo\counter.txt"
dim filenumber REM ZugriffsVariable für
File-Funktionen
dim counter as integer REM Unser Ganzzahlcounter
dim counters as string REM Hilfsstring zum
Auslesen und Schreiben des Counters
filenumber = freefile REM Nächster Open Kanal
wird ermittelt
counter = 1 REM Counter Initialisieren
if not fileexists(Counterfile) then REM Ist die Counterdatei
schon da? Nein, dann Counter schreiben
Open counterfile For Output As #filenumber
Seek #filenumber, 1
Print #filenumber, counter
Close #filenumber
else REM sonst Counter lesen
Open counterfile For Input As #filenumber
Line Input #filenumber, counterS
Close #filenumber
counter = CInt(counters) REM CounterS in Integer
umwandeln und um 1 erhöhen
counter = counter +1
Open counterfile For Output As #filenumber
Seek #filenumber, 1 REM Counter wieder in die
Datei schreiben
Print #filenumber, counter
Close #filenumber
end if
setcounterfield (Str(Counter)) REM Counter in eine
Dokumentvariable schreiben
End Sub
---------------------------------
Bei Intresse sende ich ne Dokumentvorlage!
Einfach ne email an mich schreiben
mfg
Volker
---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org
