Объединить несколько Word-файлов (OLE)

Тема в разделе "Lotus - Программирование", создана пользователем admigator, 3 янв 2013.

  1. admigator

    admigator Active Member

    Регистрация:
    20 дек 2010
    Сообщения:
    40
    Симпатии:
    0
    Всем привет.
    Работаю с Word не так давно.
    Задача - с нескольких документов выгрузить прикрепленные OLE файлы Word
    и потом обьеденить их в один для печати.
    Выгрузка получилась.
    После выгрузки пробую создать новый документ и обьеденить в нем все с диска.
    Код (LotusScript):
        Set oleobject = doc.CreateObject("OLEObject",note.~$OLEObjProgID(0),"")
    Call oleobject.Range().InsertFile("D:\Lotus\Notes\Data\export\1.doc")
    Call oleobject.Range().InsertFile("D:\Lotus\Notes\Data\export\2.doc")
    Call oleobject.Range().InsertFile("D:\Lotus\Notes\Data\export\3.doc")
    После открытия Word в документе "моргают" поочередно все файлы и остается только последний.
    Подскажите плз. как правильно сделать.
     
  2. admigator

    admigator Active Member

    Регистрация:
    20 дек 2010
    Сообщения:
    40
    Симпатии:
    0
    Сам пошутил, сам посмеялся :)
    Получилось методом "ТЫКА"
    Кому надо - пользуйтесь

    Код (LotusScript):
    Sub Click(Source As Button)
    On Error Goto ErrorHandler
    On Error 208 Goto NewObject
    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Set uidoc = ws.currentdocument
    Dim doc As NotesDocument
    Set doc = uidoc.Document
    Set Wordobj = GetObject("", "Word.Application")
    Wordobj.Visible = True
    Wordobj.Activate
    Wordobj.WindowState = 1

    Wordobj.Documents.Add("")
    Wordobj.Documents(1).Paragraphs.Last.Range().InsertFile("D:\Lotus\Notes\Data\export\1.doc")
    Wordobj.Documents(1).Paragraphs.Last.Range().InsertFile("D:\Lotus\Notes\Data\export\2.doc")
    Wordobj.Documents(1).Paragraphs.Last.Range().InsertFile("D:\Lotus\Notes\Data\export\3.doc")

    Exit Sub
    NewObject:
    Set Wordobj = CreateObject("Word.Application")
    Resume Next
    Exit Sub
    ErrorHandler:
    Msgbox "Error " & Err() & ": " & Error()
    Exit Sub
    End Sub
     
  3. VladSh

    VladSh начинающий
    Lotus team

    Регистрация:
    11 дек 2009
    Сообщения:
    1.251
    Симпатии:
    2
    Работа через OLE, тем более с продуктами M$ быстро теряет популярность, потихоньку все от этого уходят. Да и тем по OLE навалом здесь. Поэтому никто и не отвечал (просто мало кому надо).
     
Загрузка...
Похожие Темы - Объединить несколько Word
  1. Станислав
    Ответов:
    0
    Просмотров:
    335
  2. JohnLemon
    Ответов:
    40
    Просмотров:
    2.421
  3. Serduko
    Ответов:
    43
    Просмотров:
    3.332
  4. gardlok
    Ответов:
    0
    Просмотров:
    1.366
  5. susinmn
    Ответов:
    7
    Просмотров:
    3.620

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