[2.3.1] Feldbefehl 'Ordner'

[Thomas D]

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?

[chrk]

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.

[Thomas D]

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? ...

[chrk]

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.

[komma4]

Für den EInsatz im Zellbereich kannst Du eine Formel verwenden:

Code: Alles auswählen

=ZELLE("filename";A1)

Das zeigt Dir (wenn die Datei mal gespeichert wurde!) bspw. protocol:///pfad/dateiname.ods#$Tabellenname
Nun kannst Du mit anderen Formeln [TEIL()] die relevanten Teile rausschneiden.


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

[chrk]

Für den EInsatz im Zellbereich kannst Du eine Formel verwenden:

Äähhhh...Winfried...wir sind hier im Writer-Forum.

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

[Karolus]

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: Alles auswählen

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

hier ausgeliehen und geändert
Kapitel Quelltext übernehmen

Gruß Karo