Показать сообщение отдельно
  #6  
Старый 14.05.2012, 21:12
Аватар для Ildar-tsr
Ildar-tsr Ildar-tsr вне форума
Местный
 
Регистрация: 09.08.2011
Адрес: г.Сургут, ХМАО
Сообщения: 453
Репутация: 7402
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  w.Selection.HomeKey(6); //идем в самое начало документа, делается всегда на всякий случай перед поиском.
  w.Selection.Find.Text:= '#begin#';
  w.Selection.Find.Execute; //Находим нашу метку
  //Так как мы уже в нужной ячейке и у нас выделена метка, то просто пишем нужное значение
  w.Selection.TypeText(Combobox1.Text);
  w.Selection.MoveRight(12); //переход в следующую ячейку
  w.Selection.TypeText(Combobox2.Text);
  w.Selection.MoveRight(12);
  w.Selection.TypeText(Combobox3.Text);
end;
А если нужно создать новую строку, просто прописываем
Код:
w.Selection.MoveRight(12);
когда находимся в третьем столбце. Word автоматически добавит строку и встанет в первую ячейку новой строки.
__________________
Google в помощь
Ответить с цитированием