Объект Microsoftword

  • Автор темы velitchestvo
  • Дата начала
Статус
Закрыто для дальнейших ответов.
V

velitchestvo

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

morpheus

скриптописец
07.08.2006
3 915
1
#2
<!--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]


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

velitchestvo

#3
Необходимо открыть любой .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

скриптописец
07.08.2006
3 915
1
#4
<!--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!
может только имя возвращать , а необходим путь(проверить правильность пути)
 
O

oshmianski

#5
Необходимо открыть любой .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
 
Статус
Закрыто для дальнейших ответов.