2013-10-28 65 views
0

我目前正在創建一個大腳本來自動化Microsoft Word文檔,以便將表格拉出並放入新文檔中。但是,當我到達文檔的末尾時,我需要知道,因此我可以繼續閱讀下一個文檔。在vbs/hta中,如何判斷我是否達到word文檔的末尾?

Set objWord   = CreateObject("Word.Application") 
Set objNewDoc  = objWord.Documents.Add() 
Set objNewSelection = objWord.Selection 
Set objDoc = objWord.Documents.Open(C:/Users/blahdoc.doc) 
Set objSelection = objWord.Selection 

這不是腳本,而是它的定義和打開閱讀文檔的方式。如果需要,我會很樂意插入更多細節。

我沒有找過類似的問題,但沒有找到任何適用的問題。如果您提前抱歉;)

+0

從Snhp9開始:「我需要所有的文本/圖像/所有內容,但只能通過第一列中帶有特定標記的表進行排序。」 請更改您的問題陳述以解釋您想要提取的內容。它目前只說表格,並且不包括有關排序表格的內容。此外,你可能想要包括你已經嘗試過的東西。 – usncahill

回答

1

您實際上不需要擔心「到達文檔的末尾」。值得慶幸的是,這些表格存儲在一個Tables集合中,該集合是Word.Document的一個屬性。您可以通過所有的表像這樣重複:

For Each oTable In objNewDoc.Tables 
    If Left(oTable.Cell(1, 1).Range.Text, Len(oTable.Cell(1, 1).Range.Text) - 2) = "Some string" Then 
     MsgBox "Found one!" 
    End If 
Next 

一個問題,我跑把這個在一起的時候進入是所有細胞文本有兩個字符組成的結束細胞標誌物:一個回車(ASCII 13),然後是BELL(ascii 7)。我用Left去掉這些文字,以便我可以將文本與字符串值進行比較,這正是我所瞭解的您正在嘗試執行的操作。

相關問題