Hallo Wolfgang,
Gut, aber das ist doch noch etwas anderes, mittels der Kommandozeile und "/t" bewusst einen Text hintendran zu hängen als das, was bei einer Textverarbeitung bein Speichern oder Speichern unter ... passiert.
Ja und Nein.
Nein deshalb weil ja einfache Texteditoren (und noch einfacher Kommandozeileneditoren wie Edlin) Vorläufer der Textverarbeitungen waren und ich sicher bin das es Textverarbeitungen gab die solche Funktionalitäten hatten, ganz einfach weil ja nicht der Nachfolger von Edlin MS Word für Windows war sondern sich eine schleichende Funktionsvergrösserung vollzog.
Der Nutzer sprach nun von Windows 1.0, das ich nicht kenne und ich kann mir sehr gut vorstellen das dort eine entsprechende Textverarbeitung existierte (man müßte einfach nur recherchieren wie damals der Programmumfang von MS Word (nicht MS Word für Windows) war.
(Due deutschsprachigen Werbeanzeigen bei Einführung von Word für Windows hatten damal im Deutschland den Slogan: 'Microsoft proudly presents - Word for Windows'.)
Du jedoch schriebst:
vermute ich, dass er da etwas falsch in Erinnerung hat
was ja nun heißt es gab die Funktion nie in einer Textverarbeitung (es sei denn ich verstünde das falsch) und da habe ich sehr starke Zweifel.
Ich denke da an so etwas wie Makros oder irgendeine Scriptsprache. Es sollte dann aber auch einen Menüpunkt oder wenigstens einen Button dafür geben, der dann so eine Art 'Öffnen-Dialog' öffnet, in dem man dann die Datei aussuchen kann, unter der das geschriebes angehängt werden soll.
Im Grundprinzip geht das hier:
Code: Alles auswählen
Sub text_an_datei_haengen()
tauswahl = ThisComponent.getCurrentSelection()
If Not IsNull(auswahl) Then
'nur eine zusammenhängende Auswahl
inhalt = tauswahl.getByIndex(0).getstring()
End If
Dim dateiname As String
auswahl = createunoservice("com.sun.star.ui.dialogs.FilePicker")
With auswahl
.SetMultiselectionMode(False)
.SetTitle("Wählen Sie eine Datei, an welche der aktuell markierte Text angehängt wird")
End With
antwort = auswahl.execute
'wurde Datei gewählt ist antwort 1 sonst 0
if antwort = 1 then
Datei = auswahl.Files(0)
end if
tmp = StarDesktop.loadComponentFromURL ( ConvertToURL(Datei) , "_blank", 0, Array() )
cursor = tmp.text.CreateTextCursor
cursor.gotoEnd(False)
tmp.Text.insertControlCharacter(cursor, com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)
cursor.String = inhalt
tmp.Store
tmp.Close(True)
End Sub
weitere Infos zur Programmierung finden sich im ersten Thread des Basic-Unterforums.
Gruß
Stephan