Работа с шаблонами (*.dot) Ms Word

V88

Well-Known Member
22.10.2008
51
0
#1
Всем, привет!
Я делаю экспорт данных в виде отчетов в Ворд путем открытия ранее созданного файла шаблона в Ворде (Форма.dot).

Word := CreateOleObject('Word.Application');
Word.Documents.Open([путь к файлу]+'\Форма.dot');

Вот после удачного вывода всего в Ворд, нажимаю в ворде на сохранить и все просто сохраняется в шаблон ( т.е. не запрашивает имя файла). Мне надо, чтобы при кликание на сохранить выводилось окно как при кликанье на "Соханить как..." и чтобы в типе файла стоял "Документ Word", а не "Шаблон документа Word", а шаблон Форма.dot оставался таким как был до эскпорта.

P.S. Я надеюсь все понятно объяснил )
 

hosm

* so what *
18.05.2009
2 442
9
#2
из справки ВБА всё понятно, под делфи сами переделайте вызов:
Returns a Document object that represents a new, empty document added to the collection of open documents:

expression.Add(Template, NewTemplate, DocumentType, Visible)
expression Required. An expression that returns a Documents object.
Template Optional Variant. The name of the template to be used for the new document. If this argument is omitted, the Normal template is used.
NewTemplate Optional Variant. True to open the document as a template. The default value is False.
DocumentType Optional Variant. Can be one of the following WdNewDocumentType constants: wdNewBlankDocument, wdNewEmailMessage, wdNewFrameset, or wdNewWebPage. The default constant is wdNewBlankDocument.
Visible Optional Variant. True to open the document in a visible window. If this value is False, Microsoft Word opens the document but sets the Visible property of the document window to False. The default value is True.

Documents.Add Template:="C:\Program Files\Microsoft Office\Templates\Memos\Professional Memo.dot"
 

V88

Well-Known Member
22.10.2008
51
0
#3
А ненадо открывать шаблон, надо делать документ на основании шаблона.
А как создавать документ на основании моего шаблона, в котором все-все написано и отформатирование как надо, только значения мои подставить?
Между прочим в Excelle проканало и простым открытием, а в Wordе - почему нет?
 

hosm

* so what *
18.05.2009
2 442
9
#4
V88 потому что микрософт =) ты читаешь, что отвечают? попробуй так
Word := CreateOleObject('Word.Application');
Word.Documents.Add([путь к файлу]+'\Форма.dot');
просто остальные параметры должны дефолтные подойти.