Writer: Text in anderer Schriftart doppeln

[Ich Bins]

Hallo zusammen,

in einem Writer-Dokument mit zwei Tabellenspalten und einer Zeile möchte ich in der linken Spalte einen Text z.B. mit der Schriftart Arial schreiben.
In der rechten Spalte soll parallel beim Schreiben der Text in einer anderen Schriftart erzeugt werden.

Schriftarten.JPG (63.55 KiB) 2853 mal betrachtet

Kann man das mit Basic realisieren?

Viele Grüße
Ich Bins

[miesepeter]

Kann man das mit Basic realisieren?

Weiß ich nicht. Mit dem Einsatz von Bereichen und Synchronisieren würde ich's versuchen. Beispieldatei anbei. - Ciao
.

BereicheVerknuepfen.odt

(61.72 KiB) 194-mal heruntergeladen

[Ich Bins]

Hallo miesepeter,

vielen Dank für Deinen Lösungsvorschlag und die Beispieldatei.
Deinen Vorschlag könnte ich gut nutzen, wenn ich auf der rechten Seite dauerhaft eine andere Schriftart einstellen könnte.

Viele Grüße
Ich Bins

[miesepeter]

Deinen Vorschlag könnte ich gut nutzen, wenn ich auf der rechten Seite dauerhaft eine andere Schriftart einstellen könnte.

Das geht halt prinzipiell nicht. Du kannst jedoch immer die rechte Spalte der Tabelle markieren und einfach die bestehende Absatzvorlage anwenden (Doppelklick). Ansonsten: Vielleicht schreibt dir ein Spezialist ein Makro dazu. Jedenfalls: Viel Erfolg!

[karolus]

Kann man das mit Basic realisieren?

Bestimmt!
von mir gibts aber nur python:

Code: Alles auswählen

def sync_A1_B1(*_):
    doc = XSCRIPTCONTEXT.getDocument()
    table = doc.TextTables.Tabelle1
    input = table.getCellByName("A1").Text.String
    output = table.getCellByName("B1").Text
    output.String = input.replace('\n','\r').strip()
    for para in output.Text:
        para.ParaStyleName = "schreibschrift"

[Ich Bins]

Vielen Dank.

Du kannst jedoch immer die rechte Spalte der Tabelle markieren und einfach die bestehende Absatzvorlage anwenden (Doppelklick).

Konnte ich leider nicht nachvollziehen. Ist aber vorerst zurückgestellt weil ich auf
"wackligen Beinen meine ersten Gehversuche" mit Python mache.

[Ich Bins]

Hallo karolus,

mein erstes in Notepad++ abgetipptes Python-Makro "Summe_Calc.py"

Code: Alles auswählen

# coding: utf-8
from __future__ import unicode_literals
# 1) Werte aus dem Arbeitsblatt holen.
desktop = XSCRIPTCONTEXT.getDesktop()
model = desktop.getCurrentComponent()
sheet = model.CurrentController.ActiveSheet
range = sheet.getCellRangeByName("A1:A3")
# 2) Einige Werte.
sum = 0
for row in range.Rows:
    sum += row.getCellByPosition(0,0).Value
# 3) Das Ergebnis an das Arbeisblatt übergeben.
sheet.getCellRangeByName("B3").Value = sum
# useful for debug
from apso_utils import msgbox
msgbox('done')

das unter
C:\Users\IchBins\AppData\Roaming\LibreOffice\4\user\Scripts\python
gespeichert ist kann ich mit dem APSO Python-Interpreter ausführen.

erfolgreich.JPG (21.34 KiB) 2745 mal betrachtet

Versuche ich selbiges mit Deinem Code "von_karolus.py" öffnet sich die APSO console ohne eine weitere sichtbare Aktion.
Ich gehe davon aus, dass Dein Code für meinen Anwendungsfall in Writer gedacht war.
Würdest Du mir bitte die richige Vorgehensweise für Deinen Code verklickern?

Viele Grüße
Ich Bins

[karolus]

Wie zum Teufel schaffst du den Slalom VORBEI am Offensichtlichen?

parlell.odt

(59.34 KiB) 170-mal heruntergeladen

Die python-funktion ist gebunden ans Ereigniss: »Dokument Speichern«

[karolus]

Hallo

@summe_calc.py:
Ich frage mich woher diese seltsamen Beispiele kommen, das ganze ist ein Dreizeiler in der Konsole

Code: Alles auswählen

doc = XSCRIPTCONTEXT.getDocument()
sheet = doc.CurrentController.ActiveSheet
sheet["B6"].Value = sum( sum(x for x in row if isinstance(x, float)) 
                        for row in sheet["A1:D3"].DataArray ))

[miesepeter]

Hallo,
die Installation von APSO.oxt endete bei mir mit einem Aufhänger; LibreOffice ließ sich danach nicht mehr starten. Erst ein Computerneustart brachte Abhilfe (und ja, APSO war dann bei den Extensionen verzeichnet)...

Ich habe noch einmal meine grauen Zellen beschäftigt und kam auf eine Lösung des Problems mit Hilfe von DDE - DDE im selben Dokument. Alles ohne spezielles Makro. Beispieldatei (mit Anleitung innerhalb) und Screenshot anbei. Es läuft nicht ganz so gut wie @karolus' Makro.

@karolus: Deine Version (Makro) arbeitete gut! Chapeau!
.

DDE_Einfuegen_UpdateAll.png (37.28 KiB) 2707 mal betrachtet

.

DDE_TextDuplizieren.odt

(75.01 KiB) 189-mal heruntergeladen