如何在word文档中查找特定单词，并使用vba代码将单词粘贴到该文档附近？

有谁能告诉我，如何在word文档中找到一个特定的单词，并使用vba代码将一个单词粘贴到该单词附近

我已经打开了文档，所以我只想找到这个单词并在它旁边粘贴一个单词。我使用movedown和moveright方法来访问特定的单词，但这更依赖于光标的位置

谢谢

---

Bharathi

我在access中使用这个，我不知道它是否适合您

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

---

祝您好运

您是否使用

查找

并录制宏？尝试查看搜索和移动某些文本的位置。我想你可以很容易地根据自己的需要来调整。嗨，弗兰克马蒂斯，谢谢你的回复。事实上，我必须找到这个词并在它旁边粘贴一个词，我不想替换它。你能给我建议一些其他的方法吗？你可以搜索一个词，替换这个词，然后添加你想添加的内容。为了更好地解决你的问题，我改变了答案。（是你的问题还是你的问题我的英语不是很好。）嗨，弗兰克，谢谢。我会试试这个。如果我是你的问题……对不起：）-巴拉蒂