Pomoč pri delu z MS Wordom
RTM
Prispevkov: 39 Pridružen: Po Mar 16, 2015 4:29 pm
Odgovor
Napisal/-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č.
admin
Site Admin
Prispevkov: 3692 Pridružen: Sr Jul 20, 2005 10:06 pm
Odgovor
Napisal/-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
RTM
Prispevkov: 39 Pridružen: Po Mar 16, 2015 4:29 pm
Odgovor
Napisal/-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?
admin
Site Admin
Prispevkov: 3692 Pridružen: Sr Jul 20, 2005 10:06 pm
Odgovor
Napisal/-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