Dim strStart As String
Dim strText As String
strStart = "  01              2    Муниципальные"

With wda
    .Visible = False
    .Documents.Open CurrentProject.Path & "\" & "Файл.doc"
End With

Dim rngDoc As Range
Set rngDoc = ActiveDocument.Range(Start:=InStr(strStart, strText))
strText = rngDoc.Text
Debug.Print strText

Sub FromWordDoc()

Dim wda As Word.Application
Dim Flag As Boolean

On Error GoTo ErrStartWord

Flag = True 'флаг операции
Set wda = GetObject(, "Word.Application")

Dim strStart As String
Dim strText As String
strStart = "  01              2    Муниципальные"

With wda
    .Visible = False
 ==>  .Documents.Open CurrentProject.Path & "\" & "Файл1.rtf", , _
                            , , , , , , , wdOpenFormatRTF
End With

Dim rngDoc As Range
Set rngDoc = ActiveDocument.Range(Start:=InStr(strStart, strText))
'strText = rngDoc.Text
'Debug.Print strText

.......................................

wda.ActiveDocument.SaveAs , wdFormatDOSTextLineBreaks

If Flag Then
    wda.ActiveDocument.Close
Else
    wda.Quit
End If

Set wda = Nothing
'
Exit Sub
ErrStartWord:
If Err.Number = 429 Then          ' Word не запущен
    Set wda = CreateObject("Word.Application")
    Flag = False
    Resume Next 'возвращаемся к оператору, следующему за
                'тем, который вызвал ошибку Else
                'диалоговое окно с сообщением и номером ошибки
    MsgBox Err.Description & " " & Err.Number, vbInformation
Exit Sub
End If
End Sub