如何在word文檔中查找特定單詞並粘貼使用vba代碼的單詞？

Question

任何人都可以告訴，如何找到一個word文檔中的特定單詞，並粘貼到使用vba代碼附近的單詞？

我已經打開了文件。所以我只是想找到這個詞並粘貼一個字。我使用moveown和moveright方法來完成這個工作，去找那個特定的詞。但它更依賴於光標的位置。

感謝，

Bharathi

Answer 1

我用這個訪問中，我不知道這是否會爲你工作。

Dim mWord As Word.Application 
Dim mDoc As Word.Document 
Dim mRange As Word.Range 

Set mDoc = mWord.Documents.Open("YourPath") 
mDoc.SaveAs "Where you want to save" 

Set mWord = New Word.Application 
mWord.Visible = False 

DoEvents 
Set mRange = mWord.ActiveDocument.Content 

mRange.Find.Execute FindText:=TextToFind1, ReplaceWith:=TextToFind1 & TextToReplace1, Replace:=wdReplaceAll 
mRange.Find.Execute FindText:="TextToFind2", ReplaceWith:="TextToReplace2", Replace:=wdReplaceAll 
Set mRange = Nothing 

mDoc.Save 

'Display 
mWord.Visible = True 

Shell "Explorer.exe /n,/e," & "DirectoryToOpen", vbNormalFocus 

好運