Pretvorni tolarjev v evre

Pomoč pri delu z MS Wordom
Odgovori
JozeS
Prispevkov: 8
Pridružen: Če Dec 29, 2005 10:30 am

Pretvorni tolarjev v evre

Odgovor Napisal/-a JozeS »

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

Odgovor Napisal/-a admin »

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.
lp,
Matjaž Prtenjak
Administrator
kljuka13
Prispevkov: 257
Pridružen: Po Sep 10, 2007 4:29 pm
Kraj: Maribor

Odgovor Napisal/-a kljuka13 »

Po igranju :D :

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
In še Matjažev makro za štetje besed:

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]
Odgovori