討論區快速選單
知識庫快速選單
下載Alexa Toolbar讓你上網更有趣 傑米的攝影旅遊筆記 最新Microsoft免費研討會行事曆
[ 回上頁 ] [ 討論區發言規則 ]
請問如何使用VB開啟WORD檔,並讀取內容?
更改我的閱讀文章字型大小
作者 : t570111(不明)
[ 貼文 20 | 人氣 2380 | 評價 20 | 評價/貼文 1 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/8 上午 11:18:28
如標題,
謝謝!!
作者 : mimmy(mimmy)
[ 貼文 18 | 人氣 1427 | 評價 100 | 評價/貼文 5.56 | 送出評價 2 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人t570111註記此篇回應為最佳解答 2005/3/10 上午 08:01:23
方法一:買VBA書來看或到相關網站看一看(下面網址為:小雄資訊服務中心\vba新手入門學習)
     http://vb.infoserv.com.tw/

方法二:到微軟的mdsn查一查http://msdn.microsoft.com/library/cht/

方法三:開啟vb,選取專案\設定引用項目\Microsoft Word 9.0 Object Libarary後,
     開啟word,執行巨集\錄製新巨集,把你想要的執行動作做一次。
     做完後停止巨集錄製,
     執行巨集\巨集\選出剛存的巨集名稱(通常第一次是"巨集1")\編輯,把程式碼拷貝到vb
    
※要了解程式碼在寫什麼,請參閱方法一、二
※Microsoft Word 9.0 Object Libarary會因為word版本不同而名稱有小差別,
   基本上都是以Microsoft Word開頭,若要EXCEL,ACCESS等,了解要怎麼選了唄?
作者 : t570111(不明)
[ 貼文 20 | 人氣 2380 | 評價 20 | 評價/貼文 1 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/10 下午 01:09:01
謝謝你的指引!
作者 : t570111(不明)
[ 貼文 20 | 人氣 2380 | 評價 20 | 評價/貼文 1 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/10 下午 03:57:07
感謝 mimmy的指引,我已發現如果將Word內的資料讀取出來,在此提供發現的方法讓大家參考:

 Dim MyDOCApp As Word.Application
 Set MyDOCApp = CreateObject("word.application")
 MyDOCApp.Documents.Open "C:\i.DOC"
 '當word檔內畫有格子時
 MyDOCApp.Selection.MoveDown wdLine, 10, wdMove '移到所要的行數
 MyDOCApp.Selection.MoveRight wdCell, 2, wdMove '往右移動第第二格
 MsgBox MyDOCApp.Selection.Text '顯示資料內容
 '當word檔內沒有畫格子時
 MyDOCApp.Selection.MoveDown wdLine, 19, wdMove '移到所要的行數
 MyDOCApp.Selection.MoveEnd wdLine '從起始位置到最後一個位置mark
 MsgBox MyDOCApp.Selection.Text '顯示資料內容
 如果各位網友有更好的方法,請多指教!!謝謝!!^^
作者 : t570111(不明)
[ 貼文 20 | 人氣 2380 | 評價 20 | 評價/貼文 1 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/10 下午 03:57:13
感謝 mimmy的指引,我已發現如果將Word內的資料讀取出來,在此提供發現的方法讓大家參考:

 Dim MyDOCApp As Word.Application
 Set MyDOCApp = CreateObject("word.application")
 MyDOCApp.Documents.Open "C:\i.DOC"
 '當word檔內畫有格子時
 MyDOCApp.Selection.MoveDown wdLine, 10, wdMove '移到所要的行數
 MyDOCApp.Selection.MoveRight wdCell, 2, wdMove '往右移動第第二格
 MsgBox MyDOCApp.Selection.Text '顯示資料內容
 '當word檔內沒有畫格子時
 MyDOCApp.Selection.MoveDown wdLine, 19, wdMove '移到所要的行數
 MyDOCApp.Selection.MoveEnd wdLine '從起始位置到最後一個位置mark
 MsgBox MyDOCApp.Selection.Text '顯示資料內容
 如果各位網友有更好的方法,請多指教!!謝謝!!^^
 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2200 
6 史努比 1940 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2014 程式設計俱樂部 http://www.programmer-club.com.tw/
0.1875