VBA Atualizar Foto no Word

[ArthurS]

Boa noite,

Prezados, criei um arquivo de mala direta com mais de 1000 fotos, porém as fotos não atualizaram sua referência.  Preciso clicar em cima de cada uma e apertar “F9” para atualizar a foto.

Se seleciono o texto todo (ctrl+t) e aperto "F9" o word trava.

Queria criar uma macro para atualizar todas as imagens de uma só vez.

Quando gravo sei que a função para atualizar fica "Selection.Fields.Update"

E achei uma macro que roda em todas as imagens diminuído o tamanho, porém não atualiza a referencia. Queria que em vez de diminuir o tamanho ela atualizasse a foto.

Segue a macro de edição de tamanho.

Sub Macro1()
Dim insertedPicture As InlineShape
Dim insertedShape As Shape
Dim imgMult As Single
imgMult = Fields.Update

For Each insertedPicture In ActiveDocument.InlineShapes
    insertedPicture.Select
    insertedPicture.Width = insertedPicture.Width * imgMult / insertedPicture.Height
    insertedPicture.Height = imgMult

Next


End Sub

Queria adaptar para atualizar a imagem “ Selection.Fields.Update “

Obrigado!