Из тела документа в "имя файла"

Как я понимаю вот этим макросом решили другую задачу:

Public Sub Test()
Dim FD As String
Dim FName As String
Dim Path As String
Dim Shp As Shape
   Set Doc = ActiveDocument
         FD = [здесь указывается папка сохранения]
                    For Each Shp In Doc.Shapes
                        Shp.Select
                        If Shp.Type = msoTextBox Then
                             Selection.Find.ClearFormatting
                             Selection.Find.Replacement.ClearFormatting
                                With Selection.Find
                                    .Text = "G00([0-9]{1;})"
                                    .Replacement.Text = ""
                                    .Forward = True
                                    .Wrap = wdFindContinue
                                    .MatchWildcards = True
                                    .Execute
                                        If .Found = True Then
                                            FName = Selection
                                            Path = FD & "\" & FName & ".doc"
                                            Doc.SaveAs2 Path
                                            Doc.Close
                                            Exit Sub
                                        End If
                                End With
                            End If
                  Next Shp
End Sub

Но можно ли его как то унифицировать/модернизировать под другие нужды ? Например, копировать текст после определенного выражения? В моем случае "оперативная инструкция" после которого, он будет подхватывать название в кавычках.