Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > обработка текста в Word

Автор: Dimasm 4.9.2005, 18:42

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

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

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

Автор: Push 6.9.2005, 15:36

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

Код


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

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

Автор: Loiste 4.10.2005, 11:17

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

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

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

Автор: likhobory 4.10.2005, 12:44

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

Код


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

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