0
Besometr
12.04.13
✎
10:14
|
Утро доброе, Миста!
Многоуважаемые, помогите разобраться:
Создаю из 1С в Вордовском документе 2 таблицы подряд
//Таблица 1
//Вывод Шапки
//Последняя строка
rng = Документ.Range(Документ.Characters.Count-1);
Таблица = Документ.Tables.Add(rng, 4, 1);
Таблица.ID = "Ch" ;
//Видимость границ таблицы
Таблица.Borders.Enable = Истина;
//Заполнение таблицы
Ячейка = Таблица.Cell(1, 1).Range;
Ячейка.Text = «тра та та»;
Ячейка.ParagraphFormat.Alignment = 0;
Ячейка = Таблица.Cell(2, 1).Range;
Ячейка.Text = «тру ту ту»;
Ячейка.ParagraphFormat.Alignment = 0;
// и т.д.
//
//
//Конец Таблицы 1
//Перевод строки
rng = Документ.Range(Документ.Characters.Count-1);
rng.Text = rng.Text + Символы.ПС;
//Таблица 2
//rng = Документ.Range(Документ.Characters.Count-1);
Таблица = Документ.Tables.Add(rng, 1, 2);
//Видимость границ таблицы
Таблица.Borders.Enable = Истина;
//
Таблица.Columns.First.Width = 50;
Таблица.Columns.Last.Width = 170;
Ячейка = Таблица.Cell(1, 1).Range;
Ячейка.Text = «три та та»;
Ячейка.ParagraphFormat.Alignment = 0;
Ячейка = Таблица.Cell(1, 2).Range;
Ячейка.Text = «Бац!»;
Ячейка.ParagraphFormat.Alignment = 2;
//
//
//Конец Таблицы 2
Дык вот, если убрать код:
//Перевод строки
rng = Документ.Range(Документ.Characters.Count-1);
rng.Text = rng.Text + Символы.ПС;
Между 2-мя таблицами, вторая таблица не создается, соответственно, возникает ошибка:
Произошла исключительная ситуация (Microsoft Word): Отсутствует доступ к отдельным столбцам, поскольку ячейки таблицы имеют разную ширину.
Вопрос, как нарисовать две таблицы в плотную друг к другу?
|
|
4
Лодырь
12.04.13
✎
10:44
|
(2) Кстати если вставлять таблицы руками в ворде, то при вставке 2 подряд они сливаются. Так что вполне возможно, что необходимость вставки строки это не бага, а фича.
|
|