Всем доброго времени суток

Есть некоторый документ word.
Текст в нём отформатирован и сипользованием, допустим, только 3-х стилей.
Нужно макросом пробежаться по документу, и записать текст форматированный
стилем "1" в файл test1.txt
стилем "2" в файл test2.txt
стилем "3" в файл test3.txt

как я смог понять, то это делается циклом foriach
по обзацам документа. проверять название стиля
и если то, что надо, то записывать в файл
Как это реализовать в виде кода?
Как добраться к абзацам?

Примерно так:

Код

Dim mydoc As Document Dim par As Paragraph Set mydoc = ActiveDocument For Each par In mydoc.Paragraphs     If par.Style = "Заголовок 1" Then         ......     End If Next ......

Супер! Спасибо!
А если я пробегаю уже по абзацу, отдельно по словам?
Слово может быть выделенно курсивом, или жирным шрифтом,
и мне нужно найти именно его.

Цитата(Dimasm @ 6.9.2005, 18:36)

А если я пробегаю уже по абзацу, отдельно по словам?

Да, мне тоже интересно как пробежать по отдельным словам в абзаце?

пробегаем по всем словам абзаца

Код

Dim wd As Range For Each wd In ActiveDocument.Paragraphs(3).Range.Words  MsgBox wd.Text Next

инфу о форматировании можешь узнать, используя св-ва объекта: bold,italic и т.д.....