VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: David80939	Datum: 29.01.2015 15:17:26	Views: 1680	Rating:	Antwort:
Thema: Formatierung Fußnote
Hallo, ich habe folgendes Problem: Ich will in einem großen Dokument bei den Fußnoten das erste Leerzeichen durch einen Tab ersetzen: Sub fussnoten() Dim i As Integer With ActiveDocument For i = 1 To ActiveDocument.Footnotes.Count .Footnotes(i).Range.Text = Chr(9) & Footnotes(i).Range.Text Next i End With End Sub Das funktioniert auch ganz gut. Aber leider wird die Schriftzeichenformatierung durcheinandergeworfen. Wenn zB das erste Wort in der Fußnote vorher kursiv war ist es jetzt der ganze Fußnotentext. Bsp: Fn1 Müller, Buch 123, S. 123. Vorher war nur Müller kursiv, jetzt alles. Wer kann mir helfen. Danke!

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen