Как макросом из excel брать данные с word документов?

[RISagitov]

Например выделить весь word текст , cкопировать , вставить в excel

Но лучше без открытия документа

[EducatedFool]

А вставлять надо вместо с форматированием?

Если без форматирования - пример код можно посмотреть здесь:
http://excelvba.ru/programmes/Notepad

Sub CommandButton1_Click()
    On Error Resume Next
    ' создаём приложение Word (без подключения библиотеки Word)
    Set wa = CreateObject("Word.Application")
    wa.Visible = False    ' делаем Word невидимым
    Set wd = wa.Documents.Open("полный путь к файлу Word")

    MsgBox wd.Range.Text
    wd.Close False    ' закрываем документ
    wa.Quit False
End Sub

[RISagitov]

Сообщение от EducatedFool

А вставлять надо вместо с форматированием?

Если без форматирования - пример код можно посмотреть здесь:
http://excelvba.ru/programmes/Notepad

Sub CommandButton1_Click()
    On Error Resume Next
    ' создаём приложение Word (без подключения библиотеки Word)
    Set wa = CreateObject("Word.Application")
    wa.Visible = False    ' делаем Word невидимым
    Set wd = wa.Documents.Open("полный путь к файлу Word")

    MsgBox wd.Range.Text
    wd.Close False    ' закрываем документ
    wa.Quit False
End Sub

Спасибо Вам огромное,
А как выбирается не весь текст, а построчно?

[EducatedFool]

А как выбирается не весь текст, а построчно?

при помощи цикла

[RISagitov]

Сообщение от EducatedFool

при помощи цикла

Покажите , как это делается, если возможно
Заранее спасибо

[Скрипт]

RISagitov, выложите документ Word, книгу Excel с примерными данными и поясните на примере этих двух файлов, что вам нужно сделать.

[RISagitov]

Сообщение от Скрипт

RISagitov, выложите документ Word, книгу Excel с примерными данными и поясните на примере этих двух файлов, что вам нужно сделать.

Тот код который приведен выше, работает прекрасно, но выбирает весь текст, а мне нужен цикл, чтоб пробежал построчно, каждую строку, чтоб брал в перемен ную string

[Скрипт]

RISagitov, в VBA-Word доступ к строкам можно получить с помощью команды GoTo.

[RISagitov]

Сообщение от Скрипт

RISagitov, в VBA-Word доступ к строкам можно получить с помощью команды GoTo.

Может быть, но не могу найти пример , как это делать

[Ksanndra]

Доброго времени суток!
Я только знакомлюсь с VBA - ооочень нужна помощь!
Задача следующая: есть документ Word с 3 закладками, нужно внедрить в документ элемент управления – CommandButton , нажатие которой приводит к выполнению следующей последовательности операций:

- открывается табличный процессор Excel;

- открывается ранее созданная рабочая книга.

- в нужные ячейки вставляются новые названия(которые берутся из закладок Word), заменяя существующие.

Рабочая книга после выполнения процедуры обработки события Click кнопки должна остаться открытой.

Проблема заключается в выборе названия из закладок.
Буду бесконечно благодарна за наглядный пример!!!