Имя: Пароль:
1C
1С v8
Ширина колонок word при печати договора из 1С
,
0 MAPATNK2
 
naïve
11.06.20
11:20
Всем доброго дня. УПП 1.3.99
Есть печатная форма с макетом из word. Создаю программно таблицу, заполняю её. Вывожу, все колонки одинакового размера.
Пдскажите, как программно можно изменить размер колонок в макете word?

Table = Документ.Tables.Add(Position, 1, 9, 1, 2);
    Row1=Table.Rows(1);
                Row1.Cells(1).Range.Text="№";
                Row1.Cells(2).Range.Text="Артикул";
                Row1.Cells(3).Range.Text="Товары (работы, услуги)";
                Row1.Cells(4).Range.Text="Кол-во";
                Row1.Cells(5).Range.Text="Ед.";
                Row1.Cells(6).Range.Text="Цена";
                Row1.Cells(7).Range.Text="Сумма без скидки";
                Row1.Cells(8).Range.Text="Скидка (наценка)";
                Row1.Cells(9).Range.Text="Сумма";
                Row1.Range.Font.Bold = 9999998;
                Row1.Range.Font.Size = 11;
                Row1.Range.Font.Name = "Times New Roman";
                Row1.Range.ParagraphFormat.Alignment = 1;
1 ДенисЧ
 
11.06.20
11:49
table.columns.Item(0).setwidth(10)
Например
2 MAPATNK2
 
naïve
11.06.20
12:14
(1) что то не выходит
3 ДенисЧ
 
11.06.20
12:21
(2) Ну это навскидку, просто по страницам из интернету. ПОпробуй автоширину отключить, в интернете поищи msword table column vba
4 MAPATNK2
 
naïve
11.06.20
12:24
(3) Метод объекта не обнаружен (Item)
5 MAPATNK2
 
naïve
11.06.20
12:28
(3) Я если бы смог что то найти, сюда бы не писал(
6 ДенисЧ
 
11.06.20
12:28
(4) Items() ?
Я же говорю, писал с ходу...
7 ДенисЧ
 
11.06.20
12:28
8 MAPATNK2
 
naïve
11.06.20
12:30
(7) У меня итак равные размеры колонок. Проблема то в том, что я найти не могу как их изменить. В статье как раз про равне колонки говорится.
9 MAPATNK2
 
naïve
11.06.20
12:31
(7) хотя, не посмотрел, там и нужная инфа есть. Спасибо
10 MAPATNK2
 
naïve
11.06.20
12:39
(7) а как этим в 1С пользоваться есть какая нибудь информация? Есть метод выражение. SetWidth( _ColumnWidth_ , _RulerStyle_ )
а как его применить к моей таблице? Table.Columns(4).SetWidth(10,10); выдает ошибку
Ошибка при вызове метода контекста (SetWidth): Произошла исключительная ситуация (Microsoft Word): Значение лежит вне допустимого диапазона
11 ДенисЧ
 
11.06.20
12:40
(10) Ну так проверь значение рулестайла...
12 MAPATNK2
 
naïve
11.06.20
12:41
(11) а что это такое и как его проверить?
13 MAPATNK2
 
naïve
11.06.20
12:41
(11) Table.Columns(4).SetWidth(30,20);
сделал так, но ничего не изменилось.
14 ДенисЧ
 
11.06.20
12:42
(12) Так второй параметр....
15 dezss
 
11.06.20
12:43
16 dezss
 
11.06.20
12:43
Тип второго параметра не число.
17 dezss
 
11.06.20
12:44
(16) вернее число, но только от 0 до 3
18 MAPATNK2
 
naïve
11.06.20
12:46
(17) я попробовал все от 0 до 3. Все столбцы равны.
19 dezss
 
11.06.20
12:48
(18) Первый параметр попробуй поставить 200
20 MAPATNK2
 
naïve
11.06.20
12:48
(19) тоже нет никакого толка. Только если второй параметр ставлю 300 тогда все колонки становятся огромными.
21 dezss
 
11.06.20
12:48
(19) + не забывай, что ширина там задается в пунктах, а не в символах)
22 dezss
 
