Word

Тема в разделе "Lotus - Программирование", создана пользователем susinmn, 23 май 2009.

  1. susinmn

    susinmn Well-Known Member

    Регистрация:
    16 окт 2007
    Сообщения:
    530
    Симпатии:
    8
    Настраиваю печатные формы для Lotus-документов

    TDoc-документ с Word-шаблоном

    TempFile=Environ("Temp")+"\"+doc.UniversalID+"1.doc"
    Set TItem = TDoc.GetFirstItem( "PrintFormFile" )
    If ( TItem.Type = RICHTEXT ) Then
    Forall o In TItem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) Then
    Call o.ExtractFile(TempFile)
    End If
    End Forall
    End If
    ..............
    Set ActiveDocument = wordAppObject.Documents.Add(TempFile)

    Word открывается с именем *Документ 1*
    А как сделать, что бы название у Word-документа было, ну скажем, *Изменение*?(TempFile=Environ("Temp")+"\Изменение.doc" пробовал, не помогает)
    Заранее спасибо.
     
  2. amigolinx

    amigolinx Гость

    Попробуй присвоить объекту wordAppObject в свойстве Caption нужный текст:
    wordAppObject.Caption = "что хочу то и пишу в заголовке Ворд ©" - это будет заголовком у всего Ворда (там где он после тирешки прописывает Microsoft Word)

    или так:
    wordAppObject.ActiveWindow.Caption = "что хочу то и пишу в заголовке документа ©" - это будет заголовком документа

    а там уже выбери, какой результат больше подходит, а не - так оба можно скомпоновать
     
  3. susinmn

    susinmn Well-Known Member

    Регистрация:
    16 окт 2007
    Сообщения:
    530
    Симпатии:
    8
    wordAppObject.Caption = "Номер 1"
    ActiveDocument.ActiveWindow.Caption = "Шаблон"
    В итоге заголовок выглядит так *Шаблон-Номер 1*

    Огросное спасибо amigolinx. *+* ему
     
Загрузка...
Похожие Темы - Word
  1. seoman2
    Ответов:
    6
    Просмотров:
    136
  2. seoman2
    Ответов:
    57
    Просмотров:
    997
  3. Dragon108
    Ответов:
    0
    Просмотров:
    205
  4. Ruska132
    Ответов:
    36
    Просмотров:
    1.436
  5. Mrack
    Ответов:
    0
    Просмотров:
    373

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