Mit Libreoffice html-Seiten abspeichern - zwei kleine Tipps

Wer kennt es nicht, das Problem, daß man feststellen muß, daß gerade das Blog, das einen interessanten Text hat oder sogar mehrere davon, dummerweise gelöscht war, als man nachlesen wollte. Oder man kann nachlesen, aber fortan gegen Entgelt. Lösung: Abspeichern auf der eigenen Festplatte zuhause. Es fragt sich bloß, wie am besten?

Meine persönliche Lösung ist die, ich speichere mit Libreoffice-Writer hmtl-Seiten ab. Das direkte Abspeichern von html-Seiten liegt mir nicht.

Ich gehe sukzessive vor und kopiere Stück für Stück des Textes. Dabei fiel mir auf, beim ersten Speichern  - alles natürlich nur für den eigenen Privatgebrauch, wir sind ja keine Raubkopierer - eines zugehörigen Bildes wurde nur ein Internetlink gesetzt, statt das Bild in den Text zu kopieren. Dem mußte Abhilfe geschaffen werden:

Tipp 1: Ziemlich banal, aber hilfreich. Nach dem ersten Kopieren markiere ich das Bild und kopiere ein zweites Mal das Bild (aus dem Zwischenspeicher) auf sich selbst (im Writer-Text). Das hilft. Wenn Sie sich selbst überzeugen wollen: Bild markieren » rechter Mausklick » "Bild" anklicken » Reiter "Bild" anklicken. Das Feld "Dateiname" bei "Verknüpfung" muß leer sein. Gfs. wiederholen Sie bitte die Prozedur.

Nächstes Problem: Wenn ich Text kopiere, habe ich häufig mit doppelten Zeilenümbrüchen zu kämpfen. Hierzu ist es praktisch, sich ein Makro zuzulegen, daß die lästigen Zeilenumbrüche in formatierbare Absatzmarken umwandelt.

Tipp 2: Nachfolgender Makrotext ist in ein Makro-Eingabefeld hinein zu kopieren, und zwar wie folgt:

1. Menü "Extras" anklicken » "Makros" anklicken » "Makros verwalten" anklicken » "Libreoffice Basic" anklicken. Finden Sie "Module1" unter "eigeneMacros" in "Meine Makros" (gfs. durch anklicken öffnen)? Wenn nicht vorhanden, legen Sie bitte "Module1" an.
    
2. Markieren Sie bitte "Module1" und klicken danach bitte "Bearbeiten" an. Sie müßten jetzt das Makro-Eingabefeld sehen.
    
3. Ganz am Ende kopieren Sie nach dem letzten "end sub" (falls vorhanden, sonst einfach ans Ende) nachfolgenden Text in das geöffnete Feld und speichern dann ab:

sub ZeilzuAbs
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(18) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SearchItem.StyleFamily"
args1(0).Value = 2
args1(1).Name = "SearchItem.CellType"
args1(1).Value = 0
args1(2).Name = "SearchItem.RowDirection"
args1(2).Value = true
args1(3).Name = "SearchItem.AllTables"
args1(3).Value = false
args1(4).Name = "SearchItem.Backward"
args1(4).Value = false
args1(5).Name = "SearchItem.Pattern"
args1(5).Value = false
args1(6).Name = "SearchItem.Content"
args1(6).Value = false
args1(7).Name = "SearchItem.AsianOptions"
args1(7).Value = false
args1(8).Name = "SearchItem.AlgorithmType"
args1(8).Value = 1
args1(9).Name = "SearchItem.SearchFlags"
args1(9).Value = 65536
args1(10).Name = "SearchItem.SearchString"
args1(10).Value = "\n\n"
args1(11).Name = "SearchItem.ReplaceString"
args1(11).Value = "\n"
args1(12).Name = "SearchItem.Locale"
args1(12).Value = 255
args1(13).Name = "SearchItem.ChangedChars"
args1(13).Value = 2
args1(14).Name = "SearchItem.DeletedChars"
args1(14).Value = 2
args1(15).Name = "SearchItem.InsertedChars"
args1(15).Value = 2
args1(16).Name = "SearchItem.TransliterateFlags"
args1(16).Value = 1280
args1(17).Name = "SearchItem.Command"
args1(17).Value = 3
args1(18).Name = "Quiet"
args1(18).Value = true

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1())

end sub

Ihr Makro heißt "ZeilzuAbs". Damit Sie das bequem starten können, ändern wir am besten noch die Menüleiste "Extras" entsprechend ab: Menü "Ansicht" » "Symbolleisten" » "Anpassen..." » Reiter "Menüs" » Menü "Extras | Makros" » "Hinzufügen". Nach dem Sie "Hinzufügen" angeklickt haben, wählen Sie im Bereich "Makros" Ihr Makro "ZeilzuAbs" aus. Wenn Sie alles richtig gemacht haben, finden Sie es unter "Module1", Unterpunkt von "EigeneMakros", das wiederum Unterpunkt von "Meine Makros" ist ("Meine Makros" » "EigeneMakros" » "Module1"). "Hinzufügen" und "OK" anklicken, fertig.