Чтение данных из WORDовского дока

[SKYS]

Имеется doc файл в котором присутствует как просто текст так и 2 таблицы

так вот мне необходимо считать в массив следующие строки текста и ячейки таблицы

7 строка -полностью
с 1 таблицы яцейка 5,2(5 строка 2 столбец) и 7,2


голова ща взорвется не могу понять как это сделать

[Viper]

Напрямую никак, только открыв его в Word, далее смотреть объектную модель Word.

[SKYS]

я програмно открываю ворд . Но как мне вытащить оттуда данные ума не приложу внести изменения в документ получается (дополнить) а вот получить данные никак

[Viper]

я програмно открываю ворд .

Каким образом?

[SKYS]

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

Dim WordApp As Word.Application '  экземпляр приложения
Dim DocWord As Word.Document'  экземпляр документа

'создаЈм  новый экземпляр Word-a
Set WordApp = New Word.Application

'определяем видимость Word-a по True - видимый,
'по False - не видимый (работает только ядро)
WordApp.Visible = True

Set DocWord = WordApp.Documents.Open("C:\DDD.doc")

'активируем его
DocWord.Activate



вот так.

[Viper]

Угу... А далее проникаемся существованием объектов Table, Tables для получения/записи данных в таблицы и кучи объектов при помощи которых можно добраться до слов, букв и строк

[SKYS]

а есть пример просто время поджемает на мне еще одна програма висит эту неуспеваю (разбираться некогда ) очень горит.

[Viper]

Готового примера под рукой нет (вернее их есть, но он под NET и из него очень много лишнего надо выгребать, а время - деньги). Попользуйся Поиском, здесь на форуме, по теме много писано и сказано

[SKYS]

поиск реализован через гуглю а достоп на гуглю у меня закрыт поэтому может ктото произведет поиск и кинут ссылки. просто очень надо а в интернет ресурсах ограничен.

[Viper]

Кнопка Поиск наверху к Google не имеет никакого отношения.

[SKYS]

при нажатии на неё появляется

You (user i4249) are not allowed to access
http://www.google.ru/custom?domains=bbs ... 1%3BDIV%3A%The reason :
You are not in the access list for URL(s) :



вот так .

[-=Jaga=-]

Вот здесь: http://www.vbstreets.ru/VB/Articles/default.aspx есть статьи по работе с Вордом. Я думаю найдете что исчите.

[Lumen]

SKYS
Это не тот поиск. Тот про который тебе говорили, находится в самом верху страницы и красный. Рядом с правилами и FAQ

[Antonariy]

Дайте же наконец ссылку человеку

[Twister]

Автору на вскидку:
http://uinc.ru/articles/39/
http://uinc.ru/articles/46/

[SKYS]

СПАСИБО ВСЕМ за содействие но вчера я последовал совету Viper'a и поковырял свойство tables и вот что я нарыл :

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

x = 2
Set v_Excel1 = CreateObject("Excel.Application")
Set v_Wb2 = v_Excel1.Workbooks.Open("d:\2.xls")
For i = 0 To k - 1
    Dim WordApp As Word.Application '  экземпляр приложения
    Dim DocWord As Word.Document '  экземпляр документа
    Dim TableWord As Word.Table

    'создаЈм  новый экземпляр Word-a
    Set WordApp = New Word.Application
    'определяем видимость Word-a по True - видимый,
    'по False - не видимый (работает только ядро)
    WordApp.Visible = False

    Set DocWord = WordApp.Documents.Open(mm(i))
    'активируем его
    DocWord.Activate
    a1 = text1.Text & DocWord.Range(350, 409) & Chr(13) & Chr(10)
    DocWord.Tables(1).Select
    a2 = DocWord.Tables(1).Cell(5, 2).Range.Text
    a3 = DocWord.Tables(1).Cell(7, 2).Range.Text
    h1 = InStr(a1, "фактура")
    h = InStr(a3, "Топкинский цемент")
    If h1 <> 0 And h = 0 Then
    DocWord.Tables(2).Select
    a = DocWord.Tables(2).Rows.Count
    For j = 3 To a - 1
v_Excel1.Range("a" & x) = a1
v_Excel1.Range("b" & x) = a2
v_Excel1.Range("c" & x) = a3
v_Excel1.Range("d" & x) = DocWord.Tables(2).Cell(j, 1).Range.Text
v_Excel1.Range("e" & x) = DocWord.Tables(2).Cell(j, 3).Range.Text
v_Excel1.Range("f" & x) = DocWord.Tables(2).Cell(j, 4).Range.Text
v_Excel1.Range("j" & x) = DocWord.Tables(2).Cell(j, 5).Range.Text
x = x + 1
Next j
End If
DocWord.Close True
'закрываем Word (без запроса на сохранение)
WordApp.Quit True
'уничтожаем обьект - документ
Set DocWord = Nothing
'уничтожаем обьект - Word
Set WordApp = Nothing

DoEvents
Label1.Caption = i & "   из  " & k
Next i
v_Wb2.Close True
v_Excel1.Quit
Set v_Wb2 = Nothing
Set v_Excel1 = Nothing
MsgBox "Готово"

Этим способом я вытаскиваю нужную мне информацию в excel .
Может кому пригодится

[BION]

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

[Viper]

Показывай как так, и сяк тож показывай

[SKYS]

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

Тебе необходимо добавить в существующий док или сделать идентичный (такой же)?

Если такойже то просто скопируй ну скажем с помощью FSO .

А если добавить к уже существующему доку то тогда
1. Читай формат исходного дока
2. Применяй этот формат при добавлении данных в имеющийся док.

[SSecurity]

короче наверно поможет

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

ActiveDocument.Content.Copy

это я на вскидку ....
если надо таблички просто покопировать ... например так:

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

ActiveDocument.Content.Tables(1).Copy

тоже навскидку .... может и не работать )) но суть думаю ясна...
можно пробывать через

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

Объект.Select
Copy
'... уходим в другой док и ...
Paste


С Уважением,
Сергей