Libre Office Writer. Name in der Kopfzeile = Dateiname -> Automatisch setzen

[flashmastär]

Hi

Ich kannte es von meiner alten Office Word Version, wenn ich ein Dokument speichern will, das er den Teil des Textes den ich als ersten erstelle (Überschrift oder einfach irgendwas) , dass das auch Automatisch eingefügt wurde in die Spalte "Dateiname"

Das macht Witer nicht. Da steht nur "unbeaknnt.odt"

Kann man das einstellen?

 

[TomTDooley]

Nein. Kann man nicht.

Zum Auslesen einer Spalte/Zelle benötigt es ein Makro.
Möglicherweise hat jemand so etwas schon geschrieben und veröffentlicht.

Google weiß mehr.

 

[flashmastär]

Was heißt Makro?
Heißt das man kann bei Libre selbst
dran ,, rumbasteln,,

 

[Jawohl]

Eventuell genügt für Dein Anliegen auch der Makrorkorder: Die ersten x Zeichen markieren und kopieren, dann den Speicherndialog öffnen und die Zeichen einfügen.

 

[TomTDooley]

Für eine schnelle Antwort habe ich die Google-KI befragt, um zu zeigen wie ein Makro aussehen kann

--CODE--
Sub TitelSetzenUndSpeichernUnter()
Dim oDoc As Object
Dim oSelection As Object
Dim sTitel As String
Dim oFileDialog As Object
Dim aFilePickerArgs(0) As Integer
Dim sUrl As String

oDoc = ThisComponent
oSelection = oDoc.CurrentController.Selection

' Prüfen, ob eine einzelne Zelle ausgewählt ist
If Not oSelection.supportsService("com.sun.star.sheet.SheetCell") Then
MsgBox "Bitte wählen Sie eine einzelne Zelle aus!", 16, "Fehler"
Exit Sub
End If

sTitel = Trim(oSelection.getString())

' Prüfen, ob die Zelle leer ist
If sTitel = "" Then
MsgBox "Die ausgewählte Zelle ist leer!", 48, "Fehler"
Exit Sub
End If

' 1. Dokumententitel in den Metadaten setzen
oDoc.DocumentProperties.Title = sTitel

' 2. "Speichern unter"-Dialog initialisieren
oFileDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
aFilePickerArgs(0) = com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION
oFileDialog.initialize(aFilePickerArgs())

' Standard-Dateinamen basierend auf dem Zellinhalt vorschlagen
oFileDialog.setDefaultName(sTitel)

' Dialog anzeigen und Datei bei Klick auf "Speichern" sichern
If oFileDialog.execute() = com.sun.star.ui.dialogs.ExecutableDialogResults.OK Then
sUrl = oFileDialog.getFiles()(0)
oDoc.storeAsURL(sUrl, Array())
MsgBox "Datei erfolgreich unter '" & sTitel & "' gespeichert.", 64, "Erfolg"
End If
End Sub


--CODE ENDE --


Dieses Marko ist ungeprüft und bezieht sich auf ein Tabellen-Dokument.

In LibreOffice stehen diese dann unter EXTRAS --> MAKROS --> "Makros verwalten" zum Bearbeiten und Verwalten zur Verfügung.

 

[flashmastär]

@Jawohl Finde ich dafür auch eine weitergehende Anleitung, habe keinen Plan was das ist.

Und dann macht er das in Zukunft Automatisch?

 

[TomTDooley]

@flashmastär

Du kannst Makros und Aufzeichnungen z.B. fest mit einer Vorlage verknüpfen, damit diese automatisch ausgeführt werden.

Nachtrag: In dem Fall ist das Marko mit der Funktion "Speichern unter" verknüpft.

 

[cumulonimbus8]

(In so sehr vielen Jahren ist mir das ‹unbenannt› weit lieber geworden als das was MSO/MSW, bei mir ab W95, tut: diese reichlich sinnbefreite erste Ziele als Dateiname reinknallen die ich wirklich niemals nie gebrauchen konnte.
CN8)

PS: um zu lügen - aber ich muss um so zu speichern das Makro aufrufen und nicht den normalen Dialog?!?
Diese Python-Makros, und es müsste eh immer eine frisierte Vorlage nutze werden, kennen meins Wissen nach keine Auto-Makros im Stile von DocumentBeforeClose - oder bin ich auch da zurück?

 

[flashmastär]

Bei mir haute das immer gut hin.

als das was MSO/MSW, bei mir ab W95, tut: diese reichlich sinnbefreite erste Ziele als Dateiname reinknallen die ich wirklich niemals nie gebrauchen konnte

 

[TomTDooley]

@cumulonimbus8

Nein, Du musst das Marko nicht aufrufen. Wenn Du Dir den "Zuweisen"-Dialog anschaust, findest Du die Lösung. (Screenshot kann ich bei Bedarf nachreichen)

Bevor Fragen kommen

Screenshot:

 

[cumulonimbus8]

Schau an 🙂
Kommt davon von Berufs wegen an VBA und dessen Auto-Makros zu kleben.