[Boris26rus]

Iska, добрый день и спасибо!
Я «DISTINCT» вставил сразу, но как Вы и указали, стала возникать ошибка с переменной «raschet». Тогда я и спросил как можно привязать «DISTINCT» только к той переменной, которой нужен такой "фильтр" (самостоятельные эксперименты по "привязке" у меня были безрезультатны).
А вот по слишком длинной строке пробовал разбить так:

Код:

Sub Replace(rtext,text)
	if len(text)>255 then
		oSel.Find.Execute rtext  ,,,,,,,,,"temp"   ,wdReplaceAll
		i=len(text)/250	
		if (i-FIX(i))>0 then i=FIX(i)+1
		z=1
		For y=1 to i
			stext=Mid(text,z,248) + " temp"
			oSel.Find.Execute " temp"  ,,,,,,,,,stext   ,wdReplaceAll
			z=y*248+1
		NEXT 
	else
		oSel.Find.Execute rtext  ,,,,,,,,,text   ,wdReplaceAll
	end if
	oSel.Find.Execute " temp"  ,,,,,,,,,""   ,wdReplaceAll
End Sub

- не помогло.
Не пойму почему переменная «raschet» равна «Null» и как избежать ошибки.