Makro

A ve kdo če obstaja kak ukaz pri makrojih, ki ti kurzor postavi na konec stavka (torej za piko)!!!
Rabim tak makro, ki mi prešteje število stavkov v besedilu!
Ukaz
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdMove mi sicer postavi kurzor na konec odstavka, kar pa meni ne pomaga!!!

Mhmmmm...men se tudi zdi!!! Kak ti kaj gredo makroji?? OK dečki, jaz sem zdaj napisal, samo ne dela čisto OK. A kdo vidi napako???


Sub izpis_st_stavkov()
Selection.MoveUp Unit:=wdParagraph, Count:=1
trenutno_stevilo_stavkov = 0
While Not (AtEndOfDocument())
trenutno_stevilo_stavkov = trenutno_stevilo_stavkov + 1
Selection.MoveRight Unit:=wdSentence, Count:=1, Extend:=wdMove
Wend
Selection.Text = "Število stavkov je " + Str$(trenutno_stevilo_stavkov)
End Sub
Function AtEndOfDocument()
If Selection.Type = wdSelectionIP And Selection.End = ActiveDocument.Content.End - 1 Then
AtEndOfDocument = True
Else
AtEndOfDocument = False
End If
End Function

zakaj mas te ta Strs al nekaj takega
po moje bi moralo delati ce das

Selection.Text= "tekst blablabla "+spremenljivka;

..mja ..ce bos rabil za to pomoc .. mam neke zapiske za UPO , pa take zapiske z uporabnimi ukazi itd itd ... mail me ... pa da vas dam na neko listo pa jo dam na feri.trga-gate.net ..da se nebomo o tem menili na tem forumu ampak na onem webboardu ko je bil na feri.trga-gate.net pa tam nihce ni nikoli nix vprasal, zaj pa ko sem vse to dal bolj na adijo ,zaj pa po vseh moznih forumih take zadeve sprasujete ....