Option Explicit
Dim myDocument As Word.Document

Sub cardWord()
    Dim myWord As New Word.Application
    Dim n As Integer
    On Error GoTo InStr
    Set myDocument = myWord.Documents.Open(ThisWorkbook.Path & "/DocWord.doc")
    
    
    For n = 0 To 10
        myDocument.Content.Find.Execute "Товар_" & CStr(n), False, False, False, False, False, True, 1, False, "ТОВАР №" & CStr(n), 2
    Next
    
        
    'Сохранение перед закрытием
    myDocument.SaveAs (ThisWorkbook.Path & "/Измененная карта_карта.doc")
    myDocument.Close
    
    'myDocument.Close 'Был отключен
    myWord.Quit
Exit Sub
    
'Обработчик ошибок
InStr:
    If Err.Description <> "" Then
        MsgBox "Ошибка " & Err.Description
        myDocument.Close
        myWord.Quit
    End If
End Sub