excel vba操作word书签内容

Question

excel单元格中制作了word中书签的超链接，点击超链接时打开word文件并定位到相应的书签，每个书签的内容是一段文字。要达到的功能是点击单元格里的超链接时，自动将对应书签的内容复制并粘贴到指定word文档中光标所在处。请问大神们可以实现吗？

Answer 1

你好twtytei，Sub abc()
Dim App, WrdDoc, Mypath As String, StrA As String, StrB As String
Mypath = "文件实际路径\TEXT1.doc" '请修改实际储存路径！
Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象！
App.Visible = True
Set WrdDoc = App.Documents.Open(Mypath) '打开这个Word文件！
StrA = WrdDoc.Bookmarks("aa").Range ' 读取书签aa内容
StrB = WrdDoc.Bookmarks("bb").Range ' 读取书签bb内容
WrdDoc.Close ' 关闭文件
Set App = Nothing
End Sub追问

首先非常感谢你的回答！对此我试了一下有几个问题想继续请教大神，

StrA = WrdDoc.Bookmarks("aa").Range ' 读取书签aa内容  这句不是能很好理解

不知道怎么上传文件，问题可能描述得不够清楚，传了个截图描述问题，请大神明示