Probs mit besipielen aus Sun Basic Buch (createEnumeration)

[mxs]

Hallo zusammen,

Ich habe mir mal das Basicbuch unter ftp://docs-pdf.sun.com/817-3924/817-3924.pdf

runtergeladen um ein bischen mit dem Basic im OO ( 2.0. rc1) rumzuspielen .

Dabei is mir auch folgendes beispiel untergekommen





sub Main
Dim Doc As Object
Dim Enum1 As Object
Dim Enum2 As Object
Dim TextElement As Object
Dim TextPortion As Object
Doc = StarDesktop.CurrentComponent
Enum1 = Doc.Text.createEnumeration
' Schleife über alle Absätze
While Enum1.hasMoreElements
TextElement = Enum1.nextElement
If TextElement.supportsService("com.sun.star.text.Paragraph") Then
Enum2 = TextElement.createEnumeration
' Schleife über alle Teilabsätze
While Enum2.hasMoreElements
TextPortion = Enum2.nextElement
MsgBox "'" & TextPortion.String & "'"
TextPortion.String = Replace(TextPortion.String, "OpenOffice", "U")
TextPortion.String = Replace(TextPortion.String, "too", "2")
TextPortion.String = Replace(TextPortion.String, "for", "4")
Wend
End If
Wend
end sub


leider funktioniert das nicht, da die methode Doc.Text.createEnumeration
angeblich nicht existiert ?!

hmm , was is jetzt mein fehler oder is das basic vom staroffice nich identisch mit dem basic ausm oo


bisssel ratlos

mxs

[Stephan]

Wahrscheinlich ist das Fenster der Makro-IDE das gerade aktive Fenster wenn Du das Makro startest, das entspricht dann StarDesktop.CurrentComponent, ersetze das durch ThisComponent.

http://www.dannenhoefer.de/faqstarbasic ... ml#Zweig34

Gruß
Stephan

[mxs]

Das is ja mal ne nette kleine Falle,
Danke auch für den Link , sehr interessant


mxs