OpenOffice.info

Danke für die schnellen Antworten. Der Code von F3K Total funzt! Super :D
Danke auch an Balu, deine Datei guck ich mir nachher auch noch an.
Gruß
MH50

function get_work_directory
tmp_pfad = CreateUnoService("com.sun.star.util.PathSettings")
get_work_directory = tmp_pfad.work
msgbox get_work_directory
End function

Hi,
mit folgendem Code solltest Du Dein Arbeitsverzeichnis bekommen:
[code]function get_work_directory
tmp_pfad = CreateUnoService("com.sun.star.util.PathSettings")
get_work_directory = tmp_pfad.work
msgbox get_work_directory
End function[/code]
Unter W7 komme ich auf [color=#0040FF]/documents[/color] unter XP auf [color=#0040FF]/eigene Dateien[/color], sollte funzen!
Gruß R

Edit: da hat sich meine Antwort mit der von Balu zeitlich überschnitten.
Edit2: Um mich nicht mit fremden Federn zu schmücken: der Code kommt von Stephan->[url]http://de.openoffice.info/viewtopic.php?f=18&t=52015#p193757[/url]

Hallo MH,

eine direkte Antwort und Lösung habe ich nicht, aber vielleicht den passenden Tipp für dich.
Wie wärs denn wenn Du die Umgebungsvariable für das Verzeichnis aus dem Betriebssystem ausliest?
Hab da mal eine Testdatei zum auslesen angehängt. Vielleicht kommst Du damit weiter.


Gruß
balu

Sub TextEinlsen 
REM Text aus Datei einlesen
Dim FileNo As Integer
Dim CurrentLine As String
Dim File As String
Dim Msg as String
' Dateiname festlegen
sURL = ThisComponent.url
Filename = "C:\Users\Arbeit\Documents\OpenNumero" &"\Texte\"& TextName &".txt"
Print Filename
FileNo = Freefile
' Datei öffnen (Lesemodus)
Open Filename For Input As FileNo
' Prüfen, ob Dateiende erreicht ist
Do While not eof(FileNo)
' Zeile lesen
Line Input #FileNo, CurrentLine
If CurrentLine <>"" then
Msg = Msg & CurrentLine & Chr(13)
end if
Loop
' Datei schließen
Close #FileNo
Msgbox Msg
End Sub

Hallo Leutz,
ich möchte über ein Basic-Macro eine Datei öffnen um Teile des Inhalts in ein Textdokument einzufügen. Das Makro soll sowohl in Win XP, Vista + Win7 funktionieren. Die zu öffnende Datei liegt in einem Ordner in "Eigene Dateien", bzw. "Documents" (Win7). Also brauche ich den relativen Pfad. und da gehts los. Meine Suchereien in div. Dokumentationen und im Netz halfen nicht richtig weiter. Es wird immer nur ein [u]genauer [/u]Pfad angegeben. Momentan experimentiere ich mit folgendem Code:

[code]Sub TextEinlsen
REM Text aus Datei einlesen
Dim FileNo As Integer
Dim CurrentLine As String
Dim File As String
Dim Msg as String
' Dateiname festlegen
sURL = ThisComponent.url
Filename = "C:\Users\Arbeit\Documents\OpenNumero" &"\Texte\"& TextName &".txt"
Print Filename
FileNo = Freefile
' Datei öffnen (Lesemodus)
Open Filename For Input As FileNo
' Prüfen, ob Dateiende erreicht ist
Do While not eof(FileNo)
' Zeile lesen
Line Input #FileNo, CurrentLine
If CurrentLine <>"" then
Msg = Msg & CurrentLine & Chr(13)
end if
Loop
' Datei schließen
Close #FileNo
Msgbox Msg
End Sub[/code]

"TextName" ist eine Variable die in einer anderen Sub "errechnet" wird. Dieser Code funktioniert soweit. Aber unter zB XP ist dann der Pfad anders.
Mit ThisComponent.url habe ich aber auch den eigentlichen Dateinamen drin + der stört.
Hat jemand eine Idee?