Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Sierotki w office 2000
anonim




Typ: Nie zarejestrowany
Sierotki w office 2000

chce napisac program usuwajacy sierotki w Microsoft Office, nieznam basica (ale umiem programowac w innych jezykach) potrzebuje nazw i sposobu uzycia kilku funkcji:

- Funkcja ktora mowi ile jest wersow na danej stronie i ile jest stron.
- I funkcje ktora sprawdza ile znakow ma dany wyraz.

Na poczatek tyle Jak ktos wie to niech mi troszke pomoze

23-10-2003 14:42
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Option Explicit

Sub Test()
    MsgBox IleSlow, vbInformation, "Ile słów"
    MsgBox IleLinijek, vbInformation, "Ile linijek"
    MsgBox IleStron, vbInformation, "Ile stron"
    MsgBox "Długość słowa test: " & DlCiagu("test", vbInformation, "Długość ciągu znaków"
End Sub

Function IleSlow() As Long
    IleSlow = ActiveDocument.Words.Count
End Function

Function IleLinijek() As Long
    IleLinijek = ActiveDocument.Paragraphs.Count
End Function


Function IleStron() As Long
    ActiveDocument.Range.Select
    IleStron = Selection.Information(wdActiveEndPageNumber)
End Function

Function DlCiagu(ciag As String) As Long
    DlCiagu = Len(ciag)
End Function


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

24-10-2003 18:57
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1