[發問] 抓取Word檔內容問題

naruto018

這執行之後第一個檔案輸出結果沒問題，但第二個檔案輸出結果都會是第一個檔案的主旨的內容
想請教一下各位大大，是哪裡錯誤?要如何修正這個?

1. Public Sub 測試4()
   
2. On Error Resume Next 'GoTo 999
   
3. TheFilename = Application.GetOpenFilename("Word檔 (*.docx), *.docx", , "請選擇Word檔", , True) '可選取多個Word檔
   
4. Arr1 = Array("日期：", "檔案編號：", "主旨：") '要尋找字串
   
5. Set wrdApp = CreateObject("Word.Application")
   
6. If UBound(TheFilename) > 0 Then
   
7.     For i0 = 1 To UBound(TheFilename)
   
8.         Set wrdDoc = wrdApp.Documents.Open(TheFilename(i0))
   
9.         Debug.Print TheFilename(i0)
   
10. 
    
11.         For i = 0 To 2
    
12.             Set myRange = wrdDoc.Content
    
13.             找到 = myRange.Find.Execute(Arr1(i))
    
14.             Debug.Print 找到
    
15.             找到列 = myRange.Paragraphs(1)
    
16.             Debug.Print 找到列
    
17.             If IsEmpty(找到列) Then
    
18.                 MsgBox "找無!"
    
19.                 Exit Sub
    
20.             Else
    
21.                 myStr = Split(找到列, "：")
    
22.                 myStr2 = myStr(UBound(myStr))
    
23.                 Debug.Print myStr2 '輸出要的字串
    
24.                 Debug.Print "-------" '分隔線
    
25.             End If
    
26.         Next
    
27. 999:
    
28.         wrdDoc.Close 'close the document
    
29.         wrdApp.Quit 'close Word
    
30.     Next
    
31. End If
    
32. 
    
33. End Sub

複製代碼

naruto018

在Excel內用VBA抓取Word檔內的內容
我測試第1個檔案匯出資料正常
第2個之後有問題
範例.rar (68.07 KB)

下載次數: 4

2017-11-4 10:38

naruto018

已自行解決
感謝*1000