11.06.20
12:49
(20) Показывай варианты и еще версию офиса неплохо было бы узнать.
23 MAPATNK2
 
naïve
11.06.20
12:49
(21) Table.Columns(3).SetWidth(200,100); если так делаю, все колонки становятся большими. На меньшие значения не реагирует вовсе.
24 MAPATNK2
 
naïve
11.06.20
12:50
(22) Офис 2013
25 MAPATNK2
 
naïve
11.06.20
12:53
(22) Table.Columns(3).SetWidth(150,0);
так сделал. Тоже все колонки становятся большими. Хотя обращаюсь к 3 колонке.
26 dezss
 
11.06.20
12:54
(25) Описанное выше поведение вдрулерстиле относится к таблицам с выравниванием по левому краю. Поведение вдрулерстиле для таблиц с выравниванием по центру и по правому краю может быть неожиданным; в таких случаях метод сетвидс следует использовать с осторожностью.

У тебя выравнивание по левому краю?
27 MAPATNK2
 
naïve
11.06.20
12:58
(26) по центру, сейчас поменяю
28 MAPATNK2
 
naïve
11.06.20
12:59
(26) стоп, а как менять, я создаю ведь программно табилцу
29 arsik
 
гуру
11.06.20
13:01
(0) А зачем так странно. В БСП есть пример печати в шаблон ворд. Там все по другому делается. В шаблоне сразу таблицу (шапку + 1 строку) создаешь и в зависимости от условий выводишь ее или не выводиш.
30 MAPATNK2
 
naïve
11.06.20
13:01
(29) можете скинуть пример оформления. Т.к. не видел.
31 MAPATNK2
 
naïve
11.06.20
13:02
(29) ссылку на статью. Я тоже хотел добавить руками таблицу, но не знаю, как к созданной таблице обращаться
32 MAPATNK2
 
naïve
11.06.20
13:03
(29) НУ и Досупак ИТС у меня нет
33 arsik
 
гуру
11.06.20
13:06
(30) Пример то есть и обработка, но она для УФ и БСП достаточно новое, а у тебя  УПП 1.3.99 - в нем какое БСП?
34 MAPATNK2
 
naïve
11.06.20
13:07
Думал так же сделать в обычную печатную форму договор и сохранять его в doc. Но при сохранении там всё съезжает, половину видно, половину нет. Решил остановится на шаблоне word. В итоге тут черт ногу сломит.
35 MAPATNK2
 
naïve
11.06.20
13:08
(33) 1.2.4.1
36 arsik
 
гуру
11.06.20
13:19
(35) Старая очень. Там скорее всего даже намеков на печать в шаблон ворда нет.
37 MAPATNK2
 
naïve
11.06.20
13:28
(36) ну да, руками собирал с форумов недостающие процедуры.
38 MAPATNK2
 
naïve
11.06.20
13:30
Может кто знает как программно текст выравнить в макете?
39 arsik
 
гуру
11.06.20
13:40
(37) зачем. Возьми последнюю БСП и оттуда все дерни по печати в ворд.
40 MAPATNK2
 
naïve
11.06.20
13:44
(39) у вас есть статья, где описано было, как с таблицами работать в ворд?
41 MAPATNK2
 
naïve
11.06.20
13:45
(39) И БСП откуда тянуть?
42 arsik
 
гуру
11.06.20
13:47
(40) Не. Статьи нет.
Вот пример макета шаблона вордового, для печати счета из БСП https://i.imgur.com/7UbLzYh.png
(41) Ну давай, сейчас ссылку кину
43 arsik
 
гуру
11.06.20
13:49
(41) мыло покажи
44 MAPATNK2
 
naïve
11.06.20
13:50
45 MAPATNK2
 
naïve
11.06.20
13:50
(42) Благодарю
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn