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

Zamenjava pisave

Pomoč pri delu z MS Wordom

Zamenjava pisave

OdgovorNapisal/-a RTM » So sep 17, 2016 3:11 pm

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



Matjazev.NET
 

Re: Zamenjava pisave

OdgovorNapisal/-a admin » So sep 17, 2016 7:52 pm

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

Re: Zamenjava pisave

OdgovorNapisal/-a RTM » So sep 17, 2016 9:14 pm

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

Re: Zamenjava pisave

OdgovorNapisal/-a admin » Ne sep 18, 2016 11:58 am

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


Vrni se na Word

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 1 gost

cron