Функция УбратьИНН(НаименованиеСИННом)

   RegExp=Новый COMОбъект("VBScript.RegExp");

   RegExp.MultiLine=Ложь; 

   RegExp.Global=Истина;

   RegExp.Pattern = "ИНН\s*\d+\s*";

   Возврат RegExp.Replace(НаименованиеСИННом, "");

КонецФункции