OpenOffice.info

Sub GroupShapeObj()
Dim oDoc as Object
Dim oDrawPage as Object
Dim oShapeGroup as Object

oDoc = ThisComponent
oDrawPage = oDoc.DrawPage

oShapeGroup = CreateUnoService("com.sun.star.drawing.ShapeCollection")
for i = 0 to oDrawPage.getCount()-1
oShapeGroup.add(oDrawPage.getByIndex(i ...

Hallo,
zur ersten Frage Wo kommt der Präfix von verlinkten Bild-Dateien her?
Wenn Du in eine leere odt. Datei Bilder einfügst, werden die Namen fortlaufend hochgezählt. Der Präfix hängt von der verwendeten Sprache ab.
Wozu benötigst du denn überhaupt diese Abfrage?
Mit oGraphicObjectsEnumeration ...

Hallo,

ich arbeite derzeit an einem größeren Makro Projekt, bei dem ehemals doc-Dateien in odt umgewandelt werden. In der doc-Datei gibt es sehr viele verlinkte Bilder.

Falls der Link falsch ist, also es zu dem Link keine passende Bild-Datei gibt, dann wird zumindest unmittelbar nach dem um ...

Hi,
die Bilder sind als Zeichen verankert, eine Zeile mehr hilft:
Sub S_get_Text_of_Paragraph_with_Graphic
ocursor = thiscomponent.Text.createTextCursor
oGraphicObjectsEnumeration = thiscomponent.GraphicObjects.createEnumeration
while oGraphicObjectsEnumeration.hasmoreelements
oGraphicObject ...

F3K Total hat geschrieben:Kannst Du ein Beispieldokument hochladen?
Was da mit .doc so passiert, ist schwer einzuschätzen.
Oder gibt es eventuell nur einen Absatz und die Bilder sind anders verankert?
Gruß R

Hi R,

anbei mal eine Beispieldatei.

Danke

Gruß

Apollo

Hi,
wenn die Bilder alle am Absatz verankert sind, sollte dies helfen:

Sub S_get_Text_of_Paragraph_with_Graphic
ocursor = thiscomponent.Text.createTextCursor
oGraphicObjectsEnumeration = thiscomponent.GraphicObjects.createEnumeration
while oGraphicObjectsEnumeration.hasmoreelements ...

Hi,

ich habe folgendes Problem:

Es gibt sehr viele WORD Dokumente die nun weiter in LibreOffice bearbeitet und gepflegt werden sollen. Die WORD Dateien beinhalten sehr viele Bilder die lediglich verlinkt wurden. Die Verlinkung hängt an einem Zeichen pro Absatz. Es kann immer nur ein Bild pro ...

Hallo Stephan,

Sorry mein Fehler. Dein Vorschlag funktioniert:
oPar.string = TableStr

Dieses natürlich auch:

oPar.setString(TableStr)

Ich hatte dummerweise folgendes u.a. probiert:

oPar.Text.setString("Dies ist der neue Text")

Was dann zu einer Meldung führte:

BASIC-Laufzeitfehler ...

Hallo Stephan,

vielen Dank für deine Antwort.

Ich bin nicht mehr im Büro. Muss gestehen, dass ich die Version nicht weiß. Ich schaue morgen mal nach.

Was evtl. auch dafür sprechen würde, beim Debugen des Variableninhalts kam es ab und zu zu einem Totalabsturz des Programms.

Danke

Gruß

Apollo

Hallo,

ich versuche einen Absatz vor einer Tabelle einzufügen.

Folgende Ausschnitte des Codes:


oText = ThisComponent.getText() 'ganze Text des Dokuments
oPar = ThisComponent.createInstance("com.sun.star.text.Paragraph")


oText.insertTextContentBefore (oPar, oTable) 'Leerer Absatz wird vor der ...

Hallo Stephan,

danke für deine schnelle Antwort.


'händisch' hieße hier den zu kopierenden Text komplett zu untersuchen, im Prinzip jedes einzelne Zeichen, die gefundenen Formatierungen 'merken', den Text kopieren und die Formatierungen wieder setzen.


Also alle Absatzteile innerhalb des Absatz ...

Hallo Peter,

vielen Dank für deine Antwort.

Leider stehe ich anscheinend auf dem Schlauch. Str+C sind doch Tastenkombinationen mit denen ich einen markierten Text in die Zwischenablage kopiere und ihn anschließend wieder einfüge (Str-V). Ich möchte das aber mit einem Makro erledigen und nach ...

Hallo,

ich möchte einen Absatz mit unterschiedlichen Text-Formatierungen in einen anderen Absatz kopieren - also nicht nur den String-Inhalt. Ich würde das ganze aber gerne ausschließlich über einen TextCursor lösen. Ich habe einige Erfahrung in VB für Word und kenne daher das Arbeiten mit dem ...

Ja, Guten Morgen Apollo102 )))))))))

Danke Peter. Manchmal kann das Leben so einfach sein )

Wo ist die Symbolleiste hin?
Hallo,

ich habe eine eigene Symbolleiste erstellt. Nach einem Programmstart ist sie leider verschwunden. Ich habe zwar einen Workaround gefunden um sie wieder hervor zu zaubern, aber verstehe noch nicht wirklich woran es liegt.

Für jede selbst erstellte Symbolleiste ...