Friendpaste

Sub test1()
        
    Dim objShell As Object
    Dim strTitle As String
    Dim objWindow As Object
    Dim strURL As String
    Dim objNode As Object
    
    '参考URL:http://www.htmq.com/html/select.shtml
    strTitle = "<SELECT>－HTMLタグリファレンス"     '開いてるページタイトル
    
    '開いてるウィンドウの特定
    Set objShell = CreateObject("Shell.Application")
    For Each objWindow In objShell.Windows
        If TypeName(objWindow.Document) = "HTMLDocument" Then
            If InStr(1, objWindow.Document.Title, strTitle) <> 0 Then
                Exit For
            End If
        End If
    Next
    
    Set objNode = objWindow.Document.getElementsByName("blood")(0)
    
    objNode.Value = "B"                     '値を指定
    'objNode.selectedIndex = 2              'インデックスを指定
    'objNode.Options(3).Selected = True     '普通はListBoxなど複数選択で使う
    
End Sub