Give this macro a try:
Sub ResetLinks()
Dim x As Long
With ActiveDocument
For x = .InlineShapes.Count To 1 Step -1
With .InlineShapes(x)
If Not .LinkFormat Is Nothing Then
With .LinkFormat
If Left(.SourceFullName, 2) <> "\\" Then
GraphicsNamePosition = InStrRev(.SourceFullName, "\Graphics", , vbTextCompare)
.SourceFullName = "\\" & Right(.SourceFullName, (Len(.SourceFullName) - CInt(GraphicsNamePosition)))
End If
End With
End If
End With
Next x
End With
End Sub