SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: giomar en Martes 3 de Enero de 2006, 23:36

Título: Manejo De Word
Publicado por: giomar en Martes 3 de Enero de 2006, 23:36
Hola amigos de solocodigo, necesito su ayuda se trata que deseo cargar una imagen a un documento en word creado desde visual basic, el codigo usado es:

        Dim MSWord As New Word.Application
        Dim Documento As Word.Document
        Dim Parrafo As Paragraph
        Dim vArchivo1 As String
           
        Set Documento = MSWord.Documents.Add
       
        vArchivo1 = rsDatosPersonales!Ruta & "\ruc.jpg"

        Selection.InlineShapes.AddPicture FileName:=vArchivo1, LinkToFile:=False, SaveWithDocument:=True
       
        MSWord.Visible = True

El problema es uqe no muestra la imagen crea y abre el documento pero no inserta la imagen, como veran la ruta del archivo lo obtengo de una base de datos, he probado colocando la ruta directamente pero siguo teniendo el miso problema, tengo office XP y lo tengo referenciado desde vb, asi que no entiendo cual podria ser el problema.

Si alguien puede ayudarme se lo agredecere mucho ya que es importantisimo para mi.

Gracias por su tiempo, y exitos...
Título: Re: Manejo De Word
Publicado por: eliza_marti en Miércoles 4 de Enero de 2006, 17:40
Hola giomar  :hola: ..al selection indicale de que documento se trata (osea en tu caso de MSWord) y en la extension jpg ponle jpeg ... :) ..prueba de esa forma y me cuentas si te salió.. ;) ..

el codigo quedaria asi:

Código: Text
  1. Dim MSWord As New Word.Application
  2. Dim Documento As Word.Document
  3. Dim Parrafo As Paragraph
  4. Dim vArchivo1 As String
  5.  
  6. Set Documento = MSWord.Documents.Add
  7.  
  8. vArchivo1 = rsDatosPersonales!Ruta & "\ruc.jpeg" 'mira aqui  :)
  9.  
  10. 'mira que le agregué la partecita de MSWord.Selection..no el Selection solito
  11.  
  12. MSWord.Selection.InlineShapes.AddPicture FileName:=vArchivo1, LinkToFile:=False, SaveWithDocument:=True
  13.  
  14. MSWord.Visible = True
  15.  

Espero que te sirva.. :hola: bye nos vemos.. :comp:  :smartass:
Título: Re: Manejo De Word
Publicado por: giomar en Viernes 6 de Enero de 2006, 16:40
Gracias eliza_marti , solucione el problema con ayuda.
Título: Re: Manejo De Word
Publicado por: eliza_marti en Viernes 6 de Enero de 2006, 19:29
Me alegro que lo hayas resuelto giomar   ;)  ..pero porcia asi como te dije si te debe de salir.. :)  yo ya hice la prueba y si me salio.. :) ..

Bueno me voy  :hola:  mucha suerte ..nus vemos.. :comp: