Форум: "Сети";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
ВнизНесколько вопросов по TWebBrowser. Найти похожие ветки
← →
knyaz17 (2002-02-13 11:06) [10]Не работает!!!!
На строке
WordApplication1.Selection.Paste;
выдает ошибку!!!
Полный код процедуры таков:
procedure TForm1.ToolButton5Click(Sender: TObject);
var
vers: WideString;
FileName, FileFormat: OleVariant;
begin
FileName:=OleVariant("My.Doc");
FileFormat:=OleVariant(wdFormatDocument);
//FileName:=OleVariant("My.RTF");
//FileFormat:=OleVariant(wdFormatRTF);
WordApplication1.ConnectKind:=ckNewInstance;
WordApplication1.Connect;
WordDocument1.ConnectKind:=ckNewInstance;
WordDocument1.Connect;
WebBrowser1.SelectAll;
WebBrowser1.Copy;
WebBrowser1.Refresh2;
//WordDocument1.Select;
WordApplication1.Selection.Paste;
WordDocument1.SaveAs(FileName, FileFormat); //.Save(EmptyParam,EmptyParam);
WordDocument1.Close;
WordApplication1.Disconnect;
end;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c