Как найти определенное слово в текстовом документе и вставить слово рядом с ним с помощью кода vba?

Question

Может ли кто-нибудь рассказать, как найти конкретное слово в текстовом документе и вставить слово рядом с ним с помощью кода 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 

Успехов