VBA-Skript für Fußnoten-Defizit-Workaround

[Gast] Foren Programme Office Microsoft Office VBA-Skript für Fußnoten-Defizit-Workaround

Office - Alles fürs Büro

Themen

Beiträge

Moderatoren

Letzter Beitrag

Microsoft Office

1624

6235

29. Feb 2024, 08:40

mudelinchen

attisoft

Beiträge gesamt: 4

3. Sep 2013, 12:01
Beitrag # 1 von 4
Bewertung:
(3522 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

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:

Code

Sub TestFussnotenErzeugen() 
 
'***Findet den geklamerten Text*** 
Selection.HomeKey Unit:=wdStory 
Selection.Find.ClearFormatting 
With Selection.Find 
.Text = "{X"   'als Beispiel die Schleife für die Fußnoten 
.Replacement.Text = "" 
.Forward = True 
.Wrap = wdFindContinue 
.Format = False 
.MatchCase = False 
.MatchWholeWord = False 
.MatchWildcards = False 
.MatchSoundsLike = False 
.MatchAllWordForms = False 
End With 
Selection.Find.Execute 
Selection.Extend 
Selection.Extend Character:="}" 
Selection.Cut 
'***Fügt den zwischengespeicherten Text als Fußnote ein*** 
With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:=ActiveDocument.Content.End) 
With .FootnoteOptions 
.Location = wdBottomOfPage 
.NumberingRule = wdRestartContinuous 
.StartingNumber = 1 
.NumberStyle = wdNoteNumberStyleArabic 
End With 
.Footnotes.Add Range:=Selection.Range, Reference:="" 
End With 
Selection.PasteAndFormat (wdPasteDefault) 
'***Wiederholt die ersten beiden Schritte, bis keine Klammern mehr gefunden werden*** 
On Error GoTo Ende 
Call TestFussnotenErzeugen 
Ende: 
End Sub

Ich hoffe, ich konnte mich wenigstens halbwegs verständlich ausdrücken...

Bin dankbar für jede Hilfe!

Viele Grüße,
Oliver

VBA-Skript für Fußnoten-Defizit-Workaround

Hallenstein

Beiträge gesamt: 142

