本人自问自答,经过辛苦的搜索,总算得出正确的作法,
这论坛的人气,我很伤心
Dim Vdoc, i, S As String
For i = 0 To W1.Document.All.length - 1
Set Vdoc = W1.Document.All(i)
If UCase(Vdoc.tagName) = "option" Or UCase(Vdoc.tagName) = "OPTION" Then
If Vdoc.Text = "符石园" Then '先找你要的某个选项的纯文本值,这里的符石园显然可以使用ME.姓名
Vdoc.Selected = True '然后设置成选项
End If