| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с текстом в MS Word [D7, XP]

lewka ©   (2011-03-16 18:56:00) 

Здравствуйте!!! Есть код программы

try
  MsWord:= CreateOleObject('Word.Application');
  MsWord.Visible := True;
  except begin
  Showmessage('Не возможно запустить MS Word');exit;
  end; end;
 MsWord.Documents.Add;
MSWord.Selection.TypeText('Текст перед таблицой');
//Добавляется таблица
MyRange:=MSWord.ActiveDocument.Range(MSWord.ActiveDocument.Range.End-1,MSWord.ActiveDocument.Range.End-1);
MSWord.ActiveDocument.Tables.Add(Range:=MyRange, NumRows:=7, NumColumns:=2);
MSWord.Selection.TypeText(Текст в таблице');

Подскажите как теперь вставить текст после таблицы.

---

KilkennyCat   (2011-03-16 20:36:00) [1]

вставь весь текст сразу, откатись на нужную стоку, вставь таблицу

---

_Юрий   (2011-03-16 19:26:00) [2]

открываем ворд, создаем макрос, включаем запись, делаем мышкой что надо, останавливаем запись макроса, смотрим получившийся код, переносим его в программу.

---

Наверх