Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.09.16;
Скачать: [xml.tar.bz2];

Вниз

Вопрос про VTable интерфейс   Найти похожие ветки 

 
lovres   (2002-09-05 14:21) [0]

Имеется следующий код:

procerdure TForm1.Button1Click(Sender: TObject);
var
//Объявление переменных, для передачи их в
//eкачестве формальных параметров в сервер автоматизации
Shablon,FileName,oldStr,newStr,replace,ext:OleVariant;
begin
Table1.Active:=false;
Table1.Active:=true;

Shablon:=ExtractFilePath(Application.EXEName)+"shablon.DOC";
FileName:=ExtractFilePath(Application.EXEName)+"report.DOC";
//Открываем шаблон документа
WordApplication1.Documents.Open
(Shablon,EmptyParam, EmptyParam,EmptyParam,
EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam);
//Связываем компоненту с существующим интерфейсом
WordDocument1.ConnectKind:=ckAttachToInterface;
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
replace:=1; oldStr:="@1"; newStr:=DateTimeToStr(Now);
//Находим в документе метки и производим их замены
WordDocument1.Range.Find.Execute(oldStr,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,newStr,replace);
//сохранение документа и отображение его в OLE контейнере
//(предварительный просмотр)
WordDocument1.SaveAs(FileName); WordDocument1.Close;
OleContainer1.CreateLinkToFile(FileName,false); OleContainer1.Refresh;
end;
---------------------------------------
Delphi ругается на выделенные строки - говорит Table1 не объявлен, я сам новичок и не знаю каким его объявить надо, знаю лишь, что это как-то связано с интерфейсом VTable. Подскажите, пожалуйста, что мне надо добавить или может что-то объявить?


 
lovres   (2002-09-05 14:31) [1]

Sorry, стормозил, вопрос снимается.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.09.16;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.008 c
1-50698
Micah'GF
2002-09-04 21:06
2002.09.16
Нужно держать 2 копии программы.


3-50607
MyVeryShortLogin
2002-08-26 12:13
2002.09.16
Проблема с генераторами в IB->Delphi


1-50693
Sherbacov
2002-09-04 17:55
2002.09.16
DOS и TMEMO


6-50881
Марина
2002-07-09 09:44
2002.09.16
Использование FastNet


7-51007
Alex_i
2002-07-01 19:00
2002.09.16
Удаление ярлыков





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский