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

Question

谁能告诉我，如何使用vba代码在单词文档中找到特定单词并将其粘贴到单词附近？

我已经打开了文档，所以我只想查找单词并将其粘贴到该单词附近。 我已经使用movedown和moveright方法完成了这个操作，但是它更多地取决于光标的位置。

谢谢，

巴拉提

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

祝好运