Zamenjava pisave

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

Zamenjava pisave

Odgovor Napisal/-a RTM »

Dobivam doc/x kjer prevladuje pisava Times New Roman različnih velikosti.

Posnel sem spodnji makro, ki pa ne zamenja pisave.

Koda: Izberi vse

Sub Pisava()
'
' Pisava 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 s pomočjo ukaza Zamenjaj okno Najdi pustim prazno, klik po Več, Oblika, Pisava izberem Times New Roman se to prenese pod okno Najdi.

Sledi podobno z Zamenjaj z le da izberem pisavo Verdana.

To deluje, makro pa ne, čeprav sem enak postopek uporabil pri snemanju makroja.

Kaj je narobe, prosim za pomoč.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Zamenjava pisave

Odgovor Napisal/-a admin »

Pozdravljeni,

Če pogledate veš makro, na boste nikjer opazili besedic 'Times new Roman' ali Verdana, kar pomeni, da ta makro nikakor ne more narediti tistega, kar pričakujte.

Problem pa je bil v tem, da v Word-u ne morete posneti ravno vseh makrov. Makro, ki ga iščete sem vam napisal na roko in je spodaj:

Koda: Izberi vse

'
' www.matjazev.net. sept. 2016
'
Option Explicit

Sub ZamenjajFont()
  Dim IsciFont As String: IsciFont = "Times New Roman"
  Dim ZamenjajFont As String: ZamenjajFont = "Verdana"
  
  With Selection.Find
  .ClearFormatting
  .Font.Name = IsciFont
  .Replacement.ClearFormatting
  .Replacement.Font.Name = ZamenjajFont
  .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
lp,
Matjaž Prtenjak
Administrator
RTM
Prispevkov: 39
Pridružen: Po Mar 16, 2015 4:29 pm

Re: Zamenjava pisave

Odgovor Napisal/-a RTM »

Najlepša hvala.

Šele sedaj, po vašem opozorilu, sem opazil, da manjkata obe pisavi.

Le za moj firbec: ali bi se lahko v tisti moj makro na ustrezno mesto in z ustreznim imenom (keyword ?) vtaknili tisti čarobni besedi za obe pisavi?
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Zamenjava pisave

Odgovor Napisal/-a admin »

[quote="RTM"Le za moj firbec: ali bi se lahko v tisti moj makro na ustrezno mesto in z ustreznim imenom (keyword ?) vtaknili tisti čarobni besedi za obe pisavi?[/quote]
Da, saj makra sta praktično enaka, le da vašemu manjka ključna informacija. Če ju primerjate, boste videli, kje se razlikujeta
lp,
Matjaž Prtenjak
Administrator
Odgovori