Форум вопросов и ответов

Форум вопросов и ответов (https://www.otvetnemail.ru/)
-   Архив вопросов и ответов (https://www.otvetnemail.ru/arhiv-voprosov-i-otvetov-805/)
-   -   Форматирование части текста в ячейке... (https://www.otvetnemail.ru/arhiv-voprosov-i-otvetov-805/formatirovanie-chasti-teksta-v-yachejke-305223/)

Guest 29.09.2011 23:15

Форматирование части текста в ячейке...
 
Привет всем! У меня возникла проблема с форматированием текста, точнее с форматированием части данных в одной ячейке...Ну к примеру, у меня есть в ячейке A1 строка из 100 символов, и мне надо сделать 50 первых символов жирным, а другие 50 символов поменять размер шрифта. Есть вот что:Код:'Главная процедураSub Main GetCellsDst(1,1).String = "Некий текст..." Arial "A1", 8, False, FalseEnd Sub'Возвращает ячейку на листе Listfunction GetCellsDst(x,y as Integer) as Object GetCellsDst = List.getCellByPosition(x - 1, y - 1)End function'Форматирование ячейкиSub Arial(Diaposon As String, Size As Integer, Bold As Boolean, Merge As Boolean)Dim Range As Variant Range = List.GetCellRangeByName(Diaposon) Range.CharFontName = "Arial" Range.CharHeight = Size If Bold Then Range.CharWeight = com.sun.star.awt.FontWeight.BOLD End If If Merge Then Range.Merge(True) End If 'Здесь надо какому то интерфейсу или свойству передать начальной значение для форматирования и конечное..., а вот как я никак не найду..((End Sub


Часовой пояс GMT, время: 16:54.


© www.otvetnemail.ru - Форум вопросов и ответов.