По мотивам вашего предыдущего вопроса и ответа Клио
TextFontName = selection.getByIndex(0).CharFontName
и т.д. и т.п.
Но! А если в выделенном тексте используются несколько разных шрифтов?
PS. Нужно осваивать работу с расширением
Xray. И сможете сами отвечать на свои вопросы.
Спасибо большое! А где посмотреть описание объектов на русском?
Вообщем меня интересовал только 1 фрагмент текст с только одним выделенным шрифтом, следующей функцией я вполне могу это определить
function FontName as string
Dim oCurrentSelection As Variant
Dim nCount As Long
Dim i as long
oCurrentSelection = ThisComponent.getCurrentSelection()
nCount = oCurrentSelection.getCount()
Fontname =""
for i=0 to nCount-1
if i>0 then
Fontname = Fontname+";"
end if
Fontname = Fontname+ oCurrentSelection.getByIndex(i).CharFontName
next i
end Function
Но в идеале мне хотелось бы иметь функцию типа запись?
Как объявить запись?