[Resolvido]É possível incluir foto no Word (mesclando) o endereço contido no campo

Olá,

Será possível incluir foto do BD dos dados contido no Form para o Word por esse método de mesclagem?

Private Sub Comando50_Click()
Dim MiWord
Dim MiDoc
Dim Cambio
Dim strAppPath As String
strAppPath = Application.CurrentProject.Path
Set MiWord = CreateObject("Word.Application")
Set MiDoc = MiWord.Application.Documents.Open(CurrentProject.Path & "\Positivo.doc")
Set Cambio = MiWord.ActiveWindow.Selection.Find

Cambio.Execute "{numano}", False, , , , , , , , NumAno, 2
Cambio.Execute "{numfotoreco}", False, , , , , , , , NumFotoReco, 2
Cambio.Execute "{data}", False, , , , , , , , Data, 2
Cambio.Execute "{numip}", False, , , , , , , , NumIP, 2
Cambio.Execute "{delegado}", False, , , , , , , , Delegado, 2
Cambio.Execute "{Naturezadofato}", False, , , , , , , , NaturezadoFato, 2
Cambio.Execute "{responsavel}", False, , , , , , , , Responsavel, 2
Cambio.Execute "{rg}", False, , , , , , , , Rg, 2
Cambio.Execute "{numautores}", False, , , , , , , , NumAutores, 2
Cambio.Execute "{entrev1}", False, , , , , , , , Entrev1, 2
Cambio.Execute "{datadofato}", False, , , , , , , , DatadoFato, 2
Cambio.Execute "{horariodofato}", False, , , , , , , , HorariodoFato, 2
Cambio.Execute "{numbo}", False, , , , , , , , NumBO, 2
Cambio.Execute "{localdofato}", False, , , , , , , , LocaldoFato, 2
Cambio.Execute "{responsavel}", False, , , , , , , , Responsavel, 2
Cambio.Execute "{numfotoreco}", False, , , , , , , , NumFotoReco, 2
Cambio.Execute "{vulgo}", False, , , , , , , , Vulgo, 2
Cambio.Execute "{obs}", False, , , , , , , , OBS, 2
Cambio.Execute "{nome}", False, , , , , , , , Nome, 2
Cambio.Execute "{Docto}", False, , , , , , , , Docto, 2
Cambio.Execute "{enderecoe}", False, , , , , , , , EnderecoE, 2
Cambio.Execute "{uf}", False, , , , , , , , UF, 2
Cambio.Execute "{bairro}", False, , , , , , , , Bairro, 2
Cambio.Execute "{nomec}", False, , , , , , , , NomeC, 2
Cambio.Execute "{rg}", False, , , , , , , , Rg, 2
Cambio.Execute "{pai}", False, , , , , , , , Pai, 2
Cambio.Execute "{mãe}", False, , , , , , , , Mãe, 2
Cambio.Execute "{endereço}", False, , , , , , , , Endereço, 2
Cambio.Execute "{natural}", False, , , , , , , , Natural, 2
Cambio.Execute "{delegacia}", False, , , , , , , , Delegacia, 2
Cambio.Execute "{fone}", False, , , , , , , , Fone, 2
'Cambio.Execute "{DiasValorDaPropostaE}", False, , , , , , , , DiasValorDaPropostaE, 2
'Cambio.Execute "{DiasCondicoesDePagamento}", False, , , , , , , , DiasCondicoesDePagamento, 2
'Cambio.Execute "{DiasCondicoesDePagamentoE}", False, , , , , , , , DiasCondicoesDePagamentoE, 2
'Cambio.Execute "{DiasPrazoDeExecucao}", False, , , , , , , , DiasPrazoDeExecucao, 2
'Cambio.Execute "{DiasPrazoDeExecucaoE}", False, , , , , , , , DiasPrazoDeExecucaoE, 2

Call MiDoc.SaveAs(CurrentProject.Path & "\ENTREVISTA NUMERO " & NumAno & ".doc")
MiWord.Quit
Set MiWord = Nothing
Set MiDoc = Nothing
Set Cambio = Nothing
'Call MiDoc.openas(CurrentProject.Path & "\Entrevista Numero " & NumAno & ".doc")
'DoCmd.RunMacro "Mensagem de Final"
End Sub

Essa imagem está em um anexo do Access e você quer copiá-la para o documento do Word? É isso? Ela s encontra em um campo do formulário?

Opa! a imagem está armazenada em uma pasta e o caminho esta num campo [localfoto] da tabela "basedeDados" só o caminho
C:\Recofoto\4832751\foto1.jpg.

O botão que dispara a função de mesclagem esta no formulário [vitimasetestemunhas] alimentado por uma consulta que inclui três tabelas.

Será que dá?

Coloque uma imagem no documento, dê um nome para ela igual aos outros campos e tente passar esse caminho.

Essa imagem é pelo incluir IMAGEM do word ? se for ele cria um quadrado como o nome de image1,
Não esta achando, no doc só aparece o quadrado sem nada, como se não pegasse o caminho. Também não dá erro.

a linha ficou assim:

Cambio.Execute "{image1}", False, , , , , , , , LocalFoto, 2

O campo localfoto no form esta sendo preenchido com a foto.

Você pode tambem tentar o seguinte: coloque uma imagem qualquer no documento, de preferência um gif ou png pequeno e transparente, de forma que se não tiver imagem para ser substituída, não fique aparecendo nada no local da imagem. Selecione a imagem, vá em Marcadores (ou indicadores) e dê um nome para ela. Vamos supor que o nome seja "Logo". No seu código, pode fazer algo como:

Código:

    miWord.ActiveDocument.Bookmarks("Logo").Select
    miWord.Selection.InlineShapes.AddPicture FileName:="C:\Recofoto\4832751\foto1.jpg", LinkToFile:=False, SaveWithDocument:=True

Valeu,Criquio, funcionou mas preciso acertar o seguinte:

MiWord.ActiveDocument.Bookmarks("image1").Select
MiWord.Selection.InlineShapes.AddPicture FileName:="C:\Recofoto\4832751\foto1.jpg", LinkToFile:=False, SaveWithDocument:=True

O local da foto no Documento é pequeno e a foto esta saindo grande, tem como diminuir?

Você já havia colocado em outro tópico isso e eu não consegui, não pode ser o endereço FileName = fixo, tem que mudar a cada registro, pois será outra foto, dai ele tem que pegar o caminho no campo texto [localfoto], como faço ?

Estamos chegando la!

Talvez assim:

Código:

MiWord.Selection.InlineShapes.AddPicture FileName:='" & Me.NomeDoCampo & "'", LinkToFile:=False, SaveWithDocument:=True

Beleza!

Funciona legal.

Pode por como resolvido.

Obrigado

Bom dia, criquio.

Esse exemplo acima funciona perfeitamente, porém no meu caso a imagem não estaria em uma pasta e sim em uma tabela do access como OLE object.

Logo não seria o endereço que indicaria mas a posição na tabela.

como poderia fazer isso?

Olá Marianinha! Se for possível, eu aconselharia a retirar esse campo da tabela e colocar as imagens em uma pasta. Anexos e campos OLE ocupam muito espaço no banco.