LibreOffice-Forum

Hallo musikai,

dein Code funktioniert auch problemlos.

Danke.

Ich habe mal noch etwas herumprobiert. Solange sich die Ausführung in der While-Schleife befindet, ist ein Löschen der Zeile mit dem Cursor nicht möglich. Außerhalb der While-Schleife funktioniert es. Daher habe ich den Code wie folgt abgwandelt: Option VbaSupport 1 Option Explicit '================...

@karolus. Huch, die Zuweisung muss ich versehentlich gelöscht haben. Sorry. Ich habe sie im Code nachgetragen.

Allerdings bleibt auch damit das Problem bestehen, dass das Löschen der Zeile nicht ausgeführt wird.

Danke für eure Antworten. @miesepeter: Das behalte ich mal im Kopf, falls alle anderen Stricke reißen. :-) @musikai: Ich habe jetzt mal folgendes zusammengebaut: Sub test_paragraph Dim Doc As Object Dim Enum1 As Object Dim Enum2 As Object Dim TextElement As Object Dim TextPortion As Object Dim ViewC...

Da hilft wohl nur das hier:

Wie geschrieben, habe ich AltSearch schon ausprobiert und es hat leider nicht so funktioniert wie gedacht.

@miesepeter: Eine Datei zum Austoben habe ich hochgeladen.

Hallo, ich habe einen Text mit vielen leeren Zeilen drin. Das sieht dann z.B. wie folgt aus: ¶ (An dieser Position ist ein Bild eingefügt, das im Hintergrund liegt. Der Text ist also über dem Bild. ¶ ¶ Lorem ipsum¶ Lorem ipsum dolor sit amet, consectetur adipisici elit, sed eiusmod tempor incidunt u...

Hallo fbarc,
Oh, sorry, mein Fehler. Das funktioniert nur mit aktiviertem VBA-Support.

Ganz oben in dem Modul muss dazu folgendes stehen:
Dann funktioniert auch der restliche Code.

---

edit: Tippfehler korrigiert

Hallo fbarc, etwas spät die Antwort, aber vielleicht hilft sie ja trotzdem weiter. :-) Die erste sichbare Zeile kannst du wie folgt angeben: ThisComponent.getCurrentController().setFirstVisibleRow(54) Calc zeigt als erste Zeile dann die Zeile 54 an. Beispiel: Sub move_cells() Dim w As Worksheet Set ...

Hallo qugart, ich weiß nicht, ob es wirklich was hilft, aber du kannst ja mal c.Value = "" probieren. Dim c As Control For Each c In UserForm1.Controls If TypeOf c Is MSForms.TextBox Then c.Value = "" End If Next Ich hatte nämlich mal das Problem, dass ich eine Zelle in Calc erst befüllen konnte, na...

Hallo musikai, danke für dein Antwort. Ich wäre im Lebtag nie darauf gekommen, dass "Opaque = false" das Bild in den Hintergrund bringt. Ich habe mir auch mal PicTool runtergeladen. Da kann ich mir sicherlich noch das ein oder andere rausziehen. :-) --- Falls jemand den Code von musikai verwenden mö...