Extract String From Text (Word)
A good way to do this would be by .Sentences, assuming your string doesn't appear more than once per sentence. You can use instr to get the location of your strings and then store them in an array. Then print them wherever you want:

Sub GetMediaStrings()
    Const BEGIN_STRING As String = "[Media:"
    Const END_STRING As String = ".jpg"
    Dim searchRange As Range
    Dim startString As Long
    Dim endString As Long
    Dim results() As String
    ReDim results(1 To 2)
    For Each searchRange In ActiveDocument.Sentences
        startString = InStr(1, searchRange, BEGIN_STRING, vbTextCompare)
        If startString &gt; 0 Then
            endString = InStr(1, searchRange, END_STRING, vbTextCompare)
            If endString &gt; 0 Then
                results(UBound(results) - 1) = Mid(searchRange, startString, endString - startString + Len(END_STRING))
                ReDim Preserve results(1 To UBound(results) + 1)
            End If
        End If
    Next
End Sub


You might also want to do it via .StoryRanges.