OpenOffice.info

Sub Clipboard2Rows
	dim outtext()
	odoc = thisComponent
	oCelle=oDoc.getCurrentSelection().getCellAddress()
	osheet = ocelle.sheet
	ocolumn = ocelle.column
	orow = ocelle.row
intext = inputbox("Füge deinen Text ein")
if intext = "" then : exit sub : end if
outtext() =  split(trim(intext)) 
for i = 0 to ubound(outtext()) 
	if outtext(i) <> "" then
		odoc.sheets(osheet).getcellbyposition(ocolumn,orow).string = outtext(i)
		orow = orow+1
	end if
next i
End Sub

Hallo Jochen
Falls deine Stichwörter zumindest mit Leerzeichen getrennt in der Zwischenablage landen, könntst du diese über das folgende Makro in Calc einfügen.

[code]Sub Clipboard2Rows
dim outtext()
odoc = thisComponent
oCelle=oDoc.getCurrentSelection().getCellAddress()
osheet = ocelle.sheet
ocolumn = ocelle.column
orow = ocelle.row
intext = inputbox("Füge deinen Text ein")
if intext = "" then : exit sub : end if
outtext() = split(trim(intext))
for i = 0 to ubound(outtext())
if outtext(i) <> "" then
odoc.sheets(osheet).getcellbyposition(ocolumn,orow).string = outtext(i)
orow = orow+1
end if
next i
End Sub[/code]

Der Arbeitsablauf wäre:
1. kopiere in die Zwischenablage
2. selektiere in Calc die erste Zelle ab der eingefügt werden soll.
3. Rufe das Makro auf, und füge die Zwischenablage im Inputdialog ein.

[url]http://www.ooowiki.de/MakrosInstallieren[/url]
[url]http://www.ooowiki.de/MakrosMitEinemKlick[/url]

Gruß Karo

Ehrlich gesagt fällt mir da auch nicht viel Schlaues ein.
Wenn Deine Stichwörter alle mit einem Großbuchstaben anfangen würden (was aber ja vermutlich nicht der Fall sein wird), könnte man mit einem Zwischenschritt so etwas basteln (lässt sich teilweise als Makro aufzeichnen):
Du fügst den kopierten Zeichenstring zunächst am Ende des Textdokumentes ein, markierst ihn, rufst auf: Suchen und Ersetzen
Suchen nach:
[:upper:]?
ersetzen durch: \n&
ankreuzen: Groß-/Kleinschreibung, regulärer Ausdruck, nur in Selektion
und drückst: ersetze alle
So bekommst Du bei jedem Großbuchstaben eine neue Zeile, kannst den Block jetzt ausschneiden und in die Calc-Tabelle übernehmen.

Die Variante mit echten Index-Einträgen:
Du markierst per CTRL+Markieren alle gewünschten Stichwörter. Rufst auf: Einfügen/Verzeichnisse/Verzeichniseintrag, wählst "Stichwortverzeichniseintrag" und bestätigst das nächste Fenster ohne weitere Eingaben.
Dann:
Einfügen/Verzeichnisse/Verzeichnis:Stichwortverzeichnis, dabei bei "Einträge" die Seitennummer und den Tabulator (T und #) löschen.
Jetzt bekommst Du pro Eintrag eine Zeile, kannst die kopieren, in Calc übernehmen und das überflüssige Verzeichnis wieder löschen.

mfG

[quote="Eia"]Aber was ist denn der Zweck dieses Vorgehens?[/quote]

Vielen Dank für die rasche Antwort.
Ich versuchs mal zu erklären. Ich habe eine Unmenge an Dokumenten auf dem Rechner auf die ich immer wieder zurückgreifen muss, und zwar in der Form dass ich über meine Desktopsuche (Copernic Desktop Search) ein (oder mehrere) Stichwörter aus meinem alphabetischen Stichwortindex eingebe und mir die Dokumente, die diese Stichwörter enthalten aufzulisten. Diese kann ich dann über die Vorschaufunktion von Copernic durchblättern, lesen und eventuell aufrufen um sie zu bearbeiten. Diese Dokumentensammlung besteht allerdings nicht nur aus Worddokumenten sondern auch aus E-Mails und PDF (z.B. eingescannte Zeitungsartikel die mittels Abbyy Finereader durchsuchbar gemacht wurden).
Also, immer wenn ich in ein neues Dokument erstelle (ob selbst geschrieben oder gescannt oder per E-Mail erhalten) markiere ich mir die wichtigen Stichwörter und füge sie in die besagte Excelliste ein. Ich habe mir so ein Stichwortregister aller verfügbaren Dokumente erstellt.
Ich weiss dass es sogenannte Zettelkasten-Programme gibt (z.B. Zettelkasten von Daniel Lüdecke oder Synapsen) aber als ich mit dieser Art von Textverwaltung angefangen hatte wußte ich davon noch nichts. Wahrscheinlich ist diese Art recht vorsintflutlich aber ich komme ganz gut zurecht.
Nur dier Umstieg auf OOo hat mir jetzt einen Strich durch die Rechnung gemacht. Oder kann ich diese Arbeitsweise in OOo sogar besser integrieren?
Danke
Jochen

[quote="Jochen1"]dass es funktioniert wie unter Word und Excel?[/quote]
Nein. Eine Mehrfachselektion wird wie eine erweiterete Selektion behandelt, ohne Einfügen zusätzlicher Zeilenschaltungen.
Aber was ist denn der Zweck dieses Vorgehens?
Zunächst die Frage:
Warum erstellst Du den Index nicht mit der Stichwortverzeichnis-Funktion des Writers?
Und wenn Du die Stichworteinträge tatsächlich in einer Calc-Tabelle benötigst, gäbe es auch verschiedene Varianten.
Z.B. könntest Du ein Verzeichnis erstellen, bei dem Du z.B. die Seitennummern weg läßt. Nach Fertigstellung markierst Du das Verzeichnis und kopierst es in eine Calc-Tabelle.
Oder noch eleganter:
Du arbeitest mit einer [url=http://www.ooowiki.de/KonkordanzDatei]Konkordanzdatei[/url]
mfG

Guten Tag, ich bin Umsteiger von MS Office.
Ich arbeite zu 99% mit Textverarbeitung benötige aber nun mal Hilfe für Calc.
Folgendes:
ich habe aus einer Vielzahl von Worddokumenten einen Stichwortindex erstellt.
Dazu habe ich die entsprechenden Stichwörter aus den jeweiligen Dokumenten einzeln mit gedrückter STRG-Taste markiert, kopiert und in eine Excel-Tabelle eingefügt. Die kopierten Wörter wurden automatisch untereinander in einzelne Zellen eingefügt. Dann habe ich diese Liste alphabetisch sortiert so dass ich einen alphabetischen Stichwortindex hatte.
So weit so gut, da ich aber auf nun auf OOo umgestiegen bin habe ich das gleiche mit Writer und Calc versucht. Da funktioniert es aber nicht so, denn die einzelnen Wörter werden nicht untereinander in einzelne Zellen eingefügt sondern alle ohne Leerzeichen hintereinander in eine einzige Zelle.
So nützt mir das natürlich nichts. Kann man das irgendwie einstellen so dass es funktioniert wie unter Word und Excel? Ich habe leider nichts gefunden. Vielleicht weiß jemand Rat?
Danke
Jochen