Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
irabva
0 / 0 / 2
Регистрация: 14.12.2015
Сообщений: 11
1

Создание таблицы в Word

02.06.2016, 13:17. Просмотров 774. Ответов 5

Здравствуйте! Помогите, пожалуйста. В первый раз создаю таблицы в word. Никак не могу задать ширину столбца и границы. Погуглила, ничего не нашла. Делаю по книге Корнякова ПРОГРАММИРОВАНИЕ ДОКУМЕНТОВ И ПРИЛОЖЕНИЙ MS OFFICE в DELPHI
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure CreateDocument(AOwner: TObject);
const wdLineWidth025pt = 2;
var     MyRange, Table:variant;
    i: Integer;
begin
   Doc:=CreateOleObject('Word.Application');
  Doc.Documents.Open(WideString(PathToDoc));
  MyRange:=Doc.ActiveDocument.Range(Doc.ActiveDocument.Characters.Count-1,Doc.ActiveDocument.Characters.Count-1);
  Table:= Doc.ActiveDocument.Tables.Add(Range:=MyRange, NumRows:=2, NumColumns:=2);
  Table.Rows.Add;
  Table.Columns.Item(1).Width := 150;
  Table.Columns.item(table.Columns.Count).Borders.OutsideLineWidth:=2;
  Doc.Visible := True;
end;
Первая ошибка возникает при попытке задать ширину столбца, вторая при задании толщины границы.
0
Миниатюры
Создание таблицы в Word   Создание таблицы в Word  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2016, 13:17
Ответы с готовыми решениями:

Создание скрина документа Word
Нужно сделать скрин, к примеру, первой страницы файла .docx. Программе...

Создание и заполнение документа Word + TProgressBar
Процесс создания и заполнения документа Word:procedure...

Создание таблицы с combobox
Есть задача сделать таблицу на основе TStringGrid с использованием базы данных...

Создание таблицы Менделеева
В общем надо сделать таблицу Менделеева, чтобы о каждом элементе выводилась...

Создание таблицы в документе MS Word из таблицы Excell
Приветствую! Нужна Ваша помощь! Появилась необходимость вставить таблицу word ...

5
irabva
0 / 0 / 2
Регистрация: 14.12.2015
Сообщений: 11
02.06.2016, 13:42  [ТС] 2
Нашла решение проблемы с границами:
Delphi
1
Table.Borders.Enable := True;
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26130 / 17523 / 6949
Регистрация: 22.10.2011
Сообщений: 30,859
Записей в блоге: 6
02.06.2016, 13:44 3
Максимальная ширина таблицы в Word-е = 22 дюйма, ты пытаешься выставить 150 дюймов.
0
irabva
0 / 0 / 2
Регистрация: 14.12.2015
Сообщений: 11
02.06.2016, 14:55  [ТС] 4
Попробовала
Delphi
1
Table.Columns.Item(1).Width := 10
Та же ошибка
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26130 / 17523 / 6949
Регистрация: 22.10.2011
Сообщений: 30,859
Записей в блоге: 6
02.06.2016, 15:39 5
Лучший ответ Сообщение было отмечено irabva как решение

Решение

Попробуй сконвертировать в Point-ы ширину таблицы:
Pascal
1
Table.Columns.Item(1).Width := Doc.InchesToPoints(5); // 5 дюймов
1
irabva
0 / 0 / 2
Регистрация: 14.12.2015
Сообщений: 11
03.06.2016, 09:33  [ТС] 6
volvo, Спасибо, помогло
0
03.06.2016, 09:33
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.06.2016, 09:33

Создание таблицы в WORD
я пытаюсь открыть ворд и создать в нем таблицу в чем моя ошибка... Shell...

Создание таблицы в Word.
Доброго всем времени суток. Подскажите поажалуйста, как создать в ворде...

Создание таблицы в Word
Привет народ B) Подскажите как создать таблицу в Word ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru