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! |