Dim orng As Range Set orng = ActiveDocument.Range With orng.Find .Style = "Caption" Do While .Execute orng.Select MsgBox orng.Text orng.Collapse 0 Loop End With