OpenOffice.info

Hallo Danke für Eure Hinweise,

bin jedoch um das Problem zu lösen hingegangen und jeden Textblock in einem eigenen Dokument zu speichern. Dort markiere und Kopiere ich den Kompletten Inhalt des Dokumentes und füge Ihn in das gewünschte Dokument. Arbeite dabei wie oben auch mit dem View-Cursor. Klappt soweit ganz gut.

Gruss und Dank

Scalaia990

Sub Text_from_Bookmark
Dim  oBookmarkAnchor As Object
Dim oDoc as Object
Dim BM_String as String
	odoc=ThisComponent
	oViewCursor = oDoc.CurrentController.getviewCursor()
	odoc = ThisComponent
	Cursor = oDoc.Text.createTextCursor
	oBookmark = oDoc.Bookmarks.getByName("Deine_Textmarke")'Bookmark über Namen ansprechen
	oBookmarkAnchor = oBookmark.Anchor
	BM_String = oBookmarkAnchor.string 'String and Variable übergeben
	MsgBox BM_String 
End Sub

Hi Scalaia990,

[quote="Scalaia990"]Wie kann ich den Text jedoch kopieren[/quote]

Du meinst bestimmt auslesen und an eine Variable übergeben, oder?

Das funktioniert folgendermassen:

[code]Sub Text_from_Bookmark
Dim oBookmarkAnchor As Object
Dim oDoc as Object
Dim BM_String as String
odoc=ThisComponent
oViewCursor = oDoc.CurrentController.getviewCursor()
odoc = ThisComponent
Cursor = oDoc.Text.createTextCursor
oBookmark = oDoc.Bookmarks.getByName("Deine_Textmarke")'Bookmark über Namen ansprechen
oBookmarkAnchor = oBookmark.Anchor
BM_String = oBookmarkAnchor.string 'String and Variable übergeben
MsgBox BM_String
End Sub[/code]

Voraussetzung ist, dass die Textmarke über den ganzen Text geht und nicht nur am Anfang des Textes gesetzt ist.

Für das Übergeben der Variable hat DirCharly ja schon einen Hinweis gegeben.


Jürgen

Hallo!

Deine Angaben sind etwas wenig für eine Hilfe. Du solltest schreiben, was du bisher gemacht, damit wir sehen was daran falsch ist.

Den Textcursor kann man durchaus mit string auslesen und an anderer Stelle mit insertstring einfügen.
Hier ein Link für den Aufbau des Befehls:

http://www.dannenhoefer.de/faqstarbasic/WiekannmanTexteinfgen..html

Gruß
Charly

Hallo,

wie kann ich den Inhalt einer Textmarke von einem Dokument in ein anderes kopieren?

Wenn ich die Textmarke mit dem (Unsichtbar) anspringe kann ich den Text ersetzen bzw neu eingeben. Wie kann ich den Text jedoch kopieren und an anderer Stelle einfügen?

habe schon mit getString und insertString mich versucht doch igenndwie will es nicht klappen. Vielleichtnur eine falsche Reihenfolge, vielleicht der völlig falsche Ansatz.

Get es am Ende vielleicht nur über den ViewCursor? Wer hat mit einem solchen Problem schon mal Erfahrung gemacht?


Gruss und Dank Scalaia990