返回列表 上一主題 發帖

用excel上網查音標 又掛了

自我感覺良好

帖子
116 
主題
41 
精華
0 
積分
162 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-7-22 
最後登錄
2024-2-9 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-10-15 07:08 | 顯示全部帖子

用excel上網查音標 又掛了

真害YAHOO!奇摩字典又改版了
音標又找不到了
只能看到解釋
新增的即時發音好像粉不錯
    1. Sub searchIT(Rng As Range)
   2.     Dim XH As Object
   3.     Dim shpRm As Shape
   4.     '清除已有的解釋及音標
   5.     With Rng.EntireRow
   6.         .Resize(1, .Columns.Count - 1).Offset(0, 1).Clear
   7.     End With
   8.     '開啟網頁
   9.     Set XH = CreateObject("Microsoft.XMLHTTP")
  10.     With XH
  11.         .Open "get", "http://tw.dictionary.yahoo.com/dictionary?p=" & Rng.Text, False
  12.         .send
  13.         On Error Resume Next
  14.         '摘取第一組中文翻譯
  15.         Rng.Offset(0, 2) = Split(Split(.responseText, "class=""description""><p>1.")(1), "<")(0)
  16.         '摘取KK音標
  17.         Rng.Offset(0, 1) = Left(VBA.Split(.responseText, "KK</span>  ")(1), InStr(VBA.Split(.responseText, "KK</span>  ")(1), "]"))
  18.         
  19.     End With
  20.     Rng.Select
  21. End Sub
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題