RE:Exportar imagen a Word
Debes utilizar automatizacion y dominar las macros en word.
Debes instanciar un documento de word en visual, con el metodo Create Object
'Capturas la imagen:
With CommonDialog1
.Filter = "Office Pictures " & _
"(*.gif,*.jpg,*.bmp)|*.gif;*.jpg;*.bmp"
.FilterIndex = 1
.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly
.FileName = ""
.ShowOpen
sPictureName = .FileName
End With
'Dependiendo la version de office instalada en el tarro,
'el codigo seria algo asi:
If Val(.Version) >= 9 Then
'OFFICE 2000+
.Selection.InlineShapes.AddPicture FileName:=sPictureName
Else
'OFFICE 97
.ChangeFileOpenDirectory App.Path
.ActiveDocument.Shapes.AddPicture _
Anchor:=Selection.Range _
, FileName:=sPictureName _
, LinkToFile:=False _
, SaveWithDocument:=True
End If
.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Saludos cordiales,
Jonathan.