MS Excel에서 MS Word의 여러 항목을 찾아서 바꾸기 : 코드가 포함 된 표에 대해 작동하지 않습니다.

Question

Excel 문자열 (열 A 열 B)의 Word에서 1000 단어/구를 대체해야합니다. 아래 코드를 사용하고 있습니다. 그것은 일반 텍스트에 대해 잘 작동하지만 Word 파일에 포함 된 테이블에서는 작동하지 않습니다. 교체 할 단어가 테이블에 있으면 코드가이 단어를 대체하고 다른 모든 단어를 대체하지 않는 테이블에 많은 원시를 만듭니다. 내가 어떻게 고칠 수 있니? 감사. Word에서 모든 단어하는 작업

Sub findandreplace() 

Dim xlApp As Object 
Dim xlWB As Object 
Dim xlWS As Object 

Dim i As Integer, j As Integer 
Dim lastRow As Integer 

Set xlApp = CreateObject("Excel.Application") 
Set xlWB = xlApp.Workbooks.Open("PATH TO EXCEL FILE") 
Set xlWS = xlWB.Worksheets("Sheet1") 'Replace String with your Worksheet Name 

lastRow = 1000 

For i = 1 To ThisDocument.Words.Count - 1 Step 1 
For j = 1 To lastRow Step 1 
     ThisDocument.Words(i) = Replace(ThisDocument.Words(i), xlWS.Cells(j, 1).Value, xlWS.Cells(j, 2).Value) 
    Next j 
Next i 

Set xlWS = Nothing 
xlWB.Close True 
Set xlWB = Nothing 
xlApp.Quit 
Set xlApp = Nothing 

End Sub 

Answer 1

코드는 다음과 같습니다 텍스트 단어, 쉼표, 점, 단락 기호, 세포 마크 및 많은 다른 사람의 말. 대신 Find...Replace 기능을 사용해보십시오. 당신이 당신의 코드와 함께 있고 싶어하지만 내가 생각할 수있는 quickes 아이디어는 다음과 같이 추가 If Statement를 추가하는 것입니다 :

.... 
For j = 1 To lastRow Step 1 
    If InStr(1, ThisDocument.Words(i), xlWS.Cells(j, 1).Value, vbTextCompare) <> 0 Then 
     ThisDocument.Words(i) = Replace(ThisDocument.Words(i), xlWS.Cells(j, 1).Value, xlWS.Cells(j, 2).Value) 
    End if 
Next j 
....