Sub Demo() Application.ScreenUpdating = False With ActiveDocument While .InlineShapes.Count > 0 .InlineShapes(1).ConvertToShape Wend End With Application.ScreenUpdating = True End Sub