Если другой способ узнать эту информацию Selection.Information(wdFirstCharacterColumnNumber)?
Добавлено через 9 минут и 13 секунд:procedure Word.Poisk(nachalo,konez:string);
var n_strok,n_slb,n_stran,k_strok,k_slb,k_stran:integer;
begin
MsWord.Selection.Find.ClearFormatting;
MsWord.Selection.Find.Text := 'по курсу "';
MsWord.Selection.Find.Replacement.Text:= '';
MsWord.Selection.Find.Forward:= True;
MsWord.Selection.Find.Wrap:= 2;
MsWord.Selection.Find.Format:= False;
MsWord.Selection.Find.MatchCase:= False;
MsWord.Selection.Find.MatchWholeWord:= False;
MsWord.Selection.Find.MatchWildcards:= False;
MsWord.Selection.Find.MatchSoundsLike:= False;
MsWord.Selection.Find.MatchAllWordForms:= False;
MsWord.Selection.Find.Execute;
MsWord.Selection.MoveRight(1,1);
n_slb:=MsWord.Selection.Information(9);//Функция работает вот до этой строчки