Hallo Phero,
wenn ich das richtig verstehe, möchtest Du, dass die Nummern trotzdem
fortlaufend sind, jedoch nicht mehr automatisch. Möglichst in Optionen
- Ansicht die Schattierung der Feldfunktionen einschalten. Du könntest
etwa so vorgehen:
1. Zuerst alle Endnoten markieren, mit Strg x in die Zwischenablage.
Mit der Eingabemarke an das Ende des normalen Textes gehen, also vor
den Endnotenstrich, und mit Strg v die ganzen Endnotentexte einfügen.
2. Eine neue Formatvorlage erstellen: Format - Formatvorlage - rechte
Maustaste - Neue Formatvorlage. Name sollte sein "PseudoEndnote", im
Listenfeld Formatvorlagentyp muss "Zeichen" ausgewählt sein. Bei
"Formatvorlage basiert auf" sollte "Endnotenzeichen" ausgewählt
werden. Das ist die Basis zur Ersetzung. Diese Formatvorlage sollte
jetzt optisch genauso aussehen wie deine Fußnotenziffer, gleiche
Schrift. Falls noch was abweicht, entsprechend anpassen.
3. Nun in den normalen Text gehen und mit Strg F9 ein Feld erzeugen.
Dazwischen den Code schreiben, es muss dann so aussehen:
{ seq Fn }
4. Mit Shift F9 in den Ergebnismodus umschalten. Mit F9 das Feld
aktualisieren. Es sollte eine 1 dastehen. Das Feld markieren und die
Formatvorlage PseudoEndnote zuweisen. Kontrollieren, ob die Optik
passt.
5. Diese 1 markieren und mit Strg x in die Zwischenablage nehmen.
6. Jetzt geht es los mit dem Ersetzen. Suchen/Ersetzen aufrufen.
Zunächst den Button "Erweitern" drücken und den Button "Keine
Formatierung". Dann den Cursor ins Feld Suchen und unter Format -
Formatvorlage die Formatvorlage Endnotenziffer auswählen.
Den Cursor ins Feld Ersetzen und dort eingeben: ^c. Das Controlzeichen
wird durch die Taste links neben der 1 erzeugt, danach Leertaste und
dann "c". Es muss so aussehen: ^c. Weiter noch unten unter Format -
Formatvorlage die Formatvorlage PseudoEndnote auswählen.
7. Nun den Ersetzungsvorgang durchlaufen lassen. Es werden alle
Fußnotenziffern durch ein Feld ersetzt. Nicht erschrecken, sie haben
alle nur Nr. 1. Die ursprünglichen Endnoten unter dem Strich sind
jetzt verschwunden.
8. Nun mit Strg a das ganze Dokument markieren und mit F9 die Seq-
Felder aktualisieren. Jetzt sollten sie richtig durchnummeriert sein.
9. Nun die erste Ziffer der Endnotentexte aufsuchen. Mit Shift F9 in
die Feldansicht schalten und den Feldcode ergänzen. Es muss dann so
aussehen:
{ seq Fn \r1 }
Mit Shift 9 wieder in die Ergebnisansicht schalten. Da sollte jetzt
wieder eine 1 stehen.
10. Nun wieder mit Strg a das ganze Dokument markieren und mit F9
aktualisieren. Jetzt sollte die Nummerierung zweimal komplett sein,
einmal vorne im Text von 1 bis x und einmal bei den Endnoten von 1 bis
x.
Bis jetzt ist Verknüpfung gelöst, jedoch die Nummerierung noch
automatisch. Wenn die Automatik auch noch aufgehoben werden soll:
11. Das ganze Dokument mit Strg a wieder markieren und mit Strg 6 die
Felder durch ihr Ergebnis ersetzen lassen. Falls Du die
Feldschattierung eingeschaltet hast, sind jetzt auch keine
schattierten Ziffern mehr zu sehen. Die Endnoten wurden zu ganz
normalem Text.
Bei Bedarf nun noch die Schriftgröße der Endnoten anpassen. Dazu
reicht es ja, die Formatvorlage Endnotentext in der Größe zu ändern.
So, das war jetzt doch eine etwas längliche Beschreibung. Am besten
ausdrucken und in einer Kopie der Datei probieren und nochmal
nachfragen, wenn einzelne Schritte unklar sind.
Gruß
Lisa
_____
http://www.schreibbuero-richter.de/vba.html