A
andreas
Below macro applies a custom paragraph style to all footnotes of a
document. It is running just fine.
In a superlong Document with more than 900 footnotes, a little bug
occurs. Some words (but only some!!) that have been preformatted
manually with italics or underlined LOOSE this manual character
formatting. But this should not be the case because the custom
paragraph style does NOT contain any character formatting properties
(italics, underlined, bold etc.) nor do I use "Range.Font.Reset" in
this macro.
Any hint why this is so? Maybe it is because of the big number of
footnotes?
Help is appreciated. Thank you very much in advance.
Sub FNFormat()
Dim pIndex As Long
If ActiveDocument.Footnotes.Count > 0 Then
For pIndex = 1 To ActiveDocument.Footnotes.Count
ActiveDocument.Footnotes(pIndex).Range.Style = "Custom Footnote
Paragraph Style"
Next
End If
End Sub
document. It is running just fine.
In a superlong Document with more than 900 footnotes, a little bug
occurs. Some words (but only some!!) that have been preformatted
manually with italics or underlined LOOSE this manual character
formatting. But this should not be the case because the custom
paragraph style does NOT contain any character formatting properties
(italics, underlined, bold etc.) nor do I use "Range.Font.Reset" in
this macro.
Any hint why this is so? Maybe it is because of the big number of
footnotes?
Help is appreciated. Thank you very much in advance.
Sub FNFormat()
Dim pIndex As Long
If ActiveDocument.Footnotes.Count > 0 Then
For pIndex = 1 To ActiveDocument.Footnotes.Count
ActiveDocument.Footnotes(pIndex).Range.Style = "Custom Footnote
Paragraph Style"
Next
End If
End Sub