Document ID: /fineweb-2-swissfilter-quality_10-filterrobots/filtered/03166.jsonl.gz/1585

VBA-Skript für Fußnoten-Defizit-Workaround
Moin zusammen,
es geht um das altbekannte Problem fehlender Anpassungsmöglichkeiten bei Word-Fußnoten (in dem Falle zweispaltige Fußnoten unter einspaltigem Text). Bis da jemand eine professionelle Lösung findet, möchte ich eine Zwischenlösung finden:
Das Dokument hat ca.3200 Fußnoten, die ich mit VBA in {X fussnotentext} an den Stellen im Text stehen habe, wo dann der Referenztext steht. Im Text stehen auch noch ca. 800 Randnoten, die ich mit "{Y randnotentext} gekennzeichnet habe.
Also z.B (nur zur Veranschaulichung, da das Werk fremdsprachig ist:
"...da sagte Ali-Baba {X Ali-Baba war ein Räuber}
zu dem Fürsten Gargamel {Y s.Seite 46}
..."
{X...} => Textfeld1
{Y...} => Textfeld2
Das Umwandeln in Fußnoten per Skript ist kein Problem, aber jetzt zu dem Fußnotenproblem: Bei der Masse von Fußnoten MUSS ich diese mehrspaltig bzw. als Fließtext aufbauen (die Fußnoten bestehen aus max. 5 Wörtern).
Letztendlich ist es so geplant, dass ich per Skript realisieren will, dass
- JE SEITE zwei Textboxen angelegt werden:
TextFeld1 enthält die Inhalte von {X ...} und steht am Seitenende
TextFeld2 enthält die Inhalte von {Y ...} und steht am Rand
- In der For-Next-Schleife, in der ich die Zeichen in Fußnoten umandle, soll jetzt jede Fußnote in das jeweilige Textfeld geschrieben werden, wobei das Positionieren/Verankern zweitrangig ist.
Zusammenfassend soll das Ziel sein, jeweils am Seitendende ein weiß gefüllte Textbox verankert zu haben, die nur
<Fußnoten-Nummer><Fußnotentext> enthält und die "eigentlichen Fußnoten" (dann weiß und in Schriftgröße4) überlagert. Dann könnte man die Inhalte frei editieren oder per Skript weiterverarbeiten, auch wenn die Fußnoten dann nicht mehr dynamisch sind (und das Skript bei jeder Änderung vorsichtshalber neu ausgeführt werden muss)...
Das Skript:
Ich hoffe, ich konnte mich wenigstens halbwegs verständlich ausdrücken...
Bin dankbar für jede Hilfe!
Viele Grüße,
Oliver