OpenOffice.info

Beispiele für die Anwendung von Vorlagen auf einzufügenden Text im Code meiner beiden Anwendungen:

[url=http://www.re-solutions.de/ooo/makros/global_ATL2_AutoTextListe2.sxw]ATL2 - AutoTextListe2[/url]
Auslesen der Autotexte in ein Writer-Dokument; Erweiterung des mitgelieferten Standard-Makros "AutoText" aus der Bibliothek "Gimmicks"
[url=http://www.re-solutions.de/ooo/makros/global_BTL_BasicTextListe.sxw]BTL - BasicTextListe[/url]
Gibt alle vorhandenen BASIC-Module aus allen installierten Bibliotheken in ein Writer-Dokument aus.

Hilft Dir das?

Sub InsertText(sValue As String, sFontName As String, sHeight As String, sWeight As String, sULine As String)
	
	oDesktop = createUnoService( "com.sun.star.frame.Desktop" )
 	oController = oDesktop.CurrentFrame.Controller
 	oDocument = oController.Model
	oDocument.supportsService( "com.sun.star.text.TextDocument" )
	oSelection = oDocument.CurrentSelection( 0 )
	oSelection.CharFontName = sFontName
	oSelection.CharHeight = sHeight
	oSelection.CharWeight = sWeight
	oSelection.Text.insertString( oSelection, sValue, True )
	
End Sub

Hallo

ich füge in ein Writer Dokument über folgenden Befehl Text ein:

[code]Sub InsertText(sValue As String, sFontName As String, sHeight As String, sWeight As String, sULine As String)

oDesktop = createUnoService( "com.sun.star.frame.Desktop" )
oController = oDesktop.CurrentFrame.Controller
oDocument = oController.Model
oDocument.supportsService( "com.sun.star.text.TextDocument" )
oSelection = oDocument.CurrentSelection( 0 )
oSelection.CharFontName = sFontName
oSelection.CharHeight = sHeight
oSelection.CharWeight = sWeight
oSelection.Text.insertString( oSelection, sValue, True )

End Sub
[/code]

Ich würde die Formatierung aber gerne nicht "hart" machen, sonder die Formatvorlagen benutzen. Hat jemand eine Idee wie das in OO funktioniert.

Mfg

Sebastian