求这段代码 With Selection.Find 和 Do while 怎么理解？

lover920

Sub tt()
Selection.MoveUp Unit:=wdScreen '光标移动到开头
arr = Array("张伟", "男", "成都", "武侯区", "天街", "3组", "510824199208293439", "5", "张伟，张青，周里，周洲，张刚") '定义常量数组
aj = 0
    With Selection.Find
        .Forward = True
        .Font.Underline = wdUnderlineSingle
    End With
   
    Do While Selection.Find.Execute
        Selection.Text = " " & arr(aj) & " "  '更改内容
        Selection.MoveRight Unit:=wdCharacter  '移动光标到右侧
        aj = aj + 1
    Loop
End Sub




求大神解释下这段代码中 with 语句和 Do while 怎么理解？
With Selection.Find 后怎么和 Do While Selection.Find.Execute 接上的啊？