OpenOffice.info

Code: Alles auswählen

Sub Eigenschaften_Methoden
dim myDoc as object
dim oTab as object
dim sText as string
myDoc = thiscomponent
oTab = myDoc.sheets(0)

oObj = myDoc
sText = oObj.dbg_methods

trz = ";"
Spalte = 0
Reihe = 0
aText = split(sText,trz)
for i = lbound(atext()) to ubound(atext())
otab.getCellByPosition(spalte,reihe + i).string=trim(atext(i))
next i

sText = oObj.dbg_properties
trz = ";"
Spalte = 1
Reihe = 0
aText = split(sText,trz)
for i = lbound(atext()) to ubound(atext())
otab.getCellByPosition(spalte,reihe + i).string=trim(atext(i))
next i
End Sub

Code: Alles auswählen

Dim FileNo As Integer
Dim Filename As String
Dim Objekt as Object

'**********
Objekt = Calc 'Das gewuenschte Objekt!!!
'**********

Filename = "c:\test\test.txt"
FileNo = Freefile ' freies Datei-Handle ermitteln
Open Filename For Output As #FileNo
print #FileNo, "Die Methoden des Objekts:"
print #FileNo, Objekt.dbg_methods
print #FileNo, ""
print #FileNo, "XxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxX"
print #FileNo, ""
print #FileNo, "Die Eigenschaften des Objekts:"
print #FileNo, Calc.dbg_properties
Close #FileNo
msgbox "Methoden und Eigenschaften des Objekts wurden in die Datei " + filename +" abgelegt"