1 ：名無しさん＠そうだ選挙にいこう：2011/10/23(日) 05:02:01.90
前スレ
Word総合相談所 （実質Part20）
http://hibari.2ch.net/test/read.cgi/bsoft/1263719084/
▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
★1 質問するときは環境や条件はなるべく書いてね。
★2 要望は具体例や図を使って明確かつ具体的に。
★3 質問前に>>2-20あたりの注意書きやQ&Aを必ず読むこと。
★4 質問テンプレ(雛形)は必須じゃないけど、
OSやWordのバージョン､VBAの可否など(下記テンプレ1～4の情報)は奨励情報。
▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 .】 Windows**
【2 Wordのバージョン 】 Word**
【3 VBAが使えるか .】 はい･いいえ
【4 VBAでの回答の可否】 可･否
※【4】は、VBAはわからないけどコード書いてくれるならVBAでもいいって場合は｢可｣
VBAを使うのは避けたいって場合は｢否｣にしましょう。丸投げする場合は､必要に応じてブックをアップすること。
343 ：名無しさん＠そうだ選挙にいこう：2012/05/19(土) 21:25:03.47
>>341
じゃなくてね、日本語入力変換ソフトは何？ってこと。
いまATOKで［再変換］してみると、確かに「読み」などになるんですよね。
↓こっちで同じ質問をしてみてください。
JustSystems ATOK総合スレ Part69
http://anago.2ch.net/test/read.cgi/software/1335230353/l50
344 ：名無しさん＠そうだ選挙にいこう：2012/05/20(日) 01:16:49.80
>>330
暇だったから書いたけど、あんたExcelの方でも同じ質問してない？
Public Sub Macro1()
Dim elmBlockElement As Object
Dim elmPhrase As Object
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://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
For Each elmPhrase In .getElementsByTagName("strong")
Selection.TypeText "Title:" & elmPhrase.innerText & vbCrLf
Selection.TypeText "Synopsis:" & vbCrLf & elmBlockElement.innerText & vbCrLf
Selection.TypeText "------------------------------" & vbCrLf & vbCrLf
Next
End With
End If
Next
.Quit
End With
End Sub
345 ：名無しさん＠そうだ選挙にいこう：2012/05/20(日) 03:53:20.98
>>339
続きは>>343にあるATOKのスレで
346 ：330：2012/05/20(日) 09:58:10.26
>>344
もう遅いですじゃ。
すでに手動であのページのepisode guideはすべてWord文書にしてPDFにしてこれからFedExに依頼して製本するつもり。
しかしWordVBAの技術はすばらしいものがありますね。
347 ：名無しさん＠そうだ選挙にいこう：2012/05/20(日) 10:22:54.74
>>346
タイミング悪かったな！
まあ、次に似たような機会があったら参考にでもしてください。
しかもよく見たら内側のループいらなかったな。
Public Sub Macro1()
Dim elmBlockElement As Object
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://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便利やね。
348 ：名無しさん＠そうだ選挙にいこう：2012/05/20(日) 14:08:40.41
>>338
わからないなら答えないでください。
特に質問２は、２０１０ではそうなってないから聞いているのに…
349 ：名無しさん＠そうだ選挙にいこう：2012/05/20(日) 16:22:06.67
>>348
こちらも２０１０だけど、そうなっているが。
350 ：名無しさん＠そうだ選挙にいこう：2012/05/20(日) 22:06:51.59
パッケージ版を購入するよりも手軽そうなので、
アマゾンでWORD2010のダウンロード版を購入しようと考えています。
アマゾンからでもマイクロソフトから買う正規品とサポートなどは同じなのでしょうか？
少し心配なので、同じくアマゾンから購入されて方がいましたら教えていただきたいです。
351 ：名無しさん＠そうだ選挙にいこう：2012/05/21(月) 16:20:29.23
Office11ついに発表されたな
Windows7でしか動かないってよ
XPユーザーは無視していいって事だな
しかも開発環境で作ったプログラムならVistaでも動く
つまりVistaも追い出しにかかっている
352 ：名無しさん＠そうだ選挙にいこう：2012/05/21(月) 16:25:27.93
>>351
それVisual Studio11でしょ？
今窓の杜に行って見てきたぞ
Officeはさすがにそんな事はしないだろ
スレッドを全部読む
