Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

[答案]關於Word VBA的問題

0 views
Skip to first unread message

反太陽能肥肥

unread,
Oct 24, 2001, 5:12:32 AM10/24/01
to
※ 引述《paulma (反太陽能肥肥)》之銘言:
> Dim WordApp As New Word.Application
> '宣告一個Word.Application物件
> Dim Content As String
> '宣告一個字串變數,用來放.doc檔的文字內容
> WordApp.Documents.Open "Drv:\Dir\Filename.doc"
> '開啟要取文字內容的Doc檔,Drv,Dir,Filename按個人需要
> Content = WordApp.ActiveDocument.Range(1, _
> WordApp.ActiveDocument.Characters.Count).Text
> '上面那兩行是重點,也就是將作用中文件(剛剛Open的Doc檔)的某個Range(範圍)
> '內的Text取出指給Content變數,因為我是要全部的內容,所以Range的範圍從1
> '到WordApp.ActiveDocument.Characters.Count,也就是作用中文件有幾個字,範
> '圍就有幾個字
> WordApp.ActiveDocument.Close
> '關閉剛剛開啟的.Doc檔

經過這幾天的測試,才發現我用錯方法,還繞了遠路,其實要取出所有文字內容只要
這樣就可以了

Dim WordApp As New Word.Application
Dim Content As String
WordApp.Documents.Open "Drv:\Dir\Filename.doc"
Content = WordApp.ActiveDocument.Content

該doc檔所有文字內容就會丟給Content了。
不過還是有個問題,就是我再跑這個程式時,會有Word的畫面在螢幕上閃一下下,
要指定什麼屬性才能讓Word完全在背景作業呢?謝謝!!
--
[1;32m※ Origin: [33m明新技術學院 藍色國度 [37m<bbs.mhit.edu.tw> [m
[1;31m◆ From : [36m140.125.83.99 [m

John Lin

unread,
Oct 25, 2001, 4:47:43 AM10/25/01
to
"反太陽能肥肥" 撰寫
> 經過這幾天的測試,才發現我用錯方法,還繞了遠路,
> 其實要取出所有文字內容只要這樣就可以了 ... <略>

嗯,把研究的結果分享給大家。不錯!給您拍拍手!

> 要指定什麼屬性才能讓Word完全在背景作業呢?謝謝!!

Wordapp.Visible = FALSE

John Lin


0 new messages