Set WordOBJ = GetObject(, "Word.Application")
If WordOBJ Is Nothing Then
Set WordOBJ = CreateObject("Word.Application")
Set WordDoc = WordOBJ.Documents.Open(StartForm)
WordOBJ.Visible = True
Else: Set WordDoc = WordOBJ.Documents.Open(StartForm)
End If

Set AD = WordOBJ.ActiveDocument

Option Explicit

Private Sub CommandButton1_Click()
On Error GoTo ErrCatch

Dim WordOBJ As Object
Dim WordDoc As Object
Dim rS As Word.Range
Dim l As Long

Set WordOBJ = GetWord
Set WordDoc = WordOBJ.Documents.Open(StartForm)
WordOBJ.Visible = True
Set rS = WordDoc.Content

With rS.Find
    .ClearFormatting
    .Text = "цикл:"
    .Forward = True
    .Wrap = wdFindStop
    .MatchCase = False
    If Not .Execute Then
        MsgBox ("Ничего не найдено!")
    Else
        While .Found
            l = l + 1
            Range("A" & l) = rS.Paragraphs(1)
            .Execute
        Wend
    End If
End With

Finalize:
    WordDoc.Close False
    WordOBJ.Quit False
    Set WordDoc = Nothing
    Set WordOBJ = Nothing
    Unload UserForm1

Exit Sub
ErrCatch:
    MsgBox "Error! " & Err.Number & vbNewLine & Err.Description, vbExclamation, "CommandButton1_Click"
    GoTo Finalize
End Sub

Private Function GetWord() As Object
On Error Resume Next
Set GetWord = GetObject(, "Word.Application")
If GetWord Is Nothing Then
    Set GetWord = CreateObject("Word.Application")
End If
End Function

AD.Selection