如何在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 

好运