Attribute VB_Name = "NewMacros" Sub Звонок() Dim a As String Dim stAppName As String a = Selection a = Trim(a) a = Replace(a, vbCr, "") a = Replace(a, vbCr, "") a = Replace(a, vbCr, "") a = Replace(a, vbCrLf, "") a = Replace(a, vbCrLf, "") a = Replace(a, vbCrLf, "") a = Replace(a, vbBack, "") a = Replace(a, vbCr, "") a = Replace(a, vbLf, "") a = Replace(a, vbNewLine, "") a = Replace(a, vbNullChar, "") a = Replace(a, vbNullString, "") a = Replace(a, vbTab, "") a = Replace(a, vbVerticalTab, "") stAppName = "C:\Program Files\Zvonilka\zvonilka.exe " & a Call Shell(stAppName, 1) End Sub