vb Script problem under Office XP:graphics filter was unable to convert the file

P

Pedro

Hi!
I have a script in a vb4 apllication that inserts an image in a ms word document.
This works fine in office 2000 and previous but in office xp i get the error:
graphics filter was unable to convert the file.
Any help on this would be just great...
Thanks in advance.
Pedro.



'Create an instance of Word
Dim objWord As Object
Set objWord = CreateObject("word.basic")


The part where i insert the image:

InsertWordImage sImage1, objWord


My sub
Private Sub InsertWordImage(sImage, objWord)
Select Case versaoword
Case 1
objWord.InsertPicture sImage
Case 2
objWord.InserirImagem sImage
End Select

End Sub
 
Top