Hola, quiero crear un word don varios bookmarks y una fotografía, todo me lo hacía bien hasta que le metí la fotografía que ya me da error, me dice que el elemento del conjunto solicitado no existe.
Os pongo el código de la funcion que me hace esto:
Dim sql As String
Dim rs As ADODB.Recordset
Dim objWdApp As New Word.Application
Dim objWdDoc As Word.Document
Dim objwdRange As Word.Range
Set objWdDoc = objWdApp.Documents.Open(Filename:=App.Path & "\cartel.doc")
objWdDoc.bookmarks("operacion").Range.Text = Me.Coperacion.Text
objWdDoc.bookmarks("ref").Range.Text = Me.Tref.Text
objWdDoc.bookmarks("Zona").Range.Text = Me.Czona.Text
Set rs = New ADODB.Recordset
sql = "select * from fotos where ref='" & Me.Tref.Text & "' order by nfoto asc"
rs.Open sql, BD, 2, 3
If Not rs.EOF Then
If Dir(App.Path & "\dir.dll", vbArchive) <> "" Then
Dim Fichero, ruta As String
Fichero = App.Path & "\dir.dll"
Open Fichero For Input As #1
Input #1, ruta
Close #1
If Dir(ruta & "\thumbnail4\" & rs("img"), vbArchive) <> "" Then
objWdDoc.bookmarks("foto").Range.InlineShapes.AddP icture ruta & "\thumbnail4\" & rs("img")
objWdDoc.bookmarks("foto").Delete
End If
End If
El error me lo da exactamente en la linea de :
objWdDoc.bookmarks("foto").Range.InlineShapes.AddP icture ruta & "\thumbnail4\" & rs("img")
Gracias.
Un saludo.
