Word

[susinmn]

Настраиваю печатные формы для 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" пробовал, не помогает)
Заранее спасибо.

 

[amigolinx]

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

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

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

 

[susinmn]

wordAppObject.Caption = "Номер 1"
ActiveDocument.ActiveWindow.Caption = "Шаблон"
В итоге заголовок выглядит так *Шаблон-Номер 1*

Огросное спасибо amigolinx. *+* ему