Code

[johanna.stiller]

oDesktop = CreateUnoService("Com.sun.star.frame.desktop")
sUrl ="private:factory/scalc"
oSpreadsheetDocument = _
oDesktop.loadComponentfromURL(sURL, "_blank", 0, mNoArgs())
sUrl ="private:factory/swriter"
oTextDocument = _
oDesktop.loadComponentfromURL(sURL, "_blank", 0, mNoArgs())

End Sub

Sub Style Basics

Dim ODesktop as Object
Dim ODocument As Object
Dim OText As Object
Dim ODispatcher As Object
Dim OStyleFamilies As Object
Dim oParaghraphStyles As Object
Dim oStyle As Object
Dim n As Integer

end sub

sub style_init
Dim mNoArgs REM empty Sequence
Dim smyText As String
Dim sUrl As String
oDesktop = CreateUnoService ("com.sun.star.frame.desktop")
sUrl= "private:factory/swriter"
oDocument = oDesktop.LoadComponentFromURL(sURL,"_blank",0, mNoArgs[/b]
oText = oDocument.Text
sMyText = "A very short paragraph for illustration only."
oDispatcher = oText.createTextDispatcher ()
oText.insertString(oDispatcher,"Headline",False)
oText.insertControlCharakter(oDispatcher,_
com.sun.star.text.ControlCharacter.Paragraph_Break,FALSE)
oText.insertString(oDispatcher,smyText,False)
End sub

Der fett formatierte Code ist falsch. Wie sollte es richtig heißen?
LG, Johanna

[balu]

Hallo Johanna,

versuch es mal damit, ungetestet.

Code: Alles auswählen

Dim mNoArgs ()
oDocument = oDesktop.LoadComponentFromURL(sURL,"_blank",0, mNoArgs())

Auch hier dier Empfehlung bei Dannenhoefer mal reinzuschaun.
http://www.dannenhoefer.de/faqstarbasic ... l#Zweig133


Gruß
balu