в Excel VBA, как получить форматы текста в ячейке

Question

В Excel VBA я хочу получить текст ячейки вместе с форматом каждого слова.Например, ячейка A1 имеет значение " sample text ".Range («A1»). Свойство Value возвращает только простой текст (например, «образец текста»).То, что я хочу, это объект, который дает мне что-то вроде « sample text ».Что это за объект в Excel DOM?

Answer 1

Вы можете сделать это, проверяя Font из Characters, один за другим, и открывая / закрывая теги форматирования в выходных данных соответственно:

dim i as long
for i=1 to activecell.characters.count
  with activecell.characters(i,1).font
    if .bold then
      'open <b>, if not already opened
    else
      'close <b>, if not already closed
    end if

    if .italic then
      'open <i>, if not already opened
    else
      'close <i>, if not already closed
    end if

    ' etc
  end with
next