[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2chのread.cgiへ]
Update time : 11/25 08:57 / Filesize : 315 KB / Number-of Response : 1002
[このスレッドの書き込みを削除する]
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧] [類似スレッド一覧]

↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

Word(ワード)総合相談所 Part21

347 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2012/05/20(日) 10:22:54.74 ]
>>346
タイミング悪かったな！
まあ、次に似たような機会があったら参考にでもしてください。
しかもよく見たら内側のループいらなかったな。

Public Sub Macro1()
Dim elmBlockElement As Object

With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "www.cygnus-x1.net/links/lcars/epsd-TOS1.php"
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便利やね。




[ 続きを読む ] / [ 携帯版 ]
全部読む 前100 次100 最新50 ▲ [ このスレをブックマーク！ 携帯に送る ] 2chのread.cgiへ
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧]（；´∀｀）＜315KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef