OLE between Notes and Word

I want to create a new word document with Lotus Notes and save there some entries from my Notes Form.

I created a button on a Form with the following
code:
     Dim uiws As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument    
     Dim doc As NotesDocument  
     
     Set uidoc = uiws.CurrentDocument
     Set doc = uidoc.Document
     
     Dim wordApp As Variant  
     Dim wordDoc As Variant      
         
     Dim firstname As String
     
        firstname = Cstr(doc.firstname(0))
     
     Set wordApp = CreateObject( "Word.Application" )
     
        Call  wordApp.Documents.Add( "SBOR_DCS.dot")
     Set  wordDoc = wordApp.Activedocument      
     wordApp.Visible = True
     
     wordDoc.insert ("Test") <-- don´t work.


After pressing button, Word is opening but I´m unable to insert text into the document.
Error : Instance member INSERT doesn´t exist!!

What is wrong???

Thanks
Sebastian
     
     
     
     
sbor77Asked:
Who is Participating?
 
AndrewJayPollackConnect With a Mentor Commented:
looks like the version of "word.application" doesn't create an object "worddoc" that has the method "insert"  somethings wrong with your use of the word object model.  
0
 
ZvonkoConnect With a Mentor Systems architectCommented:
In Word Application model does Document object not have an Insert method.

Correct call is:

wordApp.Selection.TypeText "Hallo test"

0
All Courses

From novice to tech pro — start learning today.