Moguce je pronaci funsnotu (Find) ali nije moguce zadati je kao Replace string. Evo makroa koji bi to trebao da odradi.
Code:
Sub RemoveFromFusnote()
'
' Makro koji brise blanko znak ispred oznake fusnote u tekstu
' 5/24/2006 by Predrag Jovanovic
'
With ActiveDocument.Content.Find
.ClearFormatting
' Petlja kroz ceo dokument - trazi sledecu fusnotu
Do While .Execute(FindText:=" ^f", Forward:=True) = True
.Parent.StartOf Unit:=wdCharacter
.Parent.Characters(1).Delete
Loop
End With
End Sub
Dva u dva ide jednom ako možeš da ga ućuškaš