5. Sep 2013, 13:01
Beitrag # 2 von 4
Beitrag ID: #516966
Bewertung:
(3429 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Hallo Oliver,

ich habe keine fertige Lösung, aber ich hätte vielleicht ein paar Ideen einzubringen, eventuell hilft es dir ja weiter:

#Randnoten
Wäre es nicht besser, diese einfach nur mit einem anderen Absatzformat zu versehen, welches einen Positionsrahmen enthält? Dann entfällt an der Stelle das Anlegen des Textrahmens. Außerdem steht die Randnote direkt an der Stelle wo auch der Verweis ist. Mir ist nämlich noch unklar, wie das funktionieren soll, wenn es nur ein Textrahmen für die Marginalspalte ist. Hab ich da deine Lösung übersehen?

#Fußnoten
Bringt es dir eine Erleichterung/Vereinfachung, wenn das Textfeld schon auf der Seite definiert ist? Sprich, wenn es schon in der Fußzeile des Dokuments steht?

Ich gebe zu, ich hatte keine Zeit bisher deinen Code auszuprobieren. Ist bisher nur eine Idee, auf das gelesene.

Schöne Grüße,
Hallenstein.

als Antwort auf: [#516907]

VBA-Skript für Fußnoten-Defizit-Workaround

attisoft

Beiträge gesamt: 4

5. Sep 2013, 13:42
Beitrag # 3 von 4
Beitrag ID: #516967
Bewertung:
(3418 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Moin Hallenstein,

es wäre sicher ein geringes Problem, je Seite eine Textbox zu erstellen, in die dann geschrieben werden könnte (die Seitenränder sind entsprechend gesetzt, dass immer der gleiche Freiraum dafür besteht).

Problem ist für mich, den numerischen Fußnotenzähler je Seite mit dem Fußnotentext in das jeweilige Textfeld zu schreiben.

Wenn es also als Step1 eine Lösung gibt, dass ich auf den 800 Seiten jeweils zwei Textfelder setze und verankere, die dann über VBA mit den entsprechenden Inhalten je Seite gefüllt werden, immer her damit, das wäre schonmal eine deutliche Vereinfachung. Alles weitere könnte man ja in einem darauf aufbauenden Skript realisieren.

Ich habe zwei Textfelder genommen, da ich kein Spaltenlayout (ungerade/gerade Seite) unterscheiden konnte und manche Seiten z.B. 20 Fußnoten und 8 Randnoten haben. So müsste ich die Randnoten-Textfelder nur bündig mit der ersten Zeile verankern und hätte eine Lösung analog zu einer "schmalen Spalte, immer an der Außenseite des Buches".

Das Skript war auch in erster Linie dazu da, die verwendbaren Daten darzustellen, es kann auch ein autarkes Skript sein, das im Nachgang ausgeführt wird...

Vielen Dank schon mal, Oliver Attendorn

als Antwort auf: [#516966]

VBA-Skript für Fußnoten-Defizit-Workaround

attisoft

Beiträge gesamt: 4

25. Sep 2013, 11:09
Beitrag # 4 von 4
Beitrag ID: #517743
Bewertung:
(3305 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Liebes Forum,

kennt niemand eine Lösung, wie per Skript ein Textfeld adressiert und Fußnotenwert/-text hineingeschrieben wird? Ich bekomme das leider nicht hin...

Die Textfelder würde ich notfalls manuell setzen/verankern...

Nochmal das Skript Stand heute:

Code

Sub TestFussnotenErzeugen()  
  
'***Findet den geklamerten Text***  
Selection.HomeKey Unit:=wdStory  
Selection.Find.ClearFormatting  
With Selection.Find  
.Text = "{X"   'als Beispiel die Schleife für die Fußnoten  
.Replacement.Text = ""  
.Forward = True  
.Wrap = wdFindContinue  
.Format = False  
.MatchCase = False  
.MatchWholeWord = False  
.MatchWildcards = False  
.MatchSoundsLike = False  
.MatchAllWordForms = False  
End With  
Selection.Find.Execute  
Selection.Extend  
Selection.Extend Character:="}"  
Selection.Cut  
'***Fügt den zwischengespeicherten Text als Fußnote ein***  
With ActiveDocument.Range(Start:=ActiveDocument.Content.Start,  End:=ActiveDocument.Content.End)  
With .FootnoteOptions  
.Location = wdBottomOfPage  
.NumberingRule = wdRestartContinuous  
.StartingNumber = 1  
.NumberStyle = wdNoteNumberStyleArabic  
End With  
.Footnotes.Add Range:=Selection.Range, Reference:=""  
End With  
Selection.PasteAndFormat (wdPasteDefault)  
'***Wiederholt die ersten beiden Schritte, bis keine Klammern mehr gefunden werden***  
On Error GoTo Ende  
Call TestFussnotenErzeugen  
Ende:  
End Sub

Viele Grüße aus dem Norden,
Oliver

als Antwort auf: [#516967]

Aktuell

PDF / Print

NEU: PitStop 2024.03 verfügbar!

| 16.04.2024

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen

14.05.2024

Einsparpotenziale in der Weiterverarbeitung

Online
Dienstag, 14. Mai 2024, 10.00 - 10.30 Uhr

Webinar

Prozessoptimierung ist ein Teamsport! Keine Software und keine Maschine allein kann Ihnen helfen, die Effizienzpotenziale Ihres Betriebes maximal auszuschöpfen. Von der Auftragsannahme über die Vorstufe und den Druck bis hin zur Weiterverarbeitung – alles muss optimal ineinandergreifen. Apropos Weiterverarbeitung – in vielen Druckbetrieben fristet sie in Sachen Prozessoptimierung immer noch ein Schattendasein. Dabei liegen hier mittlerweile die größten Einsparpotenziale! In einem Webinar von Horizon und Impressed erfahren Sie, wie Sie diese Einsparungen realisieren können. Horizon, bekannt für innovative Lösungen in der Druckweiterverarbeitung, bietet mit iCE LiNK eine Workflowlösung für die Weiterverarbeitung. iCE LiNK überwacht, visualisiert und analysiert Produktionsabläufe und unterstützt bei der Wartung – damit immer alles reibungslos läuft. Den gleichen Anspruch hat der von Impressed entwickelte Impressed Workflow Server – er ist die smarte PDF-Workflow-Lösung für Druckereien, die Datenmanagement, Preflight und Produktionssteuerung übernimmt. Im Webinar zeigen Ihnen die Experten von Horizon und Impressed, wie beide Lösungen im Team die Effizienz und Produktivität Ihres Betriebes steigern können. Melden Sie sich am besten gleich an, wir freuen uns auf Sie! PS: Melden Sie sich in jedem Fall an – sollten Sie zum Termin verhindert sein, erhalten Sie die Aufzeichnung.

kostenlos

Organisator: Impressed / Horizon

https://www.impressed.de/schulung.php?c=sDetail&sid=327

Einsparpotenziale in der Weiterverarbeitung

Veranstaltungen

16.05.2024

Und es geht doch: Automatisierung im Großformatdruck!

Online
Donnerstag, 16. Mai 2024, 10.00 - 10.30 Uhr

Webinar

Komplizierte, kleinteilige Aufträge; alles sehr speziell; seit Jahren bewährte Prozesse – da können wir nichts standardisieren und automatisieren! Das sagen viele Großformatdrucker – aber stimmt das wirklich, ist dem tatsächlich so? Günther Business Solutions und Impressed treten in einem Webinar den Gegenbeweis an. Experten beider Unternehmen zeigen, wie Großformatdrucker vom Einsatz zweier bewährter Lösungen profitieren können: • von advanter print+sign von Günther Business Solutions, dem ERP-System für den Großformatdruck, dass alle Phasen der Wertschöpfung im Large Format Printing abdeckt • von Impressed Workflow Server, der smarten PDF-Workflow-Lösung für Druckereien, die Datenmanagement, Preflight und Produktionssteuerung übernimmt Über die Kombination beider Lösungen können Großformatdrucker ihre Prozesse mit modernen Workflows Schritt für Schritt automatisieren – und so zügig deutliche Zeit- und Kosteneinsparungen realisieren. Das Webinar sollten Sie sich nicht entgehen lassen – damit Sie keine Effizienzpotenziale mehr liegen lassen. Melden Sie sich am besten gleich an, wir freuen uns auf Sie! PS: Melden Sie sich in jedem Fall an – sollten Sie zum Termin verhindert sein, erhalten Sie die Aufzeichnung.

kostenlos

Nein

Organisator: Impressed / Günther Business Solutions

https://www.impressed.de/schulung.php?c=sDetail&sid=326

Und es geht doch: Automatisierung im Großformatdruck!

Weitere Events

Neuste Foreneinträge

Switch/PitStop: Sprachdatei vom Report ändern

Mit Preflight Registerfarbe ALL nach Grau konvertieren geht nicht

Absatzsetzer in CC24 ME lösen Probleme aus

Quark Objekte lassen sich nicht neben Layout ziehen.

Barrierefreie PDFs | Mögliche unangebrachte Verwendung des Strukturelements xy

Barrierefreiheit in indesign 2022: figure-Tags haben als Attributobjekt "block" statt "inline"?

Kontrollkästchen in PDF-Formular

Indesign Tabelle ausrichten

Mehrfach geschichtete und übereinander gelagerte PDFs bereinigen

InDesign 19.2 konvertiert 19.3-Dateien beim Öffnen ungefragt

Weitere Stellenangebote