..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Zakaj ne zamenja pisave?

Pomoč pri delu z MS Wordom

Zakaj ne zamenja pisave?

OdgovorNapisal/-a RTM » To jun 26, 2018 5:27 pm

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 :?:
Hvala v najprej in lep pozdrav,
Mladen
RTM
 
Prispevkov: 35
Pridružen: Po mar 16, 2015 4:29 pm



Matjazev.NET
 

Re: Zakaj ne zamenja pisave?

OdgovorNapisal/-a admin » To jun 26, 2018 5:39 pm

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
admin
Site Admin
 
Prispevkov: 3492
Pridružen: Sr jul 20, 2005 10:06 pm

Re: Zakaj ne zamenja pisave?

OdgovorNapisal/-a RTM » Sr jun 27, 2018 11:30 am

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 :?:
Hvala v najprej in lep pozdrav,
Mladen
RTM
 
Prispevkov: 35
Pridružen: Po mar 16, 2015 4:29 pm

Re: Zakaj ne zamenja pisave?

OdgovorNapisal/-a admin » Sr jun 27, 2018 11:50 am

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
admin
Site Admin
 
Prispevkov: 3492
Pridružen: Sr jul 20, 2005 10:06 pm


Vrni se na Word

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 2 gostov

cron