Поиск в Excel+Word

[vfayans]

Открываю документ Word в макросе Excel. Казалось бы, после этого мне должны быть доступны все объекты, методы и свойства VBA для Word. Так нет: использование Find приводит к ошибке. Конечно. я могу тупо, абзац за абзацем, перебрать содержимое Wordовского док-та и найти, что надо, но ведь хочется сделать это одной операцией типа Selection.Find , которая прекрасно работает, если изначально сидишь в Wordе, а не в Excelе. Угробил уйму времени. Помогите !!!

[R Dmitry]

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

Открываю документ Word в макросе Excel. Казалось бы, после этого мне должны быть доступны все объекты, методы и свойства VBA для Word. Так нет: использование Find приводит к ошибке. Конечно. я могу тупо, абзац за абзацем, перебрать содержимое Wordовского док-та и найти, что надо, но ведь хочется сделать это одной операцией типа Selection.Find , которая прекрасно работает, если изначально сидишь в Wordе, а не в Excelе. Угробил уйму времени. Помогите !!!

может я не прав....
но мне кажется надо в excel включить библиотеку microsoft word 12.0 object librari

[EducatedFool]

Казалось бы, после этого мне должны быть доступны все объекты, методы и свойства VBA для Word

Так оно и есть - все методы и свойства доступны.

В Вашем случае возможны 2 варианта:

1) ошибка в коде
2) использование в коде вордовских констант типа wdFindContinue, wdParagraph и т.д. при неподключенной библиотеке Word
(в этом случае Excel не знает, чему равны значения этих констант, и подставляет вместо них нули)

Покажите код - может, что и посоветуем.

[vfayans]

Сообщение от R Dmitry

может я не прав....
но мне кажется надо в excel включить библиотеку microsoft word 12.0 object librari

Увы, в том-то и дело, что подключение не спасло !

[R Dmitry]

увы! нет файла нет и ответа

[vfayans]

В ZIP-файле - тестовые процедуры для FIND в Excel'е и Word'е, а также
снимок с экрана со списком подключённых библиотек.

[doober]

А если так попробовать

Public Sub T_FIND()
Const ANNO = "Аннотация"

Dim DOC As Object, DOCS As Document, W As Word.Application
Dim path_ As String, FName As String
Set DOC = ThisWorkbook
path_ = DOC.Path
ChDir path_
Set W = New Word.Application
W.Visible = True
FName = path_ & "\Test_FIND.doc"  'файл, содержащий слово "Аннотация"
Set DOCS = W.Documents.Open(FName)
DOCS.Select

With W
'  поиск слова "Аннотация"

    With .Selection.Find
        .Text = ANNO
        .Execute MatchWholeWord:=False
    End With
End With
End Sub

Все работает

[vfayans]

Нет слов. Огромное СПАСИБО!!!
Предварительно заменил (на 11-ую) 12 версию Wordовской библиотеки, которую VBA подцепил, когда я работал в Office 2007. Убедился в том, что всё работает и без DOCS.Select.
Кроме того, открывать Wordовский файл можно было и через CreateObject("Word.Application"), как у меня.
Но Set W = New Word.Application оказалось для меня воистину New .
А заработала эта штука благодаря W.Selection !!! Победа !!!