Hi all,
The general idea is to put simple HTML coded text out of a database
field into a WriterDoc.The simple html tags like <B> etc.. has to been
transfered to the coresponding OO-style. Therefore I transfer the
fieldcontent to a stream and insert this stream using the HTML
(StarWriter) importfilter but the html tags are not translated to
OO-styling.
Doing the same from a file gives correct results
some basic code:
sub InsertfromStream
dim oProps(1) as new com.sun.star.beans.PropertyValue
oProps(0).Name = "InputStream"
oProps(0).Value = stream
oProps(1).Name = "FilterName"
oProps(1).VAlue = "HTML (StarWriter)"
Dim oTextViewCursor As Object
oTextViewCursor = ThisComponent.CurrentController.ViewCursor
Dim oDocumentInsertable As Object
oDocumentInsertable =
ThisComponent.Text.CreateTextCursorByRange(oTextViewCursor)
oDocumentInsertable.InsertDocumentFromURL("" , oProps())
end sub
file content like "set something in <b>bold</b>" gives "something in
<b>bold</b>"
I ame pretty sure the filter is doing something because using a
non-existing filer name gives somthing like s#o#m#e# etc....
sub Inserttfromdoc
dim oProps(1) as new com.sun.star.beans.PropertyValue
oProps(0).Name = "URL"
oProps(0).Value = "file:///H:/Teststream.txt"
oProps(1).Name = "FilterName"
oProps(1).VAlue = "HTML (StarWriter)"
Dim oTextViewCursor As Object
oTextViewCursor = ThisComponent.CurrentController.ViewCursor
oDocumentInsertable =
ThisComponent.Text.CreateTextCursorByRange(oTextViewCursor)
oDocumentInsertable.InsertDocumentFromURL("" , oProps())
end sub
file content like "set something in <b>bold</b>" gives "something in
*bold*"
Thanks for any hint
Fernand
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
