Hallo Jörg,
Jörg Schmidt schrieb:
[..]
> Sub TXT_ist_HTML()
> IF ThisComponent.supportsService("com.sun.star.text.WebDocument") then
> DOK = StarDesktop.CurrentComponent
> pfad = DOK.URL
> DOK.Close(true)
Interessant, dass dein Makro überhaupt funktioniert! Spätestens hier
steigt mein Rechner aus! Fehlermeldung: Controller disagrees...
Was auch für mich logisch wäre....
> Problem ist:
> -->das durch das Makro als txt geöffnete Dokument ist jedoch
> schreibgeschützt!?
Wenn es bei dir läuft, dann wäre die logische Konsequenz, dass der
Controller das zweite Öffnen der Datei nur noch schreibgeschützt zulässt
- also eigentlich ok.
Ich denke, du musst einfach ein paar Ebenen tiefer gehen. Das folgende
geänderte Makro funktioniert bei mir - und öffnet das Dokument nicht
schreibgeschützt!
Sub TXT_ist_HTML()
oFrames = StarDesktop.getFrames()
for i = 1 to oFrames.getCount()
oFrame = oFrames.getByIndex(i-1)
'msgbox oFrame.title
oDoc = oFrame.Controller.model
IF oDoc.supportsService("com.sun.star.text.WebDocument") then
pfad = oDoc.URL
msgbox pfad
odoc.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"
StarDesktop.loadComponentFromURL( pfad , "_blank", 0, args3() )
end if
end if
next
End Sub
Der einzige Nachteil ist die Identifikation des "richtigen" Frames.
Solange nur ein HTML Dokument geöffnet ist, kein Problem - aber wehe,
wenn mehr. Dann werden alle im Textmodus geöffnet!
Gruss
Thomas
PS: Wozu braucht man soetwas überhaupt? Man muss doch nur in der
Webansicht umstellen in Quelltext-Ansicht und hat schon alles als
Textdatei vorliegen????
--
## Marketing deutschsprachiges Projekt
## http://de.openoffice.org - www.openoffice.org
## Vorstand OpenOffice.org Deutschland e.V.
## Mitglieder willkommen: www.OOoDeV.org
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
