Hallo,
auf der users-liste verfolge ich einen Thread zum öffnen eines *.txt
welches HTML-Quelltext enthält. OOo 2.0 öffnet solche Dokumente per
default als HTML, d.h. man müßte vorher den richtigen Filter im
Dateidialog manuell wählen um als txt zu öffnen.
Folgendes Makro sollte helfen, wenn ich es dem Ereignis 'Dokument
öffnen' der OOo-Anwendung zuordne:
Sub TXT_ist_HTML()
IF ThisComponent.supportsService("com.sun.star.text.WebDocument") then
DOK = StarDesktop.CurrentComponent
pfad = DOK.URL
DOK.Close(true)
If Right(pfad, 3) = "txt" Then
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "FilterName"
args3(0).Value = "Text"
'dieses Dokument öffnet schreibgeschützt
StarDesktop.loadComponentFromURL( pfad , "_blank", 0, args3() )
end if
end if
End Sub
Problem ist:
-->das durch das Makro als txt geöffnete Dokument ist jedoch
schreibgeschützt!?
Das Makro funktioniert manuell (nicht über das Ereignis "Dokument
öffnen") gestartet ohne Probleme.
Übersehe ich etwas? Was kann ich tun?
(Hinweis:
args3(0).Name = "ReadOnly"
args3(0).Value = false
geht nicht. (ich bin aber garnicht sicher ob 'false' zulässig ist)
)
OOo 2.0 - Windows 2000 SP4
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
