Quote:
Originally Posted by macropod
Since I have no idea what your 'main overhaul macro' is, I can't comment on that. Regardless, what you want is as simple as:
Code:
Sub ReFormatFtNts()
Application.ScreenUpdating = False
Dim FtNt As Footnote
With ActiveDocument.Range
For Each FtNt In .Footnotes
With FtNt.Range
.Font.Reset
.InsertBefore "[["
.InsertAfter "]]"
End With
Next
End With
Application.ScreenUpdating = False
End Sub
|
Just my idea of calling transforming my files. No biggie.
As for this code, how would you point the brackets around any bolded text. How would I go about selecting a range of bold?
I tried this before (hours ago), but no go:
Code:
With rg.Find
.Font = .Bold = True
EDIT.
Anyway, in the meantime I just converted footnotes to endnotes (it retained formatting) and found'n'replaced on the bold texts.
Another one ticked off. I think I can go to bed now.
Thanks for everything, Paul
In Lak'ech