Anlegen eines OpenOffice-Makros für die korrekte Textübernahme aus 4Bibeln

4Bibeln und OpenOffice arbeiten standardmäßig offenbar mit zwei verschiedenen
Codetafeln für deutsche Sonderzeichen. Deshalb werden diese beim Kopieren aus
4Bibeln und Wiederinfügen in OpenOffice falsch dargestellt.

Das Problem kann man vermeiden, indem man statt des normalen Einfügen-Befehls
(STRG-V) oder des Menüpunktes "Bearbeiten" - "Einfügen" die Kombination
STRG-SHIFT-V oder "Bearbeiten" - "Inhalte einfügen" und dann "Unformatierter
Text" wählt.

Das ist jedoch verhältnismäßig unkomfortabel, und so liegt es nahe, diese
Aufgabe einem Makro zu übertragen und dann auf eine wenig gebrauchte Taste zu
leben. Das geht so:

1. Gehen Sie in OpenOffice.org.2.x zum Menüpunkt "Extras" - "Makros" - "Makro
aufzeichnen".

2. Betätigen Sie eine beliebige Taste (z. B. "Eingabe").

3. Klicken Sie auf "Aufzeichnung beenden".

4. Sie werden aufgefordert, dem aufgezeichneten Makro einen Namen zu geben.
Vergeben Sie den Namen "EinfHTML" und klicken Sie anschließend auf die
Schaltfläche "Speichern".

5. Gehen Sie zum Menüpunkt "Extras" - "Makros" - "Makros verwalten" -
"OpenOffice.org Basic".

6. Klicken Sie sich zum Makro "EinfHTML" durch und anschließend auf die
Schaltfläche "Bearbeiten".

7. Löschen Sie alles, was in diesem Makro steht, und ersetzen Sie es durch den
Text in der Datei EinfHTML.txt oder durch den folgenden (identischen) Text:


REM  *****  BASIC  *****

sub EinfHTML
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(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SelectedFormat"
args1(0).Value = 1

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

end sub


8. Speichern Sie dieses Makro.

9. Sie können dieses Makro jetzt noch auf eine Taste legen. Ich habe das mit der
Taste F4 gemacht, und zwar so:
Menü "Extras" - "Anpassen" | Reiter "Tastatur" 
Im oberen Feld auf "F4" gehen.
Unten links zu "openOffice.org Makros" gehen und sich über "user" - "standard" -
"Module1" zu "EinfHTML" durchklicken und die Schaltfläche "Speichern" anklicken.

10. Fertig.