Zakaj ne zamenja pisave?

Pomoč pri delu z MS Wordom
Odgovori
RTM
Prispevkov: 39
Pridružen: Po Mar 16, 2015 4:29 pm

Zakaj ne zamenja pisave?

Odgovor Napisal/-a RTM »

Pozdravljeni!

Imam DOCX narejen s pisavo ARIAL, ki jo želim zamenjati s pisavo VERDANA. Z ukazom Osnovno / Zamenjaj pod okence Najdi klik na Oblika / Pisava izberem ARIAL in nato še podobno pod okence Zamenjaj z VERDANA, pri obeh pisavah brez velikosti. Klik po gumbu Zamenjaj vse in celoten DOCX dobi pisavo VERDANA. Deluje kot se šika!

Ta enak postopek sem posnel kot makro:

Koda: Izberi vse

Sub ArialXVerdanaX()
'
'  ArialXVerdanaX Makro
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
        
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
        Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Ko ga zaženem se ne zgodi nič, pisava ni spremenjena.

Makro ne vsebuje navodila iz pisave ARIAL v pisavo VERDANA. Po guglanju sem dodal naslednji vrstici:

Koda: Izberi vse

Selection.Find.Font.Name = "Arial"
Selection.Find.Replacement.Font.Name = "Verdana"
Zaženem ročno popravljeni makro, »hip, hip hip strašni trik in pisava je spremenjana!«

Morda veste, kje sem naredil napako, da pri snemanju makra ni podatka o pisavah :?:
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Zakaj ne zamenja pisave?

Odgovor Napisal/-a admin »

Pozdravljeni,

Menim, da niste naredili nobene napake. Snemanje makrov namreč no 100% natančno in iz pogovornih oken ne pobere vedno vseh nastavitev :(
lp,
Matjaž Prtenjak
Administrator
RTM
Prispevkov: 39
Pridružen: Po Mar 16, 2015 4:29 pm

Re: Zakaj ne zamenja pisave?

Odgovor Napisal/-a RTM »

Hvala za pojasnilo.

Dovolite še naslednje vprašanje:

ali je možno pri ukazu Najdi in zamenjaj med tistimi možnosti Najdi napisati tako, da bo to veljalo za vse različne pisave, ki se potem zamenjajo npr. v Verdano :?:
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Zakaj ne zamenja pisave?

Odgovor Napisal/-a admin »

Pozdravljeni,

Če želite vse pisave zamenjati v Verdano, samo izberite celoten tekst (Select All - CTRL + A) in iz trak aizberite pisavo Verdana. Ne potrebujete nič iskati ali kaj podobnega...
lp,
Matjaž Prtenjak
Administrator
Odgovori