![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как вставить в Word текст из буфера обмена?
knyaz17 © (2002-02-12 12:01:00)Господа подскажите пожалуйста!
Как всавить в Word текст из буфера обмена c помощью компанент странички Servers?
Заранее благодарен.
skiph (2002-02-15 09:20:00) [1]Попробуй между WordApplication1 и Selection вставить Application, т.е. WordApplication1.Application.Selection....
Я с вордом через компоненты не работал, но через переменные Application в таких случаях необходимо.
knyaz17 (2002-02-13 11:04:00) [2]Я копирую текст из компанеты TWebBrowser и хочу вставить его в Word, но на строке
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); WordDocument1.Close;
WordApplication1.Disconnect;
end;
Набережных С. (2002-02-12 19:43:00) [3]Selection.Copy
Selection.Paste
knyaz17 (2002-02-12 14:37:00) [4]Ха-Ха!!!
А если серьёзно?
c помощью компанент странички Servers???
РАК (2002-02-12 13:22:00) [5]Ctrl+V