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

entendi, aqui na empresa, todas as imagens que nós jogamos no repositório, obrigatoriamente, agente salva em uma pasta no servidor, amanha cedo eu tento fazer um programa desse e volto a postar aqui.

Att.

Bom dia,

fiz os teste aqui e deu certinho, segue: (um exemplo, colocando a foto no aviso do funcionário)

no programa:

oWord := OLE_CreateLink()
OLE_NewFile(oWord, "CAMINHO_DO_ARQUIVO_DOT")

//primeiro atribua para as variáveirs do word os valores
OLE_SetDocumentVar(oWord, "DIAS1", nAviso)
OLE_SetDocumentVar(oWord, "NOME", SRA->RA_NOME)
OLE_SetDocumentVar(oWord, "HOJE", cHoje)
OLE_SetDocumentVar(oWord, "FIMAVISO", dHoje)
OLE_SetDocumentVar(oWord, "ASSINATURA", SRA->RA_NOME)
OLE_SetDocumentVar(oWord, "DIAS2", nAviso)
OLE_SetDocumentVar(oWord, "DIAS3", nAviso)
OLE_SetDocumentVar(oWord, "NOMERODA", SRA->RA_NOME)
OLE_SetDocumentVar(oWord, "MATRICULA", SRA->RA_MAT)//ESSA VARIAVEL DO WORD QUE VAI SER RESPONSÁVEL POR BUSCAR A FOTO

//depois use esse comando para atualizar os valores das variáveis do arquivo .dot
OLE_UpdateFields(oWord)

//depois execure a macro "InsertImage"
OLE_ExecuteMacro(oWord,"InsertImage")

isso deve estar nessa sequência para dar certo, agora vamos para a macro do arquivo .dot, segue:

Sub InsertImage()
Dim imagePath As String
imagePath = "CAMINHO_DA_PASTA_QUE_TEM_A_IMAGEM" + ActiveDocument.Variables("MATRICULA").Value + ".FORMATO_DA_IMAGEM"

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

lembrando que na macro eu não trabalhei em cima dos atributos da imagem, só me preocupei em trazê-lá.

Abraços,
Depois posta ae se conseguiu!

Perfeito,valeu pelas explicações isso ira me ajudar muito, minha dificuldade e conseguir encontrar o caminho onde ficam as fotos, pois estou usando o repositório do Protheus onde as imagens ficam num arquivo SIGAADV.BMD, dentro do Protheus_data/System.

Outra pergunta você utilizou qual versão do WORD neste teste?

entendo, ao que faz referência ao repositório eu não sei como te ajudar.

Office 2013 eu estou usando.