Makro OpenOffice - Datenbearbeitung

Hallo,

wer kann mir bei der Erstellung eines Makros in OpenOffice helfen?

Es soll eine unterschiedliche Anzahl von Zeilen im Writer(mehrere hundert) mit Ziffern:

9780007172474
9780007201808
9780091819811
9780123704696
9780123740212

in diese Form, also mit Komma oder Semikolon getrennt in einer Zeile, gebracht werden:

9780007172474,9780007201808,9780091819811,9780123704696,9780123740212,…

Die Daten liegen auch als Tabelle vor, vll. gibt es im StarCalc noch eine einfachere Lösung?

Vielen Dank für Eure Hilfe!

LG
Ronny

Hallo,

wer kann mir bei der Erstellung eines Makros in

OpenOffice

helfen?

Es soll eine unterschiedliche Anzahl von Zeilen im
Writer(mehrere hundert) mit Ziffern:

9780007172474
9780007201808
9780091819811
9780123704696
9780123740212

in diese Form, also mit Komma oder Semikolon getrennt

in einer

Zeile, gebracht werden:

9780007172474,9780007201808,9780091819811,978012370469

6,9780123740212,…

Die Daten liegen auch als Tabelle vor, vll. gibt es im
StarCalc noch eine einfachere Lösung?

Vielen Dank für Eure Hilfe!

LG
Ronny

Hallo Ronny,
eine Möglichkeit ist die Funktion VERKETTEN.
Im Beispiel habe ich die Werte in A1 und A2 und
dazwischen ein Komma verkettet):
=VERKETTEN(A1;",";A2)
mfg
Maria

Hi,

ein „ganze normales“ Makro sollte hier helfen. Da machste dann noch eine Schleife rum, die es in der entsprechenden Anzahl ausführt (oder so lange bis end of file erreicht ist):

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

Sub Main

End Sub

sub test
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, „.uno:GoToEndOfLine“, „“, 0, Array())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = „Text“
args2(0).Value = „,“

dispatcher.executeDispatch(document, „.uno:InsertText“, „“, 0, args2())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, „.uno:smiley:elete“, „“, 0, Array())

end sub

Hallo Ronny,

sorry, dass ich erst heute zurückschreibe, bin aber leider nicht früher dazu gekommen.

Das einfachste dürfte sein, wenn du dir ein Makro aufzeichnest. Du brauchst folgende Befehle:

  • Ende-Taste
  • Komma tippen
  • Entf-Taste

Deinem Makro ordnest du dann ein Tastenkürzel zu und drückst dieses so lange, bis alle Sätze verarbeitet wurden.

Hoffe ich konnte dir helfen, falls du noch Fragen dazu hast: immer zu! :smile:

Grüße

Franz

Hallo Ronny,

leider kenne ich mich Makro Programmierung in OpenOffice nicht aus.

Ich habe einmal gegoogletund folgendes gefunden:

http://forum.chip.de/office/openoffice-zeichen-erset…

Oder nur mit suchen & ersetzen ohne Makro hier:

http://borumat.de/openoffice-writer-tipps#zeilenumbr…

Angelehnt an die Beschreibung zu „Zeilenumbruchsmarke durch Absatzmarke ersetzen“ müsste es auch eine Lösung geben.

Gruß Frank

Ergänzung zu Suchen und ersetzen:

Suchen nach $
Ersetzen durch ,
Mehr Optionen und Häkchen bei RegulärerAusdruck

Dann alleersetzen!

Gruß frank

Vielen Dank, so einfach kann manchmal die Lösung sein.

LG
Ronny

Hallo Ronny,

bin leider nicht der Makro-Experte aber mit Datenbearbeitung kenne ich mich ganz gut aus.

Wenn alle Daten mit 97… anfangen könntest du einfach suchen/ersetzen bzw ein Makro mit suchen/eretzen aufzeichen. Nachteil der erste Wert erhält auch ein Komma vorweg aber das kann man im Makro auch wieder löschen.

Was möchtest du mit deinen Daten machen? Wenn du alle Werte in eine Zeile bringen willst kannst du später im Calk nichts mehr damit anfangen weil zum einen die Zahl der Spalten begrenzt ist (256).

Soviel von mir. Wenn es noch fragen gibt einfach melden.

Gruss
Nils

Hallo,

wer kann mir bei der Erstellung eines Makros in OpenOffice
helfen?

Es soll eine unterschiedliche Anzahl von Zeilen im
Writer(mehrere hundert) mit Ziffern:

9780007172474
9780007201808
9780091819811
9780123704696
9780123740212

9780007172474,9780007201808,9780091819811,9780123704696,9780123740212,…

LG
Ronny

Sorry das ich jetzt erst Antworte.

Makros habe ich in OpenOffice noch nicht benutzt, deshalb kann ich Dir dabei nicht helfen.

Hallo Ronny,

in Word geht das ganz einfach. Suchen Absatzmarke ersetzen durch ,. Fertig. Könnte mir vorstellen dass das in Writer ähnlich ist.

Schau dich hier mal um, sollte auf Writer übertragbar sein

http://www.kostenloses-training.de/word/index.html

Grüße
Henning