Текущий архив: 2011.06.26;
Скачать: CL | DM;

Вниз

Работа с текстом в MS Word   Найти похожие ветки 

← →
lewka ©   (2011-03-16 18:56) [0]

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

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(Текст в таблице");

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

---

← →
_Юрий   (2011-03-16 19:26) [1]

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

---

← →
KilkennyCat ©   (2011-03-16 20:36) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2011.06.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.009 c