Как получить в строковую переменную имя шрифта?

[tvitaly1]

Как получить в строковую переменную имя шрифта в выделенном тексте в Write Basic?

[neft]

По мотивам вашего предыдущего вопроса и ответа Клио

Код Выделить Развернуть

TextFontName = selection.getByIndex(0).CharFontName
и т.д. и т.п.


Но! А если в выделенном тексте используются несколько разных шрифтов?

PS. Нужно осваивать работу с расширением Xray. И сможете сами отвечать на свои вопросы.

[tvitaly1]

По мотивам вашего предыдущего вопроса и ответа Клио

Код Выделить Развернуть

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

Но в идеале мне хотелось бы иметь функцию типа запись?

Как объявить запись?

[neft]

Но в идеале мне хотелось бы иметь функцию типа запись?

Как объявить запись?

"Запись" в смысле - type Record?

[tvitaly1]

По мотивам вашего предыдущего вопроса и ответа Клио

Код Выделить Развернуть

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

Но в идеале мне хотелось бы иметь функцию типа запись?

Как объявить запись?

[tvitaly1]

Растроен я на это определение, куча случав, когда в абзаце только один шрифт, а функция правильно шрифт не определяет!

[neft]

Растроен я на это определение, куча случав, когда в абзаце только один шрифт, а функция правильно шрифт не определяет!

А вот теперь нужно показать ваш файл с этой ошибкой, чтобы понять в чем ошибка.

[tvitaly1]

Растроен я на это определение, куча случав, когда в абзаце только один шрифт, а функция правильно шрифт не определяет!

пробелы символом Mangal не бъются, заменяются на Tahoma

А вот теперь нужно показать ваш файл с этой ошибкой, чтобы понять в чем ошибка.

пробелы символом Mangal не бъются, заменяются на Tahoma 

[tvitaly1]

пробелы символом Mangal не бъются, заменяются на Tahoma 

Но вот тут же показывает Mangal не смотря на пробелы!!!

Почему при этом эта функция выдает пустую строку?

Код Выделить Развернуть

Type ff
Name1 as String
End Type

function Font
Dim oCurrentSelection As Variant
Dim nCount As Long
Dim i as long
   oCurrentSelection = ThisComponent.getCurrentSelection()
   nCount = oCurrentSelection.getCount()
      Font = CreateObject("ff")
      Font.Name1 =""
       
       for i=0 to nCount-1
        if i>0 then
          Font.Name1 = Font.Name1+";"
         end if
         Font.Name1 = Font.Name1+ oCurrentSelection.getByIndex(i).CharFontName
        next i
       
end Function

[neft]

Потому, что в выделении несколько шрифтов.

[tvitaly1]

Потому, что в выделении несколько шрифтов.

Это понятно, но может быть можно определить имя шрифта не взирая на пробелы?
В Ворде в таком случае программно определяется Mangal.
Название шрифта можно получить непосрественно из combobox?

[neft]

В Ворде шрифт выделенного текста может определяться по первому символу в выделении.
Если хотите, можете делать также.

[tvitaly1]

 В прикрепленных файлах абзац, в котором используется только Mangal, и файл со шрифтом.

Во всем абзаце щрифт неопределяется, но если проверять каждое слово в отдельности или каждый пробел в отдельности, показывает Mangal.

Так что неопределяется правильно для юникода во write.

[вложение удалено Администратором]

[neft]

Установить для выделения нужный шрифт.
Если нужно, то CharFontName => CharFontNameComplex (зависит от того, как устанавливался шрифт).



[вложение удалено Администратором]