OpenOffice.info

sub ordner_einfuegen
  odoc = thiscomponent
  Dim Var as String
  Dim oTextfieldMaster As Object
  Dim oPropSet as Object
  Dim oDependentTextFields as Object
  Dim oXDependentTextField as Object
  Dim oTextFields as Object
' Die Variable wird über den festgelegten Namen, hier "Ordner", aufgerufen
  Var ="com.sun.star.text.FieldMaster.SetExpression.Ordner"
  oTextfieldMasters = oDoc.getTextFieldMasters()
  oPropSet = oTextfieldMasters.getByName(Var)
  oDependentTextFields = oPropSet.DependentTextFields
  oXDependentTextField = oDependentTextFields(0)

	apfad() = split(oDoc.url,"/")
	ordner = apfad(ubound(apfad())-1)
  
  oXDependentTextField.setPropertyValue("Content",ordner)
  odoc.textfields.refresh()
end sub

Hallo
Eine schnelle Lösung gibts nicht, aber:
Leg einen Feldbefehl an: ->andere->Variablen-Variable setzen: mit dem Namen:'Ordner' im Feld Wert 'irgendetwas' und dem Format 'Text'

verknüpfe folgendes Makro mit ->extras->Anpassen->Ereignisse->Dokument öffnen.
[code]sub ordner_einfuegen
odoc = thiscomponent
Dim Var as String
Dim oTextfieldMaster As Object
Dim oPropSet as Object
Dim oDependentTextFields as Object
Dim oXDependentTextField as Object
Dim oTextFields as Object
' Die Variable wird über den festgelegten Namen, hier "Ordner", aufgerufen
Var ="com.sun.star.text.FieldMaster.SetExpression.Ordner"
oTextfieldMasters = oDoc.getTextFieldMasters()
oPropSet = oTextfieldMasters.getByName(Var)
oDependentTextFields = oPropSet.DependentTextFields
oXDependentTextField = oDependentTextFields(0)

apfad() = split(oDoc.url,"/")
ordner = apfad(ubound(apfad())-1)

oXDependentTextField.setPropertyValue("Content",ordner)
odoc.textfields.refresh()
end sub[/code]

[url=http://de.openoffice.info/viewtopic.php?f=18&t=13065&p=52303&hilit=feldbefehl#p52303]hier ausgeliehen und geändert[/url]
[url=http://www.ooowiki.de/MakrosInstallieren]Kapitel Quelltext übernehmen[/url]

Gruß Karo

[quote="komma4"] Für den EInsatz im Zellbereich kannst Du eine Formel verwenden: [/quote]
Äähhhh...Winfried...wir sind hier im Writer-Forum.

Thomas sucht wohl eine Lösung für Textdokumente.

=ZELLE("filename";A1)

Für den EInsatz im Zellbereich kannst Du eine Formel verwenden:
[code]=ZELLE("filename";A1)[/code]
Das zeigt Dir (wenn die Datei mal gespeichert wurde!) bspw. [color=#BF40FF]protocol://[/color][color=#008000]/pfad/[/color][color=#0040FF]dateiname.ods[/color]#[color=#FF8040]$Tabellenname[/color]
Nun kannst Du mit anderen Formeln [[color=#008000]TEIL()[/color]] die relevanten Teile rausschneiden.


Möchtest Du den Ordnernamen woanders einsetzen, so bleibt nur Basic.

Och, da habe ich Dich ja völlig mißverstanden.
Entschuldige.

Nein, nicht so einfach, die Felder kann man ja nur im Rahmen des Dialogs bearbeiten.

Mit Basic sollte das gehen, ob der übergeordnete Ordner als Eigenschaft direkt zugänglich ist, weiß ich nicht. Aber könnte zur Not den Pfad als String hernehmen und bis zum vorletzten Pfadtrenner herauskopieren.

Da musst Du mal allerdings mal im Basic-Forum fragen, ob Dir jemand ein Snippet anbieten kann.

Hallo!

Diese Felder habe ich eh, allerdings fehlt mir eines für den Ordner (also nicht den kompletten Pfad). Wäre es eventuell möglich, sich das aus dem Pfad herauszubasteln? ...

Hallo Thomas,
mit 2.1.4 und 3.0 hättest Du beim Feld "Dateiname" vier Formatoptionen: Dateiname/ohne Erweiterung, Pfad und Pfad/Dateiname.

Mit 2.3.1 kann ich nicht mehr dienen.

Hallo!

Als Feldbefehl kann ich unter der Registerkarte "Dokument" den kompletten Pfad, sowie den Dateinamen vergeben. Gibt es allerdings auch eine Möglichkeit nur die Ordnerbezeichnung, in dem die Datei liegt, anzugeben?