VB + Word.Application. Как это сделать ПРАВИЛЬНО?

[Ping]

Добрый день, Вам. Есть у меня на первый взгляд самая стандартная задача "VB&WORD":
--------------------------------------------------
Для начала опишу что требуется:
-программа на VB (exe)
-в окне объект WB As WebBrowser
-подключена библиотека Microsoft Word 8.0 Object Library
-созданы объекты: WAPP As Word.Application и WDOC As Word.Document
необходимо сделать чтото вроде проводника (дерево слева) по структуре с параллельным отображением документа (справа). Документы это индексированный список файлов *.doc
--------------------------------------------------
(*) Теперь то что делаю я (раньше делал, теперь понимаю что нужно по другому):

WB.Navigate("filename.doc")
Set WDOC = WB.Document
// и далее через методы и свойства класса WDOC управляю
// отображением документа в WB.
--------------------------------------------------

Чисто интуитивно я понимаю что надо делать так:

Set WAPP = CreateObject("Word.Application")
Set WDOC = WAPP.Documents.Open("Filename.doc")
// а потом КАК-ТО передать объект WDOC в WB.Document (чтобы
// WebBrowser отобразил этот WDOC) - но пока не знаю как.
// видимо есть и другой сценарий: сначала выполнить WB.Navigate
// ("filename.doc") , а потом его (WB.Document) передать в WDOC.
--------------------------------------------------

По тому варианту которым я пользовался (*): вобщем все проходит. через WDOC я могу и на печать отправить, и поиск в тексте сделать, и зуум и вобщем все. Но если в моменты, когда доковский файл открыт в моей программе запустить ворд то глючит:
- в запущенном ворде пропадают все панели инструментов
- после возвращения в мою программу при кликанье на открытый документ не происходит фокусировки и потом вообще вываливается.

--------------------------------------------------

Спасибо за Ваши советы.
p.s. Этот же вопрос весит на другом форуме "программистов" - те молчат. Может хоть сдесь просветят.

[GSerg]

Ну я бы сделал так.

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

Private Sub Command1_Click()
  OLE1.CreateLink "c:\Проверка связи.doc"
  MsgBox OLE1.object.fullname
End Sub

[Ping]

спасибо.
так я не пробовал. документ действительно открылся.
по дблклику - вызывает приложение-сервер (ворд).

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

[GSerg]

ole1.object - это Word.Document. Со всеми своими методами.

[Ping]

да. уже нашел такой. выполнил:

set WDOC = OLE1.Object

но , например,

(*) WDOC.ActiveWindow.View.Zoom.Percentage = WDOC.ActiveWindow.View.Zoom.Percentage + 10
' приближение по 10%

ни к чему не приводит в окне OLE1.
но если вызвать из OLE1 сам Word (дабл клик)
выполнение (*) приводит к изменениям
в окне Worda. Как обойти? Так вроде
на правильном пути. Попробую посмотреть свойства OLE1.
Может там флаг есть какойто...

[GSerg]

Там определённо есть refresh...

[Ping]

неа. не реагирует.
дело в том, что когда я пишу

WDOC.ActiveWindow.View.Zoom.Percentage = ...

я уже заведомо обращаюсь не к [Form1.Ole1], а
к [ActiveWindow], который есть Word. и ззум крутиться
в Worde (это видно если ворд вызвать). Надо либо не через ActiveWindow,
либо в OLE1 - флажок какойто крутнуть, чтобы
считалось что ActiveWindow - это он (OLE). Попробую сейчас поискать чтонибудь...


спасибо, конечно, за помощь.

[Ping]

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