12/05/20 10:22:54.74
>>346
タイミング悪かったな！
まあ、次に似たような機会があったら参考にでもしてください。
しかもよく見たら内側のループいらなかったな。
Public Sub Macro1()
Dim elmBlockElement As Object
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "URLﾘﾝｸ(www.cygnus-x1.net)"
While .Busy Or .ReadyState <> 4&: DoEvents: Wend
For Each elmBlockElement In .Document.getElementsByTagName("blockquote")
If elmBlockElement.PreviousSibling.LastChild.innerText = "Synopsis" Then
With elmBlockElement.PreviousSibling
Selection.TypeText "Title:" & .getElementsByTagName("strong")(0).innerText & vbCrLf
Selection.TypeText "Synopsis:" & vbCrLf & elmBlockElement.innerText & vbCrLf
Selection.TypeText "------------------------------" & vbCrLf & vbCrLf
End With
End If
Next
.Quit
End With
End Sub
でOK。
上のコードは別にWord VBAならではってことでも無いんだけど、単純作業の自動化にはVBA便利やね。