Mit Word Bookmarks in LotusScript arbeiten

[Glombi]

Hallo
folgendes VB Script habe ich:

ThisDocument.Bookmarks("Kapitel_2_1").Select
selection.Copy
doc_out.Windows(1).Selection.EndKey Unit:=wdStory
doc_out.Windows(1).Selection.Paste

Das möchte ich in einem LotusScript Agenten programmieren. Eine Worddatei (ThisDocument) enthält diverse Bookmarks für verschiedene Textpassagen - z.B. "Kapitel_2_1". Jetzt möchte ich diese Textpassage in ein anderes Word-Dokument einfügen.

Hier mein bisheriger Ansatz:

Dim application As Variant
   Dim ActiveDocument As Variant
   Dim MasterDocument As Variant
   Dim ActiveDocument1 As Variant
   Dim Selection As Variant
   
   Set application = CreateObject("Word.Application")
   Call application.documents.add( "e:\mietevorlage.doc"  )   
   Set ActiveDocument = application.activedocument
   
   Call application.documents.add( "e:\miete.doc"  )   
   Set ActiveDocument1 = application.activedocument
   
Set Selection = ActiveDocument.Bookmarks("Kapitel_2_1").Select
   Call Selection.Copy
   Call ActiveDocument1.Windows(1).Selection.EndKey(wdStory)
   Call ActiveDocument1.Windows(1).Selection.Paste


Die fett markierte Stelle erzeugt den Fehler: Microsoft Word: 'Select' ist keine Eigenschaft.

Kann mir da jemand helfen?

Andreas

[cubetoon]

Hallo Andreas,

auf den ersten Blick, ohne es getestet zu haben:

ändere

Set Selection = ActiveDocument.Bookmarks("Kapitel_2_1").Select
Call Selection.Copy

in

Call ActiveDocument.Bookmarks("Kapitel_2_1").Copy

die separate selection brauchst Du wahrscheinlich gar nicht,
Viele Grüße,
Christian

[Glombi]

Da gibt's den Fehler
Wrong number of arguments for automation object
in der Zeile
   Call ActiveDocument.Bookmarks("Kapitel_2_1").Copy

Andreas

[Glombi]

Ok, ich habe es nun hinbekommen. So sieht es aus:

                Dim application As Variant
   Dim application1 As Variant
   Dim ActiveDocument As Variant
   Dim MasterDocument As Variant
   Dim ActiveDocument1 As Variant
   Dim b As Variant
   Dim Selection As Variant
   
   Set application = CreateObject("Word.Application")
   Call application.documents.add( "e:\mietevorlage.doc"  )   
   Set ActiveDocument = application.activedocument
   
   application.visible = True
   
   Set application1 = CreateObject("Word.Application")
   Call application1.documents.add( "e:\miete.doc"  )   
   Set ActiveDocument1 = application1.activedocument
   
   application1.visible = True
   
   Call ActiveDocument.Bookmarks("name_bookmark_1").Range.Copy   
   Call ActiveDocument1.Windows(1).Selection.Paste
   
   Call ActiveDocument.Bookmarks("name_bookmark_2").Range.Copy   
   Call ActiveDocument1.Windows(1).Selection.Paste
   
   
   Call ActiveDocument.Close
   Call application.Quit   


Danke Dir Christian nochmal für das Anschubsen in die richtige Richtung 

Andreas