Word VBASub test() Dim i As Integer With ActiveDocument For i = 1 To .InlineShapes.Count If .InlineShapes(i).Type = wdInlineShapeLinkedPicture Then .InlineShapes(i).LinkFormat.BreakLink Next i End WithEnd Sub