如何把一个文本文件的全部内容通过粘贴复制到 WORD 文件中?(50分)

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #1

如何把一个文本文件的全部内容通过粘贴复制到 WORD 文件中?

 

K

Kingron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #2

赫赫和~~~~~~~~~~~~~~很简单的，为什么不自己思考一下？

 

T

tooper

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #3

有很多了<br>自己看看吧[]

 

Z

z_rong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #4

[][]Ctrl+A Ctrl+C Ctrl+V就OK了吗！

 

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #5

我说的是通过程序实现

 

B

bbs_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #6

那个在以前的帖子中很多，去查查吧

 

D

duckdo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #7

1。uses Clipbrd <br>2。用TFileStream读出文本文件<br>3。Clipboard.asText ：=读出文本<br>4。SendMessage(Word的handle,WM_PASTE,0,0);<br>

 

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #8

能否举个例子说明

 

2

203010

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-08

• #9

var Template, NewTemplate, DocumentType, Visible: TOleVariant;<br>begin<br>&nbsp; Template := EmptyParam;<br>&nbsp; NewTemplate := True;,<br>&nbsp; DocumentType := wdTypeDocument;<br>&nbsp; Visible := True;<br>&nbsp; WordApplication1.Connect;<br>&nbsp; WordApplication1.Visible := True;<br>&nbsp; WordDocument1.ConnectTo(WordApplication.Documents.Add(Template, NewTemplate, DocumentType, Visible));<br>&nbsp; Memo1.Lines.LoadFromFile('...');<br>&nbsp; Memo1.CopyToClipboard;<br>&nbsp; WordDocument1.Content.Paste;<br>end;

 

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #10

To 203010, 程序编译错误

 

S

system_owen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #11

memo1-&gt;copytoclip();<br>

 

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #12

能否详细些?

 

B

bbboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #13

hi , try it yourself, it's easy for .....

 

B

bluerain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #14

procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; Template, NewTemplate,DocType,DocVisible : OleVariant;<br>begin<br>&nbsp; memo1.Lines.LoadFromFile('e:/readme.txt');<br>&nbsp; memo1.SelectAll;<br>&nbsp; memo1.CopyToClipboard;<br><br>&nbsp; Template := EmptyParam;<br>&nbsp; NewTemplate := EmptyParam;<br>&nbsp; DocType := EmptyParam;<br>&nbsp; DocVisible := EmptyParam;<br><br>&nbsp; WordApp.Connect; // WordApp : TWordApplication<br>&nbsp; WordApp.Visible := True;<br>&nbsp; WordApp.Documents.Add(Template,NewTemplate,DocType,DocVisible);<br>&nbsp; WordApp.Selection.Paste;<br>end;

 

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #15

多人接受答案了。