8.х Ширина колонок в WORD

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем BUM, 24 окт 2011.

  1. TopicStarter Overlay
    BUM
    Offline

    BUM

    Регистрация:
    24 окт 2011
    Сообщения:
    5
    Симпатии:
    0
    Баллы:
    1
    MsWord = Макет.Получить();
    //макет является ActiveDocwment с загруженым в него Word-файлом
    Попытка
    Документ=MsWord.Application.Documents(1);
    Документ.Activate();


    //////////////////////////////////////////

    Word = MsWord.Application;
    Документ = Word.ActiveDocument();
    //Переместиться вниз на 22 строк
    Word.Selection.MoveDown(,22);
    Документ.Paragraphs.Add();
    //подготовка таблицы:
    Rng = Word.Selection.Range;

    //Формируем заголовок:
    Rng.InsertAfter( :angry: "№*Сотрудник*Должность*Сумма");
    Rng.InsertParagraphAfter();

    //сама таблица
    сч = 1;
    Пока Выборка.Следующий() Цикл
    Rng.InsertAfter(Строка(сч)+"*"+Строка(Выборка.ФизЛицо)+"*"+Строка(Выборка.Должность)+"*"+ Строка(Выборка.Сумма));
    Rng.InsertParagraphAfter();
    сч = сч + 1;
    КонецЦикла;

    Rng.ConvertToTable("*");
    Документ.Tables(1).AutoFormat(1);

    Word.Visible = Истина;

    Исключение
    Сообщить(ОписаниеОшибки());
    MsWord.Application.Quit();
    КонецПопытки;
  2. has
    Offline

    has Опытный в 1С

    Регистрация:
    18 июн 2009
    Сообщения:
    708
    Симпатии:
    0
    Баллы:
    26
    Код:
    Rng.ConvertToTable("*");
    Документ.Tables(1).AutoFormat(1);
    //ширина первого столбца
    Word.Selection.Tables(1).Columns(1).PreferredWidth = 170;
    
    
  3. TopicStarter Overlay
    BUM
    Offline

    BUM

    Регистрация:
    24 окт 2011
    Сообщения:
    5
    Симпатии:
    0
    Баллы:
    1
    Ой, большое при большое СПС весь день мучаюсь :angry:
  4. TopicStarter Overlay
    BUM
    Offline

    BUM

    Регистрация:
    24 окт 2011
    Сообщения:
    5
    Симпатии:
    0
    Баллы:
    1
    а вот еще как определить начало этой самой таблицы
  5. comol
    Offline

    comol Опытный в 1С

    Регистрация:
    8 сен 2011
    Сообщения:
    153
    Симпатии:
    0
    Баллы:
    26
    Включаете в Word запись макроса - делаете с таблицей то что вам надо - выключаете запись - смотрите код столько вопросов решает....
  6. has
    Offline

    has Опытный в 1С

    Регистрация:
    18 июн 2009
    Сообщения:
    708
    Симпатии:
    0
    Баллы:
    26
    что значит начало?

Поделиться этой страницей