Pozdravljeni,
posnela sem makro, ki mi v tekstu zamenja srednje narekovaje z zgornjimi dvojnimi. Vse lepo in prav, na mojem računalniku dela. Makro sem skopirala, ga shranila v beležnico na mrežo, in prilepla v makro na drugem računalniku. Tam pa ne dela. Matjaž, kakšen namig kaj mu tam ne paše? V službi pravzaprav nimam koga vprašati, že to moje "laično znanje" je nad vsemi pričakovanji
Hvala in lp,
Micka
Makro na drugem računalniku ne dela
Zdaj ste mi problem opisali natanko tako, kot da bi pisali avtomehaniku in rekli: "Pozdravljeni, avto mi ne dela. aj je narobe?"...
Torej da bi vam lahko pomagal, mi morate povedati kaj več. Kakšno napako javi? ALi so na drugem računalniku makri sploh omogočeni? ipd...
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Hja, blond ravno nisem, se pa zgodi, da obidem glavno stvar...
Sub Irena()
'
' Irena Makro
' Makro posnel: BetkaS, dne: 23.8.2006
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "«"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "»"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Makro uporabljam v wordu. Mislim, da so makri na drugem računalniku omogočeni (kje preverim?). Ne javi nič, ob kliku na makro je sicer videt, da nekaj čara, ampak narekovajev pa vseeno ne zamenja.
Hvala za odg.,
M.
Sub Irena()
'
' Irena Makro
' Makro posnel: BetkaS, dne: 23.8.2006
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "«"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "»"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Makro uporabljam v wordu. Mislim, da so makri na drugem računalniku omogočeni (kje preverim?). Ne javi nič, ob kliku na makro je sicer videt, da nekaj čara, ampak narekovajev pa vseeno ne zamenja.
Hvala za odg.,
M.