Perguntas Puxar imagem repositório protheus com integração com Word arquivo.dot

Boa tarde,

Alguém sabe me falar se é possível na integração de dados do Word com Protheus trazer a imagem do funcionário que esta no repositório do protheus para o arquivo .DOT ?

Qualquer ajuda é bem vinda.....Michel

Estou com a mesma duvida porem no meu caso preciso incluir imagem do produto numa proposta comercial.

cara do repositório eu não sei se tem como, mas se tiver em alguma pasta você pode fazer uma macro no .dot e quando a executar fazer ela pegar a imagem, conforme algum código (matrícula), e trazer para o word.

Att.

tinha esquecido de colocar um exemplo da macro.
segue:
*é só da uma mudada no tamanho da imagem e tals, conforme precisar.

Sub InsertImage()

Dim imagePath As String
imagePath = "C:\Users\joao\Pictures\002.png"

ActiveDocument.Shapes.AddPicture FileName:=imagePath, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=-5, _
Top:=5, _
Anchor:=Selection.Range, _
Width:=20, _
Height:=20

End Sub

Joao,

Muito obrigado deu certo, porem eu tenho que pegar o nome da imagem do produto em tempo de execução como os outros campos são texto eu utilizei o comando abaixo para pegar as informações:

Campo = "DOCVARIABLE cProd" & Trim(Str(K))
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:=Campo, PreserveFormatting:=True

Já editei o arquivo .dot incluindo um campo novo na linha dos itens onde ficara a imagem, so não estou conseguindo adaptar seu código para pegar o nome da imagem do produto que esta cadastrado no produto, saberia como me ajudar?

opa, ^^

então, eu não tenho nada desse tipo implementado, só sugeri essa solução porque eu entendo de macros e programação advpl, então eu sei que dá pra fazer.

tenta fazer assim,

ActiveDocument.Variables("NOME_DOCVARIABLE").Value

imagePath = "C:\Users\joao\Pictures\"+ActiveDocument.Variables("NOME_DOCVARIABLE").Value"+.png"

ai se o programa achar o produto CANETA ele vai jogar esse código pra um docvariable que esta no .dot e se a imagem tiver o mesmo nome do produto é só usar a solução acima, e mudar o .png para o formato da imagem que você tem ae (e mudar o diretório)

Att.
Depois posta ae se deu certo ou não.

Quando fui tentar rodar este comando ele reclamou do ActiveDocument.Variables("NOME_DOCVARIABLE").Value, este comando final ".Value" não pertence aos comandos disponíveis.

Mas durante as simulações vi que o problema na verdade e descobrir o caminho das imagens no Protheus, pois ele usa um repositório de imagens, e ainda não descobri como abrir estas imagens, pois pelo que entendi elas ficam dentro do arquivo SIGAADV.BMD

mas mesmo assim obrigado vou continuar tentando valew