Объект Microsoftword

Тема в разделе "Lotus - Программирование", создана пользователем velitchestvo, 1 сен 2006.

Статус темы:
Закрыта.
  1. velitchestvo

    velitchestvo Гость

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

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    <!--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]


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

    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
    и найти в этом вордовском документе все разделы (заголовки).
     
  4. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    <!--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!
    может только имя возвращать , а необходим путь(проверить правильность пути)
     
  5. oshmianski

    oshmianski Гость

    у меня 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
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей