Private Sub Document_Open()
    Dim ish As InlineShape
    Dim intShapes As Integer
    Dim intI As Integer
      
    intShapes = ThisDocument.InlineShapes.Count
    
    If intShapes >  0  Then
        For intI =  1  To intShapes
            With ThisDocument.InlineShapes(intI)
                If .Type = wdInlineShapeLinkedOLEObject Then
                    .LinkFormat.Update
                End If
            End With
        Next intI
    End If
End Sub

    For Each ish In ThisDocument.InlineShapes
        ' ...
    Next ish