Delphi Word - надписи, перемещение курсора на нужную мне часть документа - Delphi - Ответ 12210143

@tnAnGel · 13.03.2018, 22:09 **[ТС]**

@D1973, а если не использовать автозамену? Я хотел поставить "указатель" в нужную мне точку и создать там объект. Я хочу создавать именно кодом объекты и заполнять походу.

Если я буду использовать шаблоны, то у меня появляется проблема с 2мя таблицами, а именно: как выбирать между ними для заполнения? Создаю и заполняю я подобным образом в других документах:

Delphi

  MSWord.Selection.Tables.Add(MSWord.Selection.Range, Student.Count+1, 4, wdWord9TableBehavior);
  MSWord.Selection.Tables.Item(1).columns.item(1).Width:=22;
  MSWord.Selection.Tables.Item(1).columns.item(2).Width:=22;
  MSWord.Selection.Tables.Item(1).Rows.Item(1).Select;
  MSWord.Selection.Paragraphs.Alignment := wdAlignParagraphCenter;
  MSWord.Selection.Tables.Item(1).columns.item(2).Width:=260;
  MSWord.Selection.Tables.Item(1).columns.item(3).Width:=80;
  MSWord.Selection.Tables.Item(1).columns.item(4).Width:=80;
  MsWord.Selection.Tables.Item(1).Cell(1,1).Range.Text:='№ п/п';
  MsWord.Selection.Tables.Item(1).Cell(1,2).Range.Text:='Ф.И.О. обучающегося';
  MsWord.Selection.Tables.Item(1).Cell(1,3).Range.Text:='Защита (оценка)';
  MsWord.Selection.Tables.Item(1).Cell(1,4).Range.Text:='Подпись';
   for j:=0 to Student.Count-1 do
   begin
    MsWord.Selection.Tables.Item(1).Cell(j+2,1).Range.Text:=IntToStr(j+1)+'.';
    MsWord.Selection.Tables.Item(1).Cell(j+2,2).Range.Text:=Student[j];
   end;
  MSWord.Selection.EndKey(6 ,EmptyParam);
  MSWord.Selection.TypeText(#10+'Заведующий отделением ИТ _____________________________________');
  MSWord.Visible:=True;

Я сделал шаблон и с одной таблицей понятно как, но с двумя - не знаю как работать

Pascal

Word:=CreateOleObject('Word.Application');
Word.Documents.Add;
Word.Documents.Open(ExtractFilePath(ParamStr(0))+'1.doc');
Word.Selection.Tables.Item(1).Cell(1,1).Range.Text:='№ п/п';
Word.Selection.Tables.Item(1).Cell(1,2).Range.Text:='Ф.И.О. обучающегося';
Word.Visible:=True;

Как получилось визуально: https://www.cyberforum.ru/atta... 1520966479

Если делаю с 2мя готовыми таблицами, то у меня ошибка со следующим текстом: "запрашиваемый номер семейства не найден". Ниже листинг:

Pascal

Word:=CreateOleObject('Word.Application');
Word.Documents.Add;
Word.Documents.Open(ExtractFilePath(ParamStr(0))+'2.doc');
Word.Selection.Tables.Item(1).Cell(1,1).Range.Text:='№ п/п';
Word.Selection.Tables.Item(1).Cell(1,2).Range.Text:='Ф.И.О. обучающегося';
Word.Visible:=True;

В нем я банально попытался заполнить таблицу как делал в первом шаблоне.

Вот шаблон, который использую: 2.doc

Если сейчас найдем решение как выбирать и заполнять эти 2 таблицы, то самая сложная часть завершена.

Вернуться к обсуждению:
Delphi Word - надписи, перемещение курсора на нужную мне часть документа Delphi

Следующий ответ

Другие темы раздела
Delphi По номеру месяца выдать количество праздничных и воскресных дней https://www.cyberforum.ru/ delphi-beginners/ thread2209783.html По номеру месяца выдать количество праздничных и воскресных дней.	Delphi Вычислить результат, используя условный оператор. Исходные данные вводятся с клавиатуры s=(min(max(x;y),max(y;z)))/(max(x;z))
Delphi Составить программу для определения указанных ниже параметров треугольника. Выполнить программу для конкретных значений Заданы сторона треугольника и два прилежащих к ней угла. Найти углы и стороны.( в делфи) https://www.cyberforum.ru/ delphi-beginners/ thread2209778.html	Delphi Ошибки [Error] Unit1.pas(40): Incompatible types unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) https://www.cyberforum.ru/ delphi-beginners/ thread2209678.html
Delphi Webbrowser как сохранить содержимое Ребята подскажите! В компоненте webbrowser delphi открываю определенную страницу после чего необходимо захватить в переменную содержимое страницы ( текст на странице) для дальнейшего поиска по этому тексту.	Delphi Конвертация BMP в массив и обратно https://www.cyberforum.ru/ delphi-beginners/ thread2209609.html Добрый день. Есть проблема с конвертацией Ч/Б bmp изображения в массив и обратным получением изображения из массива. Код создания текстового массива не мой, нашел на одном из форумов, открываю картинку, сохраняю в текстовом файле: procedure TForm1.Button1Click(Sender: TObject); var bmp:TBitmap; i,j:Integer; s:string; f:TextFile; begin
Delphi Где найти компоненты TsComboBox, TsSkinProvider, TsSkinManager и т.д. https://www.cyberforum.ru/ delphi-beginners/ thread2209607.html Ребят, подскажите пожалуйста где можно найти компоненты такого рода? sComboBox1: TsComboBox; sSkinProvider1: TsSkinProvider; sSkinManager1: TsSkinManager; и т. д. Может каким-то образом можно с интернета докачать или библиотеки в корне с программой соответствующие лежат... Потому что на вкладках нигде к сожалению похожего не нашёл.	Создание анимации: экологический или политический плакат Delphi uses graphABC; procedure fon; begin clearwindow(clpaleturquoise); setpencolor(clforestgreen); setbrushcolor(clforestgreen); rectangle(0, 400, 800, 600); setbrushcolor(clAquamarine); rectangle(0, 470, 800, 550);
Delphi Найти все простые несократимые дроби, заключенные между 0 и 1, знаменатели, которых не превышают 7 https://www.cyberforum.ru/ delphi-beginners/ thread2209545.html Дробь создается двумя натуральными числами-числителем и знаменателем. Написала, вроде работает, но выводит повторы, Такие дроби, как 2/3, 4/6 можно сократить и получаться уже выведенные дроби. program Pr7; {$APPTYPE CONSOLE} uses System, SysUtils, Windows;	Delphi Как реализовать запуск команды по выбору значения в COMBOBOX? Доброго времени суток! Подскажите мне пожалуйста как реализовать запуск определенной команды при выборе соответствующего значения в combobox. Объясню смысл действий. Необходимо в поле произвести форматирование текстовых файлов определенным образом (коды есть) и сохранить их в файлы. Форматирование производится для нескольких файлов, по очереди или на выбор (не суть), но при этом оно разное.... https://www.cyberforum.ru/ delphi-beginners/ thread2209510.html
Delphi Найти произведение цифр четырехзначного числа (остаток от деления целых чисел) Составить программы, используя указанные в скобках вспомогательные алгоритмы (вспомогательные алгоритмы оформить процедурами). Найти произведение цифр четырехзначного числа (остаток от деления целых чисел).	Delphi Нарисовать трёх поросеночков Как нарисовать трёх поросеночков в delphi ? https://www.cyberforum.ru/ delphi-beginners/ thread2209302.html

	13.03.2018, 22:09