Hallo Mathias, *,
Mathias Bauer schrieb:
> [...]
da der Thread nun noch am Laufen ist und ich die Argumentation bisher
nicht richtig verstanden habe möchte ich es nochmals ganz allgemein
verdeutlichen.
Abgesehen davon das er nicht sehr schön ist, aber hier ist mein
Test-Code:
Sub TXT_ist_HTML()
If FileExists("d:\abc.txt") Then
exit Sub
End If
DOK = StarDesktop.CurrentComponent
pfad = DOK.URL
Msgbox "Ursprungsdokument geschlossen"
DOK.Close(true)
datei_anlegen
dim args3()
neudok = StarDesktop.loadComponentFromURL( pfad , "_blank", 0, args3() )
msgbox neudok.IsReadOnly
End Sub
Sub datei_anlegen()
Dim iNumber As Integer
Dim aFile As String
aFile = "d:\abc.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "nur ein Test"
Close #iNumber
End Sub
Diesen kopiere ich:
(a) in eine der OOo-Bibliotheken von OOo 1.1.4
(b) in eine der OOo-Bibliotheken von OOo 2.0.1
in beiden Fällen ordne ich das Makro "TXT_ist_HTML" dem Ereignis
"Dokument öffnen" von OOo zu.
Nebenbedingungen:
*die Datei "d:\abc.txt" existiert zunächst nicht.
*OOo ist in beiden folgenden Fällen zu Beginn komplett geschlossen
*beide OOo-Versionen sind auf derselben Windows-Installation installiert
*die Dateiendungen/Typen sind zugeordnet
*die zum Test verwendeten Dateien *.sxw bzw. *.odt sind nicht
schreibgeschützt
Ich mache nun Folgendes:
ich doppelklicke eine beliebige *.sxw
Ergebnis:
dann öffnet die sich in OOo 1.1.4 und das Makro läuft automatisch ab,
wie gewünscht. Ich sehe im zweiten Meldungsfenster das die Datei *nicht
schreibgeschützt* ist.
Jetzt mache ich Folgendes:
ich schließe die Datei und OOo 1.1.4 vollständig und lösche die
angelegte Datei D:\abc.txt.
ich doppelklicke eine beliebige *.odt
Ergebnis:
dann öffnet die sich in OOo 2.0.1 und das Makro läuft automatisch ab,
wie gewünscht. Ich sehe im zweiten Meldungsfenster das die Datei
*schreibgeschützt* ist.
Meine Fragen:
(1)
Warum verhalten sich OOo 1.1.4 und OOo 2.0.1 hier unterschiedlich?
(Konkret habe ich weder Deine noch die Erklärung von Thomas genau
verstanden, nur Thomas sagt ja das wäre in 2.0.1 ein Fehler (das würde
dann weitere Erklärungen entbehrlich machen), Du hingegen sagst (IMHO)
es dürfte garnicht funktionieren.)
(2)
Wie 'überzeuge' ich OOo 2.0.1 ggf. sich so zu verhalten wie 1.1.4, falls
doch kein Fehler in Version 2.0.1 vorliegt.
Gruß
Jörg
P.S.
zur Sicherheit:
BS: Windows 2000 SP4
OOo: OOo 2.0.1 (deutsch) bzw. SO7 PP4 (deutsch)
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
