替换【特定字符】之间的内容/将Excel粘贴过来的连接变为【相对路径】

SteveNeoGuo

求助！
各位大佬好，在word文档制作中遇到了“word中选择性粘贴excel，粘贴区域无法变为相对路径的问题”
具体问题类似下帖。
http://club.excelhome.net/thread-259052-2-1.html

word中粘贴的表格和数据类似下图。

因为此类粘贴需要多次使用在word文档中，而且表格/数据位置无法固定，所以上面的帖子的代码并并不能解决此类性的问题。
单击Shift+F9后数据形式如下图。

因后期可能需要多次移动这两个文件的位置，所以”“内的路径需要实时更新。
我想的方法是替换”{LINK“至“.xlsm"之间的内容为”myText“
        myText = ActiveDocument.Path & "\Digital Calculation.xlsm"

但是问题在于如何选中这一区域并替换。
即核心问题为，【替换两指定字符之间的内容】
还请各位大神赐教，若有其他方法也请各位提出思路。
谢谢

SteveNeoGuo

help~各位大佬请帮忙 谢谢

SteveNeoGuo

经过各种录制宏和各种百度，我已经基本完成了这个需求，再此分享一下，也请各位大佬看看有没有什么问题。

Private Sub Document_Open()
    Dim wdPath As String, myText As String
   
    Selection.EscapeKey
    Selection.WholeStory  '全选
    Selection.Fields.ToggleShowCodes  'Shift+F9
   
    Selection.Find.ClearFormatting
    With Selection.Find
    .Text = "LINK"
    .Wrap = wdFindContinue
    End With
    Selection.Find.Execute
    a = Selection.End
    Selection.Find.ClearFormatting
    With Selection.Find
    .Text = ".xlsm"
    .Wrap = wdFindContinue
    End With
    Selection.Find.Execute
    b = Selection.Start
    Selection.Start = a + 1
    Selection.End = b
    Selection.Copy
    myText = Selection.Text  '选中LINK到.xlsm间的内容并赋值给myText
   
    wdPath = ActiveDocument.Path ‘获取当前路径
    wdPath = Replace(wdPath, "\", "\\") ’单\变为双\\
    wdPath = "Excel.Sheet.12 " & Chr(34) & wdPath & "\\Digital Calculation"  '将word的当前路径赋值给wdPath,后缀变成excel的名称
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = myText
        .Replacement.Text = wdPath
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll  '查找myText替换为wdPath
   
    Selection.WholeStory  '全选
    Selection.Fields.ToggleShowCodes 'Shift+F9
    Selection.EscapeKey

End Sub

不给糖就跑

word 已到达 文档 的结尾处，共替换 处。是否继续从开始处搜索？这个对话框能不显示吗