Макрос для замены Word-стилей на тэги

[Goodnight]

Есть задача, нужно преобразовать текст из ворда, таким образом, чтобы после выполнения макроса word`овое форматирование описывалось тэгами наподобии html`ных. К примеру, в ворде: Мама мыла раму, после обработки макросом:<b>Мама </b><i>мыла</i><i><b>раму</b></i>.
Честно говоря, программист из меня не важный, хотя до сих пор макросы себе писал и без советов. Но тут я в тупике. Я даже не знаю, это сложно или нет... Буду признателен за любую помощь! Заранее спасибо.

[GSerg]

А если "Сохранить в формате HTML"?

[RayShade]

GSerg, ты хоть помнишь, В КАКОЙ HTML сохраняет Word свои файлы? Или это такой далеко идущий подкол?

[Goodnight]

Дело в том, что на выходе, мне нужно получить не html документ, а обычный текстовый файл, в котором стили описаны тэгами. С горем пополам сгодился бы и html, но ворд, при создании веб-документа, добавляет мету с указанием на кодировку, естесственно, 1251 и это ломает автоматизацию процесса, так как приходится лезть в каждый файл и править мету...

[alibek]

Тебе какое форматирование нужно сохранять?
Если только Bold/Italic/Underline, то несложно. Можно добавить и размер шрифта и даже сам шрифт, хотя получится и хуже.

Тебе нужен совет или готовый пример?

[Goodnight]

В идеале Bold/Italic/Underline и шрифт...
Лучше совет, во всяком случае пока, когда сам что-то делаю лучше понимаю.

[alibek]

Тогда такая идея. Делишь весь текст на параграфы (коллекция Paragraphs). В каждом параграфе есть .Paragraphs(<index>).Range, Range - это текст (с оформлением и прочим).
Потом идет цикл по всем символам указанного параграфа (.Range.Characters).
Тут есть один ньюанс. Твой пример можно представить как "<b>Мама </b><i>мыла</i><i><b>раму</b></i>", а можно как "<b>Мама </b><i>мыла <b>раму</b></i>". Первый вариант проще, второй сложнее, но правильнее.
Будем исходить из того, что нормальный текст - это не полужирный, не курсив и не подчеркнутый (о шрифте пока не говорим).
Идет такой цикл:

Код: Выделить всё

'S - результат
'нормальное начертание
fBold = False
fItalic = False
S = ""
For I = 1 To .Characters.Count
  If .Characters(I).Bold <> fBold Then
    fBold = .Characters(I).Bold
    S = S & IIf(fBold, "<B>", "</B>")
  End If
  If .Characters(I).Italic <> fItalic Then
    fItalic = .Characters(I).Italic
    S = S & IIf(fItalic, "<I>", "</I>")
  End If
  S = S & .Characters(I)
Next I


Что-то типа такого

[alibek]

Кстати, вот и первая поправка. Закрывающие тэги надо ставить после символа.

[Goodnight]

Спасибо! Кажется понял, пошел копать.