word如何用VBA检查首次出现的关键词位置

tang2366789

大神们，VBA小菜鸡求帮助= =
希望大神们赐教，如何用VBA检查word里某一个关键词首次出现的位置，最好能把首次出现时的整行也能一起搜出来。

代码方面有了检索首次位置：
Sub 第一次出现位置段落()




Dim MyRange As Range
Set MyRange = ActiveDocument.Content
MyRange.Find.Execute FindText:="质子治疗", Forward:=True
MyRange.Find.Execute
MsgBox MyRange.Information(wdActiveEndPageNumber)
End Sub



和选择光标
Sub 选择当前行()
Selection.HomeKey unit:=wdLine
Selection.EndKey unit:=wdLine, Extend:=wdExtend


End Sub



想问如何在检索到段落时把光标移到目标位置，把两个代码结合起来。


最后希望还能赐教下如何粘贴出来。
感谢各位大佬时间。


还请大佬们具体点，小菜鸡哭泣。