Boa noite!!

Dúvida vaga..

Sub ImpWord()
Dim objWord As Object

Set objWord = CreateObject("Word.application")
objWord.Documents.Open Filename:="C:tmpNomeMeuArquivo.doc"
objWord.Visible = True
objWord.Application.PrintOut
objWord.activedocument.Close savechanges:=True
objWord.Application.Quit
Set objWord = Nothing

End Sub

Att

Alexandre,

Obrigado pela resposta mas o meu problema está em exportar a imagem para um form.image anteriormente criado no "C:tmpNomeMeuArquivo.doc" numa determinada posição e que gostaria de preencher individualmente para cada cliente e imprimir.

Se me poderem ajudar neste sentido estaria grato pois facilitaria muito o meu trabalho.

Boa tarde,

Após uma grande pesquisa encontrei esta macro que faz exactamente o que quero mas só se eu a inserir num modulo do Word. Gostava de fazer isto mas inserindo esta macro no Excel.

Agradecia a vossa ajuda,

Macro no Word:

Sub MyMacro()
Dim sName As String, sh As InlineShape

sName = "Image1"

For Each sh In ThisDocument.InlineShapes
With sh.OLEFormat.Object
If .Name = sName Then
.Picture = LoadPicture("d:Imagem.jpg")
.PictureSizeMode = fmPictureSizeModeZoom
'Change the above to your code
End If
End With
Next sh
End Sub

Obrigado

Desculpem a insistência, mas seria possível por favor alguém me ajudar, isto facilitaria muito o meu trabalho.

Obrigado

Alguém, por favor, pode dizer-me se pelo menos através daquela macro podemos chegar ao resultado esperado.

Obrigado