Seite 1 von 1
Writerdocument als Txt - Datei speichern
Verfasst: Fr, 14.05.2010 11:35
von ROM
Hallo,
ich möchte gerne meinen Writerinhalt als Textdatei speichern. Leider ist der Inhalt der Textdatei nicht lesbar. Wie muss das Property dafür gesetzt werden?
Code: Alles auswählen
sub StoreAsTextDatei
Dim sEingabe, sNachname, sURL, sPDF as String
Dim oFeld, oDoc, oTxtFelder as Object
oDoc = thiscomponent
sUrl = "file:///c:/Scripts/Datei.txt"
Dim FileProperties(1) as new com.sun.star.beans.PropertyValue
FileProperties(0).Name = "FilterName"
FileProperties(0).Value = "Text - txt - odt"
FileProperties(0).Name = "OverWrite"
FileProperties(0).Value = true
oDoc.storeToURL(sURl, FileProperties())
end sub
Danke für eine kurze Info
Re: Writerdocument als Txt - Datei speichern
Verfasst: Fr, 14.05.2010 17:24
von ykcim
Hallo,
der gewählte Filter ist verkehrt. Richtig ist einfach "Text".
Außerdem überschreibst Du den Filter wieder.
Versuche es mal mit
Code: Alles auswählen
Dim FileProperties(1) as new com.sun.star.beans.PropertyValue
FileProperties(0).Name = "FilterName"
FileProperties(0).Value = "Text"
FileProperties(1).Name = "OverWrite"
FileProperties(1).Value = true
mfg
Michael
Re: Writerdocument als Txt - Datei speichern
Verfasst: Do, 09.09.2010 13:49
von clag
Hallo Leutz,
wie man ein Writer Dokument als Text Datei abspeichern kann wurde bereits hier verständlich besprochen.
Aber, nun wüsste ich auch noch gern wie man die Optionen für
txt-codiert in
Unicode übergibt ?
So wie hier ausgewählt ...
- unicode_txt.png (3.11 KiB) 1553 mal betrachtet
Wer verrät mir das, Bitte
!
Re: Writerdocument als Txt - Datei speichern
Verfasst: Do, 09.09.2010 14:50
von Karolus
Hallo
Mein OOo schlägt mir an dieser Stelle Unicode(UTF-8) vor, was auch der Zeichencodierung meines BS entspricht.
Gruß Karo
Re: Writerdocument als Txt - Datei speichern
Verfasst: Do, 09.09.2010 16:27
von clag
Hallo Karo,
mit deinem Vorschlag komme ich nicht zurecht und mit dem was der Makrorecorder mir aufgezeichnet hat aber auch nicht
was mach ich da nur wieder falsch ?
- unicode-export.png (8.52 KiB) 1541 mal betrachtet
mit dem auskommentieren 2 Zeilen hat es anstandslos eine Standard .txt exportiert
deine Vorschlag hatte ich so verstanden
Code: Alles auswählen
myFileProptxt(0).Name = "FilterName"
myFileProptxt(0).Value = "Unicode(UTF-8)"
Re: Writerdocument als Txt - Datei speichern
Verfasst: Do, 09.09.2010 17:10
von Karolus
Hallo
Was soll der Screenshot ? - bist du damit überfordert die zwei kurzen Sätze der Fehlermeldung abzutippen..
Wenn du 2 Name/Value Paare übergibst solltest du vorher auch entsprechend dimensionieren:
Dim MyFileProptxt(1)...
Gruß Karo
Re: Writerdocument als Txt - Datei speichern
Verfasst: Do, 09.09.2010 17:41
von clag
Hallo Karo,
naja mit einem sreenshot vehindert man zumindest Schreibfehler........
du hattest recht, denn kaum macht man es richtigt
(1) schon funktioniert es auch
