Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как вставить в 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


Наверх

Титульная страница Поиск, карта сайта Написать письмо