Polje {XE} - vnos v kazalo

[solata]

Polje {XE} - vnos v kazalo

Program za odelavo družinskega rodoslovja (Genealogy) omogoča razne izpise, tudi v RTF obliki. Izpis v RTF in potem odpiranje z M$ wordom je okay.

Manjši problem je le to, da vsakemu ime-priimku takoj sledi še oznaka za polje {XE} in ustrezno ime-priimek. Tisti {} je posebni M$ simbol Ctrl+F9, vse skupaj pa je vidno le s Pokaži/Skrij ikono "pi" ¶¶

Vse skupaj je naslednje:

Koda: Izberi vse

Jože Novak {XE "Jože Novak"} rojen itd. itd. 
Marija Novak {XE "Marija Novak"} rojen itd. itd. 
Janez Novak {XE "Janez Novak"} rojen itd. itd. 
Franc Jožef {XE "Franc Jožef"} rojen itd. itd. 

Klik po {XE "Jože Novak"} in DELETE je v redu in brez škode. Težava je ta, da je imen čez 500 in je tak način brisanja brezupno opravilo. Ne pozabit, da vsak nov RTF izpis ponovno generira malo morje teh {XE} zapisov.

Ali poznate kakšen bolj prijazen postopek - makro za brisanje teh {XE "ime-priimek"} zapisov

Hvala.


P.s. opravičijo v naprej, če sem zgrešil forum.

[admin]

Ne razumem sicer zakaj vas ta XE polja motijo, saj se ne izpisujejo in niso vidna... služijo, kot ste sami ugotovili za izdelavo kazala... No kakorkoli, spodaj vam prilagam makro, ki vam bo te vnose pač pobrisal.

Koda: Izberi vse

Sub PobrisiPoljaKazala()
  Dim doc As Document
  Dim fld As Field
  Set doc = ActiveDocument
  For Each fld In doc.Fields
    fld.Select
    If fld.Type = wdFieldIndexEntry Then
      fld.Delete
    End If
  Next
  Set fld = Nothing
  Set doc = Nothing
End Sub

[solata]

ola, to pa je bila brzina !

zadeva odlično deluje, hvala

mene osebno tisti XE ne motijo kaj prida, toda rezultate kot doc pošljem vsej žlahti in vedno se najde frik, ki "kaj pa tisti XE počne tam notri"

če tistih XE ni, potem imam mir

še 1x hvala