텍스트에서 파일 경로를 사용하여 자동으로 그림 삽입

이미지 경로가 명시 적으로 작성된 텍스트 문서가 있습니다.

Lorem ipsum dolor sit amet, consectetur adipiscing elit. 

c:\Users\userx\Documents\img_000180.jpg

문서에서 이러한 파일 경로를 찾고 이러한 이미지를 Word 문서에 삽입하는 매크로 스크립트를 찾고 있습니다.

그런 스크립트를 알고 있습니까?

나는 매크로를 기록하고 그것을 일반으로 만들기 위해 조금 변경했습니다. 내가 필요한 일을합니다. 스크립트는 다음과 같습니다.

Sub replace_path_with_image()
'
' replace_path_with_image Macro
'
'
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "c:\users"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.EscapeKey
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Dim Sel As Selection
    Set Sel = Application.Selection
    Dim FilePath As String
    If Sel.Type <> wdSelectionIP Then
        FilePath = Sel.Text
    End If
    Selection.Cut
    Selection.InlineShapes.AddPicture FileName:= _
        FilePath _
        , LinkToFile:=False, SaveWithDocument:=True
    Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub