- 帖子
- 91
- 主題
- 5
- 精華
- 0
- 積分
- 130
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2016-5-14
- 最後登錄
- 2020-5-17
|
這執行之後第一個檔案輸出結果沒問題,但第二個檔案輸出結果都會是第一個檔案的主旨的內容
想請教一下各位大大,是哪裡錯誤?要如何修正這個?- Public Sub 測試4()
- On Error Resume Next 'GoTo 999
- TheFilename = Application.GetOpenFilename("Word檔 (*.docx), *.docx", , "請選擇Word檔", , True) '可選取多個Word檔
- Arr1 = Array("日期:", "檔案編號:", "主旨:") '要尋找字串
- Set wrdApp = CreateObject("Word.Application")
- If UBound(TheFilename) > 0 Then
- For i0 = 1 To UBound(TheFilename)
- Set wrdDoc = wrdApp.Documents.Open(TheFilename(i0))
- Debug.Print TheFilename(i0)
- For i = 0 To 2
- Set myRange = wrdDoc.Content
- 找到 = myRange.Find.Execute(Arr1(i))
- Debug.Print 找到
- 找到列 = myRange.Paragraphs(1)
- Debug.Print 找到列
- If IsEmpty(找到列) Then
- MsgBox "找無!"
- Exit Sub
- Else
- myStr = Split(找到列, ":")
- myStr2 = myStr(UBound(myStr))
- Debug.Print myStr2 '輸出要的字串
- Debug.Print "-------" '分隔線
- End If
- Next
- 999:
- wrdDoc.Close 'close the document
- wrdApp.Quit 'close Word
- Next
- End If
- End Sub
複製代碼 |
|