Nummerierung

Hallo Leute,

ich habe ein Dokument mit einigen Liedtexten geschrieben - jedes Lied soll natürlich mit der 1. Strophe anfangen. Es kann aber vorkommen das mir Word unter einem neuen Titel mit der Strophe 4 weitermacht obwohl dort eben eine 1 stehen müsste *grrrrrrrrrr*.
Schon hier wäre die Frage: kann man das irgendwie einrichten, das Word nur dort die Nummerierung automatisch weiter fortführt wenn ich es will und nicht umgekehrt?
Ok, ich schrieb ein Makro mit dem er mir diese 4 wieder zu einer 1 werden ließ (dieses „neu beginnen“ im Menü). Problem: Nach einigen Wochen stellte ich fest dass das Programm nicht mehr korrekt funktioniert sondern er mir zwar mit ner 1 beginnt aber ein anderes Nummerierungsformat nimmt. Ok, ich hab manuell in dem Makro geändert dass er eben nicht mehr das 4. Format nehmen soll (vorher) sondern das 7. (jetzt) [wie auch immer es zu dieser Verschiebung kam, ich hab nie etwas an den Nummerierungsformaten geändert]. Nun wäre es aber doch von Vorteil wenn ich sagen könnte, nimm genau das Nummerierungsformat wie bereits eingestellt und fange dort mit der 1 an - egal ob das Format 2 oder 5 oder 7 ist. Kann man das irgendwie machen (es reicht ja ein „simples“ herausfinden aus, welches Format denn nun gerade aktiv ist, kann man ja wieder dann einfügen).

Würde mich auf kreative Antworten freuen.
Tobi@s

hier noch kurz der bisherige Programmcode (die Zeilenbezeichnung dient nur dem besseren Überblick da die Zeilen so lang sind)

(1) Sub Neue_Nummerierung()
(2) ListGalleries(wdNumberGallery).ListTemplates(7).ListLevels(1).StartAt = 1
(3) Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(7), ContinuePreviousList:=False
(4) End Sub

Hallo Tobias,

das ganze erscheint mir eher ein Formatierungsproblem als ein VBA-Problem. Versuche Formatvorlagen zu verweden.

Meiner Meinung nach benötigts du im wesentlichen 2 Formatvorlagen:

  • (Lied)überschrift
  • Liedtext, eigentlich eine Aufzählung (am Zeilenende mit weichen Zeilenschaltungen (Umsch+Return).

Gruss
Nils

Hallo Nils,

das ganze läuft alles über Formatvorlagen

Gruß

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

hallo tobias,

wenn du mir einen teil des dokumentes schicken möchtest schau ich es mir mal an. Eine Fern-Diagnose ist da schwierig.

gruss
nils

Hallo Nils,

das ganze läuft alles über Formatvorlagen

Gruß

Hallo Tobias,

Nach einigen Wochen stellte ich fest dass das Programm nicht
mehr korrekt funktioniert sondern er mir zwar mit ner 1
beginnt aber ein anderes Nummerierungsformat nimmt.

Nun wäre es aber doch von
Vorteil wenn ich sagen könnte, nimm genau das
Nummerierungsformat wie bereits eingestellt und fange dort mit
der 1 an - egal ob das Format 2 oder 5 oder 7 ist. Kann man
das irgendwie machen (es reicht ja ein „simples“ herausfinden
aus, welches Format denn nun gerade aktiv ist, kann man ja
wieder dann einfügen).

zu Nummerierung immer wieder gern gelesen:

http://mypage.bluewin.ch/reprobst/WordFAQ/Nummern.htm

Gruß, Karin
die auch mal geglaubt hat, dass Formatvorlagen bei Nummerierungen helfen.

Hallo Karin,

werd ich mir mal in Ruhe zur Gemüte führen, ist ja doch bissl Text.

Danke aber erst mal
Tobi@s

zu Nummerierung immer wieder gern gelesen:

http://mypage.bluewin.ch/reprobst/WordFAQ/Nummern.htm

Gruß, Karin
die auch mal geglaubt hat, dass Formatvorlagen bei
Nummerierungen helfen.