Установка границы раздела Lotus Notes с помощью VBA - PullRequest
0 голосов
/ 10 мая 2011

Друзья,

Я использую VBA для создания электронных писем Lotus, заполненных электронной таблицей Excel, и застрял в очень глупой точке.

Когда я создаю новый раздел впримечание, деловые правила требуют от меня дать ему границу.Они делали это вручную в течение многих лет и привыкли делать это из пользовательского интерфейса Notes.Они создают новый раздел, затем переходят к его свойствам и затем изменяют его, чтобы иметь рамку (см. Раздел «Граница и стиль» в окне свойств на этом снимке экрана ).

Я могуНе могу понять, как добавить эту границу через VBA.Есть идеи?Я попытался изменить TitleStyle, но это влияет только на такие вещи, как шрифты и цвет.У меня все остальное сделано, просто застрял на границе!

Спасибо!

Майк

Ответы [ 2 ]

2 голосов
/ 10 мая 2011

Класс NotesRichTextSection, к сожалению, не позволяет изменить границу.Элементы Rich Text в Lotus Notes не очень хорошо поддерживаются через API, поэтому часто вы обнаружите несоответствие между тем, что вы можете сделать на клиенте, и тем, что вы можете сделать в коде.

Возможно, естьОбходной путь, если вы готовы попробовать.Во-первых, вам нужно создать простую форму в Notes с полем для расширенного текста, назовем его Body, окруженным разделом.Настройте отображение раздела так, как вы хотите, с установленной рамкой и т. Д. Вам также понадобится другое скрытое текстовое поле, которое называется Заголовок, и вы зададите заголовок раздела, который будет вычисляться на основе этого поля Заголовок.

Затем в своем коде VBA вы создадите новый NotesDocument на основе этой формы.Вы установите поле «Заголовок» и добавите контент в элемент расширенного текста Body.Затем вам нужно вызвать метод ComputeWithForm, а затем метод Save.Наконец, вы можете использовать метод RenderToRTItem в документе, чтобы поместить весь документ в поле расширенного текста вашей исходной заметки.Есть смысл?

Нет гарантий, что это будет работать с VBA, но в прошлом я делал подобные вещи, используя LotusScript, и он добился цели.

1 голос
/ 10 мая 2011

Вы можете просто установить границы копируемых ячеек, используя свойство Borders ().

Пример:

Range("B2:C4").Borders.LineStyle = xlDash
Range("B2:C4").Borders(xlEdgeBottom) = RGB(255,0,0)
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...