Объект Microsoftword

[velitchestvo]

Как можно выбрать уже существующий вордовский документ из Лотуса?
Спасибо.

 

[morpheus]

<!--QuoteBegin-velitchestvo+1:09:2006, 11:01 -->
<span class="vbquote">(velitchestvo @ 1:09:2006, 11:01 )</span><!--QuoteEBegin-->Как можно выбрать уже существующий вордовский документ из Лотуса?

[snapback]43039" rel="nofollow" target="_blank[/snapback]​

[/quote]


Откуда выбрать и куда выбрать?
и где он кстати существует этот документ

 

[velitchestvo]

Необходимо открыть любой .doc документ в коде который написан на кнопке во вьюхе:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim agent As NotesAgent

Set agent = session.CurrentAgent

Dim Db As NotesDatabase
Dim Workspace As New NotesUIWorkspace

Set DB = session.CurrentDatabase

Dim ExcelObj As Variant
Dim App As Variant

'создаем объект
Set WordObj = CreateObject("Word.Application")
Set App = WordObj.Application

Dim ws As New NotesUIWorkspace

Dim filename As String
filenames = ws.OpenFileDialog( _
True, "Select files to be deleted",, "c:\work")
If filenames(0) = "" Then Exit Sub
filename = Strrightback(Cstr(filenames(0)), "\")

'главный объект
App.Documents.Open filename 'вылетает ошибка: неправильное имя файла

End Sub
и найти в этом вордовском документе все разделы (заголовки).

 

[morpheus]

<!--QuoteBegin-velitchestvo+5:09:2006, 08:27 -->
<span class="vbquote">(velitchestvo @ 5:09:2006, 08:27 )</span><!--QuoteEBegin-->'главный объект
App.Documents.Open filename 'вылетает ошибка: неправильное имя файла

[snapback]43228" rel="nofollow" target="_blank[/snapback]​

[/quote]
Проверить filename!
может только имя возвращать , а необходим путь(проверить правильность пути)

 

[oshmianski]

Необходимо открыть любой .doc документ в коде который написан на кнопке во вьюхе:
...

у меня 2003 MS Word вот что написал в макросе:
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 05.09.2006
'
ChangeFileOpenDirectory "D:\work\Docs\"
Documents.Open FileName:="Шаблон_ТП.doc", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
End Sub