Dim found As Boolean
 
        Do
            found = word_app.ActiveDocument.Content.Find.Execute( _
              "<barcode>", , , , , , True, , , did)
            If found = False Then
                Exit Do
            End If
        Loop