Dim p As Paragraphs, f As Find
Set p = ActiveDocument.Paragraphs
For i = 1 To p.Count
Set f = p(i).Range.Find ' Переназначить Find
f.Text = "компьютер"
If f.Execute Then p(i).Range.Select
Next i
?Application.DisplayAlerts = True
?ThisWorkbook.Saved = False
Sub Auto_Close()
If MsgBox("Сохранить изменения в файле '" & ThisWorkbook.Name & "' принудительно?", _
vbYesNo + vbExclamation, "Microsoft Excel") = vbYes Then ThisWorkbook.Save
End Sub
Только непонятно, зачем бота добавлять в дискорд-бота.