Codes

[Schnewittchen]

Hallo,
diese Codes funktionieren bei mir irgendwie nicht. Kann mir da jemand helfen?

Sub Dokumentvorlage_neu
Dim a3, a4 As String
Dim myFileProp(0) As New com.sun.star.beans.PropertyValue
Dim args(0) As New com.sun.star.beans.PropertyValue
Dim url As String

oDoc = ThisComponent
url = oDoc.getUrl

If oDoc.hasLocation = False Then
Beep
MsgBox "Das Dokument muss einen Namen haben! Ende!"
Exit Sub
End If

a3 = Dokument_Dateiname(url)
a4 = Pfad_OOo_User & "template/" & a3 & ".ott"

FileCopy url, a4
Fertig

End Sub
------------------------------------------------------------------------------------------------------------------------------
Sub Document

Dim oSpreadsheetDocument As object
Dim oTextDocument as Object

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

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

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
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

Er nimmt das Global nicht.

LG, Johanna

[balu]

Hallo Johanna,

als erstes solltest Du dich mal mit dem Thema "Variablen" noch mal richtig auseinander setzen. Denn so etwas

Code: Alles auswählen

Dim a3, a4 As String

kann sehr schnell zu Fehlern führen, da a3 als Variant und a4 als String deklariert worden ist. Oder glaubst Du das a3 auch als String deklariert ist?
Und was dein Hauptproblem betrifft, so hat das auch mit der Variablendeklaration zu tun. Nur in diesem Falle nicht das WIE, sondern ehern das WO.
Und das kannst Du alles bei Dannenhoefer nachlesen.
http://www.dannenhoefer.de/faqstarbasic ... tml#Zweig3

Gruß
balu