Štetje znakov v wordovem dokumentu!

Pomoč pri izdelavi makrov
Odgovori
missy
Prispevkov: 40
Pridružen: To Apr 11, 2006 7:03 pm

Štetje znakov v wordovem dokumentu!

Odgovor Napisal/-a missy »

Pozdravljeni, ponovno se vam oglašam z naslednjim problemom in sicer:

ne vem, kako naj štejem znake v wordovem dokumentu.

Naloga je sicer sledeča: Napišite makro, ki bo ob vsakem zapiranju dokumenta odprl okence, v katerem bo pisalo "Dokument, ki ga zapirate ima ... zankov!" Pikice nadomestite s številom znakov!

Koda: Izberi vse

Sub znaki()

If (ActiveDocument.Close = True) Then
    MsgBox ("Dokumen, ki ga zapirate ima " & stej & "znakov!")
End If

End Sub
Tale koda naj bi mi ob zaprtju dokumenta poklicala funkcijo stej in izpisala tole sporočilo, vendar imam že tukaj probleme, ker mi napiše da pričakuje funkcijo ali variablo, nanaša pa se na .close!


Malo pomoči bi mi prau prišlo, ker ne vem kako naprej!

Hvala, Missy.
missy
Prispevkov: 40
Pridružen: To Apr 11, 2006 7:03 pm

Odgovor Napisal/-a missy »

Koda: Izberi vse

Function stej() As Integer

For i = 0 To ActiveDocument.Characters.Count - 2
    i = i + 1
Next
stej = i

End Function
To je sedaj funkcija, ki šteje znake v besedilu skupaj z presledki! Ne vem pa od kje doda še dva znaka zato sem pač na kocu dodala count -2!

Lp.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

:):),

vi pa imate radi zanke... Zakaj pa potrebujete zanko, da i-ju prištevate 1 N krat... Ali ne morete vrniti kar N :).

No v vašem primeru pač:

Koda: Izberi vse

Function stej() As Integer
  stej = ActiveDocument.Characters.Count - 2
End Function 
lp,
Matjaž Prtenjak
Administrator
missy
Prispevkov: 40
Pridružen: To Apr 11, 2006 7:03 pm

Odgovor Napisal/-a missy »

Hm ja! :D

Hvala, vendar bi mi bilo v veliko pomoč če bi mi napisali kako zaprem dokument in izpišem "Dokument, ki ga zapirate ima ... znakov", ker mi moja koda ne deluje (sm jo gor napisala že prej)!


Lp.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Pozdravljeni,

Koda: Izberi vse

  MsgBox "Dokument, ki ga zapirate ima " & ActiveDocument.Characters.Count - 2 & " znakov"
  ActiveDocument.Close
To je to!
lp,
Matjaž Prtenjak
Administrator
Odgovori