[ zealot @ 23.05.2006. 14:02 ] @
Radim prelom knjige u Wordu od oko 700 strana. U tekstu postoji preko 1000 fusnota. Pre svake oznake za fusnotu u tekstu postoji razmak. Da li je moguce taj razmak automatski izbrisati, recimo preko find/replace?

Hvala unapred.

P.S. Primer u atachmentu

[Ovu poruku je menjao zealot dana 23.05.2006. u 21:34 GMT+1]
[ apos @ 23.05.2006. 14:13 ] @
Ako ti nije teško pošalji dio teksta da vidim o čem se radi. Ako hočeš pošalji i čitav tekst.
[ Jpeca @ 24.05.2006. 08:37 ] @
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
[ zealot @ 24.05.2006. 09:54 ] @
Hvala Peco, tvoj makro je resio problem.