Ali obstaja kakšen pretvornik (makro?), ki bi mi v dokumentu pretvoril zneske, ki so v SIT v €, podobno kot dela pretvornik merskih enot. Če ne obstaja pa morda kakšen namig, kako bi si podoben makro lahko spisal. Imamo namreč precej dokumentov - pogodb za pretvoriti.
LP in hvala
Jože
Pretvorni tolarjev v evre
Pozdravljeni,
Problem makra j v tem, kako ugotoviti, kaj je znesek in kaj ni. Če vedno velja, da so zneski napisani kot številke, ki jim sledi besedc SIT, potem bi se takšen makro dalo napisati.
Zgradba makra bi bila sledeča. Po dokumentu poišči vse besedice SIT in če se pred njimi nahaja neka števila, skednjo deli z 239,64 in izračunani znesek zapiši namesto originalnega.
Problem makra j v tem, kako ugotoviti, kaj je znesek in kaj ni. Če vedno velja, da so zneski napisani kot številke, ki jim sledi besedc SIT, potem bi se takšen makro dalo napisati.
Zgradba makra bi bila sledeča. Po dokumentu poišči vse besedice SIT in če se pred njimi nahaja neka števila, skednjo deli z 239,64 in izračunani znesek zapiši namesto originalnega.
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Po igranju :
In še Matjažev makro za štetje besed:
Koda: Izberi vse
Sub sitVEvro()
Dim j
Dim novZnesek
With Selection
.HomeKey
.Find.Text = "SIT"
For i = 1 To StejBesede("SIT")
.Find.Execute
j = 0
Do While Not .Text = " "
.MoveLeft wdCharacter, 1
j = j + 1
Loop
.MoveRight wdCharacter, 1
.MoveRight wdCharacter, j - 2, wdExtend
novZnesek = Round(.Text / 239.64, 2)
.Delete wdCharacter, 4
.TypeText novZnesek & "€"
Next i
End With
End Sub
Koda: Izberi vse
Function StejBesede(beseda As String) As Integer
Dim stevec
stevec = 0
Selection.HomeKey Unit:=wdStory
With ActiveDocument.Content.Find
Do While .Execute(beseda, , , , , , True) = True
stevec = stevec + 1
Loop
End With
StejBesede = (stevec)
End Function
[img]http://shrani.si/f/3t/YL/4W2P37B9/office.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]