如何在word文档中查找特定单词并粘贴使用vba代码的单词？

任何人都可以告诉，如何找到一个word文档中的特定单词，并粘贴到使用vba代码附近的单词？如何在word文档中查找特定单词并粘贴使用vba代码的单词？

我已经打开了文件。所以我只是想找到这个词并粘贴一个字。我使用moveown和moveright方法来完成这个工作，去找那个特定的词。但它更依赖于光标的位置。

感谢，

Bharathi

来源

2013-04-11 Bharathi

你有没有使用'Find'和录制宏？ – 2013-04-11 17:21:04

尝试审查[此答案]（http://stackoverflow.com/a/15937428/2143262）其中一些文本被搜索并移动。我认为你可以很容易地根据你的需求进行调整。 – 2013-04-11 17:37:41

Hi KazJaw， thankyou – Bharathi 2013-04-13 17:07:14

我用这个访问中，我不知道这是否会为你工作。

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

好运

来源

2013-04-11 17:38:24 FranckMetis

嗨FrankMatis，感谢您的回复。其实，我必须找到这个词并在旁边粘贴一个词，我不想替换它。你能否建议我用其他方法来完成这件事？ – Bharathi 2013-04-12 08:41:55

那么你可以搜索一个单词并替换单词并添加你想添加的内容。我改变了我的答案，以更好地解决您的问题。（这是你的问题还是你的问题我不擅长英语。） – FranckMetis 2013-04-12 11:21:54

嗨弗兰克，谢谢你，我会试试这个。 – Bharathi 2013-04-13 16:22:36

如何在word文档中查找特定单词并粘贴使用vba代码的单词？

回答

相关问题