Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Fußnoten als Text darstellen
zurück: Autotext in einer Textbox weiter: Kontrollkästchen mit Makro verknüpfen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
jackthebest
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Apr 2010, 11:40
Rufname:

Fußnoten als Text darstellen - Fußnoten als Text darstellen

Nach oben
       Version: Office 2007

Hallo zusammen! Gibt es (schon) eine (Makro)Lösung, die es ermöglicht, Fußnoten so umzuwandeln, das anstelle der ursprünglichen Fußnoten-Zahl im Text der Fußnotentext in [] dargestellt wird an jener Position, wo eben ursprünglich die Fußnotenzahl steht? Hintergrund: für blinde Menschen ist oft die Übersichtlichkeit durch Fußnoten nicht wirklich gegeben2, daher wäre es sinnvoll, wenn dies bereits im Text verankert wäre... DANKE für Tipps/Tricks und Empfehlungen! Jakob
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
26. Apr 2010, 12:54
Rufname:
Wohnort: Leipzig

AW: Fußnoten als Text darstellen - AW: Fußnoten als Text darstellen

Nach oben
       Version: Office 2007

Hallo Jack,

hier gibt es schon was Fertiges, kannst Du testen:

NoteStripper for Microsoft Word

Gruß
Lisa
Gast



Verfasst am:
29. Apr 2010, 22:26
Rufname:


AW: Fußnoten als Text darstellen - AW: Fußnoten als Text darstellen

Nach oben
       Version: Office 2007

Hallo, eine einfache Lösung findest Du hier.
Leider geht bei der Konvertierung des Fußnotentextes zu Fließtext die kursive/halbfette Auszeichnung verloren. Lösen kann man das z.B., in dem man kursive/fette Wörter mit Steuerzeichen versieht (.... <bold> blabla</bold> ... ) und anschließend mit Suchen und Ersetzen (wildcards aktivieren, der Suchbegriff lautet dann "\<bold>*\</bold>") markiert und fett bzw. kursiv zuweist.

Code:
Sub FootnotesToText()

Dim Fussnoten(1 To 999) As String ' Die Variable speichert alle Fußnoten zwischen

If ActiveDocument.Range.Footnotes.Count > 0 Then ' Routine läuft nur, wenn es Fußnoten gibt
m = ActiveDocument.Range.Footnotes.Count ' Zahl der Fußnoten, damit Schleife läuft

       For i = 1 To m ' von der ersten bis zur letzten Fußnote wird durchgezählt
       Fussnoten(i) = Trim(ActiveDocument.Range.Footnotes(i).Range.Text)
       Next i

   
        For i = m To 1 Step -1
        ActiveDocument.Range.Footnotes(i).Reference.Text = ("<Footnote>" & Fussnoten(i) & "</Footnote>") ' es wird von hinten nach vorne gezählt
' der Grund ist: wenn amn von vorne nach hinten zählt und eine Fußnote gelöscht wird, ändert sich auf der Wert "m"
' irgendwann wäre der Wert m gleich Null und man würde eine Fehlermeldung bekommen
        Next i

End If

End Sub
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Probleme mit mergefield (text und zahl) 2 djeses 341 27. Jan 2014, 17:40
Flipper7 Probleme mit mergefield (text und zahl)
Keine neuen Beiträge Word Serienbriefe: Hilfe, Link anstatt Verlinkter Text 1 Geograph123 84 18. Feb 2013, 15:31
Geograph123 Hilfe, Link anstatt Verlinkter Text
Keine neuen Beiträge Word Serienbriefe: in Word kopiertes Formular mit HTMLControl Forms.HTML:Text.1 0 unwissend24 393 12. Aug 2012, 14:08
unwissend24 in Word kopiertes Formular mit HTMLControl Forms.HTML:Text.1
Keine neuen Beiträge Word Serienbriefe: Probleme mit Serien EMail als Text 2 Thomas Kirsch 602 13. Apr 2012, 13:01
Thomas Kirsch Probleme mit Serien EMail als Text
Keine neuen Beiträge Word Serienbriefe: Word Quote Text 2 eisbeisser 1395 23. Dez 2010, 14:00
eisbeisser Word Quote Text
Keine neuen Beiträge Word Serienbriefe: Seriendruck in E-Mail (per Anlage) - E-Mail mit Text 1 Gast 2513 16. Jun 2010, 13:44
Gast Seriendruck in E-Mail (per Anlage) - E-Mail mit Text
Keine neuen Beiträge Word Serienbriefe: Text in abhängigkeit von mergefield 1 MissioWueBA04 1193 01. Jun 2010, 11:33
MissioWUEBA04 Text in abhängigkeit von mergefield
Keine neuen Beiträge Word Serienbriefe: Text von Seite 1 auf Seite 2 übernehmen 7 Chrissan79 1401 09. Apr 2010, 11:53
Chrissan79 Text von Seite 1 auf Seite 2 übernehmen
Keine neuen Beiträge Word Serienbriefe: Text im Serienbrief nach Anrede auswählen (wenn/dann) 4 Iris26 4157 06. Aug 2009, 12:38
Gast Text im Serienbrief nach Anrede auswählen (wenn/dann)
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit Anlage UND Text/Signatur im Outlook - wie? 0 Marmar77 1300 12. Feb 2008, 14:38
Marmar77 Serienbrief mit Anlage UND Text/Signatur im Outlook - wie?
Keine neuen Beiträge Word Serienbriefe: Text am Seitenende fixieren 6 Fuffi 5065 08. Nov 2007, 18:52
Hübi Text am Seitenende fixieren
Keine neuen Beiträge Word Serienbriefe: Auto Text als Bedingungsfeld? Mehrere Bedingungen.... Hilfe! 0 Andi_h 2733 13. Jul 2006, 08:37
Andi_h Auto Text als Bedingungsfeld? Mehrere Bedingungen.... Hilfe!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage