Sub Выделить_между()
    Dim MyRange As Range, rStart&, rEnd&
    Set MyRange = ActiveDocument.Content
    With MyRange
        With .Find
            .ClearFormatting
            .Text = "<Заключение>*<Подпись>"
            .Forward = True
            .Wrap = wdFindStop
            'Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = True
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute
            If .Found And MyRange.Words.Count > 2 Then
                rStart = MyRange.Sentences(2).Start
                With MyRange.Sentences(MyRange.Sentences.Count - 1)
                    rEnd = .Words(.Words.Count - .Paragraphs.Count).End
                End With
            ActiveDocument.Range(rStart, rEnd).Select
            Selection.Copy
            'ActiveDocument.Range(rStart, rEnd).Copy
            End If
        End With
    End With
     
End Sub

Sub Выделить_между()
    Dim MyRange As Range, rStart&, rEnd&
    Set MyRange = ActiveDocument.Content
    With MyRange
        With .Find
            .ClearFormatting
            .Text = "Слово1"
            .Forward = True
            .Wrap = wdFindStop
            .Format = False
            .MatchCase = False
            .MatchWholeWord = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute
            If .Found Then rStart = MyRange.End: rEnd = rStart
        End With
    End With
    Set MyRange = ActiveDocument.Content
    With MyRange
        With .Find
            .Text = "Слово2"
            .Execute
            If .Found Then rEnd = MyRange.Start
        End With
    End With
    If rEnd > rStart Then
        ActiveDocument.Range(rStart, rEnd).Select
        Selection.Copy
    End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.CalculateBeforeSave = True
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 For Each wk In Worksheets
 wk.Calculate
 Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
.....?......
End Function