automation

[icprvrplmh]

i wil make wish automation a link to words. That i can But i want to make't so that my vb6.0 prog can put informatie to this words doc. every time i want that so long my vb prog is working.

i cant make that, ervery time i get a error. i cant find the link too my words document.
--------------------------------------------------------------------------------




Dim x As Object
Set x = CreateObject("word.applicatie8")
If cmddiensten.Caption = "diensten invoeren" Then
x.Documents.add Template:="D:\Program Files\Microsoft Office\Sjablonen\daglijstic.dot"
If Text2.Text = "A" Then
x.ActiveDocument.Bookmarks("A1").Select
x.Selection.InsertAfter Text:=List1.Text + ", "
End If

[jim mcnamara]

I've fixed some syntax errors. See if this helps.

Dim x As Object 
Set x = CreateObject("Word.Application") 
If cmddiensten.Caption = "diensten invoeren" Then 
  x.Documents.add Template:="D:\Program Files\MicrosoftOffice\Sjablonen\daglijstic.dot" 
End if
If Text2.Text = "A" Then 
  x.ActiveDocument.Bookmarks("A1").Select 
  x.Selection.InsertAfter Text:=List1.Text + ", " 
End If

[ericlee]

I am facing the same problem too!

My Program works fine in Office 2000 Full version, but it generate
automation error for Office 2000 upgrade version.

Helps are appreacited!


Thanks