Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как из дельфи запустить Wordовский шаблон? / 8 сообщений из 8, страница 1 из 1
02.07.2003, 16:23
    #32197494
SergeyS
SergeyS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из дельфи запустить Wordовский шаблон?
Как из дельфи создать новый документ из Wordовский шаблон?
Т.е. есть шаблон документа, напримет ххх.dot, нужно из дельфи запустить его и тем самым создать документ с название ххх1.doc и т.д.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2003, 16:26
    #32197504
Speaker
Speaker
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из дельфи запустить Wordовский шаблон?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
...
    appWord: TWordApplication;
    docWord: TWordDocument;
...

// Открытие MS Word
function TReportData.OpenWord( T : String ) : Boolean;
var Template : OleVariant;
begin
  try
    if Assigned(fProgress) then fProgress.SetStatus( 'Открытие Microsoft Word' );
    appWord.Connect;
    if T<>'' then Template := T else Template := EmptyParam;
    docWord.ConnectTo( appWord.Documents.Add( Template, EmptyParam, EmptyParam, EmptyParam ) );
    Result := True;
  except
    Result := False;
  end;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2003, 16:35
    #32197526
Speaker
Speaker
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из дельфи запустить Wordовский шаблон?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
// Закрытие MS Word
function TReportData.CloseWord : Boolean;
begin
  try
    if Assigned(fProgress) then fProgress.SetStatus( 'Закрытие Microsoft Word' );
    appWord.Visible := True;
    docWord.Disconnect;
    appWord.Disconnect;
    Result := True;
  except
    Result := False;
  end;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2003, 16:50
    #32197549
zZzZz
zZzZz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из дельфи запустить Wordовский шаблон?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
 
var 
 SaveChanges,Template, OpenAsTemplate: OleVariant; 
 WordApp: TWordApplication;
 WordDoc1: TWordDocument;
Begin
   WordApp := WordApp.Create(nil);
   Template := 'Normal';
   SaveChanges := False; 
   OpenAsTemplate := True;
   WordApp.Documents.Add(Template, OpenAsTemplate);
   WordDoc1.ConnectKind := ckAttachToInterface;
   WordDoc1.ConnectTo(WordApp.ActiveDocument);
   WordApp.Visible := true;
   WordDoc1.Disconnect;
   WordApp.Disconnect;
End;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2003, 13:24
    #32198385
SergeyS
SergeyS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из дельфи запустить Wordовский шаблон?
А какую библиотеку нужно подключить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2003, 13:43
    #32198424
Speaker
Speaker
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из дельфи запустить Wordовский шаблон?
Ты бы сказал, что ли, какая версия Delphi...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2003, 13:46
    #32198428
SergeyS
SergeyS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из дельфи запустить Wordовский шаблон?
7
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2003, 13:52
    #32198436
Speaker
Speaker
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из дельфи запустить Wordовский шаблон?
У тебя должна быть закладка Servers, оттуда и возьми
все необходимые компоненты.
Если что, то юнит = Word2000
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как из дельфи запустить Wordовский шаблон? / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]