Выбор данных, выгружаемых из Excel в Word в зависимости от выбранного периода

Sub Процедура2()
    Const strClass As String = "LINK Excel.Sheet.8 "
    Dim strNewPath As String
    'Вот эту часть у себя посмотрите в коде поля:
    'поставьте текстовый курсор на поле - Shift + F9.
    Const strSheet As String = "Лист1!R1C1"
    Const strParameters As String = " \a \t \* MERGEFORMAT"
    With Application.FileDialog(FileDialogType:=msoFileDialogFilePicker)
        'Чтобы можно было выбрать только один файл.
        .AllowMultiSelect = False
        .Show
        'С помощью Replace делаем нужный синтаксис адреса, т.к. в коде поля слэша 2.
         strNewPath = Replace(.SelectedItems(1), "\", "\\")
    End With
    'Chr(34) - это кавычка, Chr(32) - это пробел.
    ActiveDocument.Fields(1).Code.Text = strClass & Chr(34) & _
        strNewPath & Chr(34) & Chr(32) & Chr(34) & strSheet & Chr(34) & strParameters
    ActiveDocument.Fields(1).Update
End Sub

Sub Процедура1()
    'Если в коде поля нет слова MERGEFROMAT, то добавляем его.
    'С помощью LCase переводим весь текст в строчные буквы,
    'т.к. сравнение идёт с учётом регистра и не известно, что у нас там с регистрами.
    If InStr(LCase(ActiveDocument.Fields(1).Code.Text), LCase("MERGEFORMAT")) = 0 Then
        ActiveDocument.Fields(1).Code.Text = _
            ActiveDocument.Fields(1).Code.Text & "\* MERGEFORMAT "
    End If
End Sub

Sub Процедура1()
    Dim lngStart As Long
    Dim lngEnd As Long
    Const strParameters As String = "\a \t \* MERGEFORMAT "
    lngStart = InStr(ActiveDocument.Fields(1).Code.Text, "\a")
    lngEnd = ActiveDocument.Fields(1).Code.End
    ActiveDocument.Range(Start:=lngStart, End:=lngEnd).Text = strParameters
End Sub

Sub Процедура1()
    Dim lngStart1 As Long
    Dim lngStart2 As Long
    Dim lngEnd As Long
    Const strParameters As String = "\a \t \* MERGEFORMAT "
    lngStart1 = ActiveDocument.Fields(1).Code.Start
    lngStart2 = InStr(ActiveDocument.Fields(1).Code.Text, "\a")
    lngEnd = ActiveDocument.Fields(1).Code.End
    ActiveDocument.Range(Start:=lngStart1 + lngStart2 - 1, End:=lngEnd).Text = strParameters
End Sub