Главная страница
    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.007 c
3-50603
Gaber
2002-08-26 10:57
2002.09.16
Русский шрифт в Database Desktop


3-50614
billybons
2002-08-26 12:18
2002.09.16
Почему не работает TFilterOption foCaseInsensitive ?


14-50962
JAndrey
2002-08-22 10:24
2002.09.16
Где взять компоненты для работы с COM, LPT, EPP, ECP портами???..


1-50822
maxim2
2002-09-04 06:07
2002.09.16
И еще вопросик как узнать на какой строке находится курсор в Rich


1-50806
mvg_first
2002-09-03 14:59
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский