Список форумов BOSSForum.RU - Форум. БОСС-Кадровик
Независимый форум, посвященный системе БОСС-Кадровик
и всему, что с ней связано
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Слияние ячеек в таблице Word

 
Начать новую тему   Ответить на тему    Список форумов BOSSForum.RU - Форум. БОСС-Кадровик -> X-язык
Предыдущая тема :: Следующая тема  
Автор Сообщение
giddy



Зарегистрирован: 28.01.2022
Сообщения: 7
Откуда: Санкт-Петербург

СообщениеДобавлено: Вт Мар 01, 2022 10:14    Заголовок сообщения: Слияние ячеек в таблице Word Ответить с цитатой

Коллеги, поделитесь примером кода X/VBScript, сливающим ячейки в таблице в ворде.
В интернетах полно примеров кода на VBA, но как ни пытаюсь приладить его к БОССу – ничего не получается (
Для примера, пытаюсь слить две ячейки внутри стандартного боссовского отчета:
Код:
LOCAL VB.Wrd==&wordApp;   
    vb{
       Dim Rng
       Dim oDoc
       Set oDoc = Wrd.ActiveDocument
                               With oDoc.Tables(1)
                                 Set Rng = .Cell(2,1).Range
                                 Rng.End = .Cell(3,1).Range.End
                                 Rng.Cells.Merge
                                 Rng.Text = "Merged Column Cells"
                               End With
      };
 

Не ругается, но ничего не делает (
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
tveritin



Зарегистрирован: 26.01.2016
Сообщения: 180
Откуда: Санкт-Петербург

СообщениеДобавлено: Чт Фев 09, 2023 15:07    Заголовок сообщения: Re: Слияние ячеек в таблице Word Ответить с цитатой

giddy писал(а):
Не ругается, но ничего не делает (


У меня выполнилось.
Код:

LOCAL VB.Wrd==&wordApp;   
    vb{
       Dim Rng
       Dim oDoc
       Set oDoc = Wrd.ActiveDocument
                               With oDoc.Tables(5)
                                 Set Rng = .Cell(10,1).Range
                                 Rng.End = .Cell(13,2).Range.End
                                 Rng.Cells.Merge
                                 Rng.Text = "Merged Column Cells"
                               End With
      };



Смотрите, может к номеру таблицы обращаетесь не к тому.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
giddy



Зарегистрирован: 28.01.2022
Сообщения: 7
Откуда: Санкт-Петербург

СообщениеДобавлено: Пт Фев 10, 2023 11:29    Заголовок сообщения: Ответить с цитатой

tveritin писал(а):
Смотрите, может к номеру таблицы обращаетесь не к тому.


В тестовом шаблоне одна таблица, без вариантов Smile
В общем, у меня вот такая конструкция заработала:
Код:

 vb{
  Dim Rs
  Dim Re
  Dim oDoc
  Set oDoc = Wrd.ActiveDocument
  With oDoc.Tables(1)
   Rs = .Cell(2,1).Range.Start
   re = .Cell(3,1).Range.End
  End With
  oDoc.Range(Rs,Re).Select
   };

wordApp.Selection.Cells.Merge;
wordApp.Selection.Text = "Merged Column Cells"
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов BOSSForum.RU - Форум. БОСС-Кадровик -> X-язык Часовой пояс: GMT + 4
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Pоwerеd by рhpВB © 2001, 2005 рhpВB Grouр
Русская поддержка phрВB
Rambler's Top100 Рейтинг@Mail.ru Список форумов BOSSForum.RU