Domino 9 und frühere Versionen > ND6: Entwicklung

Text aus MS Word kopieren mit VBA

(1/2) > >>

ManniF:
Hallo,
ich möchte mit Lotus Script ein Word-Dokument öffnen, und von einer bestimmten Textmarke ("Betreff") an abwärts den gesamten Text kopieren und an anderer Stelle wieder einfügen.
Mein Script bisher:

--- Code: ---Set wd=CreateObject("Word.Application")
Set wddoc=wd.Documents.Open(“test.doc")
Set wddoc = wd.activedocument
wd.Visible=True
Call wddoc.Bookmarks("Betreff").Select
Forall selection In wddoc.Words                           
Selection.WholeStory
Selection.Copy
End Forall
Call wddoc.Close
Call wd.Quit

--- Ende Code ---
Dies kopiert mir den kompletten Text des Dokuments.
Vielleicht kann mir ja jemand hier einen Befehl oder Code-Beispiel nennen, der mir nur den gewünschten Textteil kopiert???
Gruß Manni

ZaLudtske:
Hallo,

wie wird das Ende des zu kopierenden Textes markiert?

Durch eine Textmarke?

Rainer

ManniF:
Hallo,

ja sorry, hatte ich vergessen zu erwähnen.
Das Ende wird auch durch eine Textmarke markiert.

Mfg Manni

ZaLudtske:
Dann sollte es möglich sein über die Eigenschaften Start und End der Bookmarks und einen Range-Objekt (siehe auch Word-Hilfe) den gewünschten Text zu selektieren und übertragen.

Ich hoffe das hilft weiter, wenn nicht bitte melden.

Rainer

ManniF:
Hallo,
leider ist die VB-Hilfe bei mir nicht installiert, kann also dort nicht nachschauen.
Vielleicht hast du ein paar Zeilen Beispiel-Script, die mir weiterhelfen können?!?
Muss in Word nur von einer Textmarke A bis zu einer Textmarke B den Text markiert bekommen.

Gruß Manni

Navigation

[0] Themen-Index

[#] Nächste Seite