VBNet - Форум - Перенос данных из Word в Excel

Вопрос: Перенос данных из Word в Excel Добавлено: 18.02.09 09:41

Автор вопроса: Eug

Данные: имеется текст в вордовском файле вида:

Раздел1 (имеет определенный стиль)
Статья1 (тоже имеет свой определенный стиль)
Статья2
...
СтатьяN

Раздел2
....

Задача: в Эксель записать в таком виде

A____________B
Раздел1
___________Статья1
___________Статья2

Раздел2
___________Статья1

Сделал:
Следующий код

With objDoc.Application.Selection.Find

        .ClearFormatting
        .style = objDoc.Styles("Стиль Заголовок 1;Заголовок 1 Знак Знак Знак Знак Знак Знак Знак Зн...")
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindNext
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        Do While .Execute = True
        If objDoc.Application.Selection <> Chr(13) Then
        j = j + 1
        ExcelApp.Application.Cells(j, 1) = objDoc.Application.Selection
        End If

        objDoc.Application.Selection = ""

        With objDoc.Application.Selection.Find

        .ClearFormatting
        .style = objDoc.Styles("Статья")
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        Do While .Execute = True
        If objDoc.Application.Selection <> Chr(13) Then
        k = k + 1
        ExcelApp.Application.Cells(k, 2) = objDoc.Application.Selection
        End If

        Loop


         End With
        Loop

End With

Но выдает только Раздел1 и дальше все статьи подряд...
Не знаю как переделать (((

Сам вижу что коряво но сделать ниче не могу...((
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: Eug Вопросов: 1 Ответов: 2	Профиль \| \| #1	Добавлено: 18.02.09 16:14
	Нашел для себя другой способ... Только как перебрать каждый параграф? Не могу выделить параграф по номеру после команды wordapp.Selection.Endof Курсор как стоял на месте так и стоит. Делал wordapp.Activedocument.paragraphs(i).Select не помогает Как его блин выделить? Ответить

Номер ответа: 2 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #2	Добавлено: 18.02.09 17:27
	Скинуть книжку? Там есть. Ответить

Номер ответа: 3 Автор ответа: Eug Вопросов: 1 Ответов: 2	Профиль \| \| #3	Добавлено: 19.02.09 09:39
	Все. Разобрался. Спасибо. Ток работает ОЧЕНЬ медленно ((( Ответить

Страница: 1 |