InsertAfter (StrKomb);
// Вставка 4 порожніх абзаців, курсор у позиції останнього -----
// Вставка 4 порожніх абзаців, курсор у позиції останнього -----
Створюємо 3 сторінки на якій знаходитися напрямок на видачу книг:
// Вставка тексту - створення типового документа
// Вставка 3 порожніх абзаців, курсор у позиції останнього -----
WordDocument1.Paragraphs.Add (EmptyParam);. Paragraphs.Add (EmptyParam);
WordDocument1.Paragraphs.Add (EmptyParam);
// Приклад застосування діапазону "Range" для вирівнювання двох абзаців з чотирьох раніше введених --------------
Start1: = WordDocument1.Paragraphs.Item (1). Range.start;// початковий абзац: = WordDocument1.Paragraphs.Item (2). Range.end_;// кінцевий абзац.Range ( Start1, End1). Paragraphs.Alignment: = 2;// вирівнювання вправо
// Вставка 3 порожніх абзаців, курсор у позиції останнього ------
WordDocument1.Range.InsertAfter ('НАПРЯМОК НА ВИДАЧУ КНИГИ');// вводимо текст
// Вставка 4 порожніх абзаців, курсор у позиції останнього -----
// Вводимо текст після слова "НАПРЯМОК НА ВИДАЧУ КНИГИ". Active: = true ;//звертаємося до бази данних.First;// БД - на першу запісь.MoveBy (NomClient-1) ;// формуємо документ для обраної записи
WordDocument1.Paragraphs.Item (WordDocument1.Paragraphs.Count). Alignment: = 3;// вирівнювання по шіріне.Paragraphs.Item (WordDocument1.Paragraphs.Count). LineSpacingRule: = 2;// міжрядковий інтервал - подвійний: = 'Абонент' + Query1.FieldByName ('FAMILYA'). Asstring + '' + Query1.FieldByName ('NAME'). Asstring + '' + Query1.FieldByName ('OTCH.'). Asstring + ';. Range.InsertAfter (StrKomb);// вводимо текст.Paragraphs.Add (EmptyParam);: =' Зареєстрований '+ Query1.FieldByName (' DATA_REG ). Asstring + 'числа, видати наступну книгу '+ Query1.FieldByName (' GROUP '). Asstring +' ';. Range.InsertAfter (StrKomb);
// додати абзац, курсор в його позиції
// вводимо текст
// Вставка 4 порожніх абзаців, курсор у позиції останнього -----
