delphi控制WORD的问题！(100分)

I

itfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-10

• #1

procedure TForm1.Button1Click(Sender: Tobject);
var MSWord: Variant;
begin
MSWord := CreateOLEObject('Word.Application');//连接Word
MSWord.Documents.Open(FileName:='d:/test.doc', ReadOnly:=True);//打开外部Word文档
MSWord.Visible := 1;//是否显示文件编辑
MSWord.ActiveDocument.Range(Start:=0, End:=0);//开始改变的启止位置
MSWord.ActiveDocument.Range.InsertAfter(Text:='Title');//在Word中增加字符'Title'
MSWord.ActiveDocument.Range.InsertParagraphAfter;
MSWord.ActiveDocument.Range.Font.Name := 'Arial';//字体名称
MSWord.ActiveDocument.Range.Font.Size := 24;//字体大小
end;

显示错误：

[Error] Unit1.pas(29): Undeclared identifier: 'CreateOLEObject'

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-10

• #2

你增加了uses comobj;吗？

procedure TForm1.Button1Click(Sender: TObject);
var
MsWord: OleVariant;
begin
MsWord := CreateOleObject('Word.Application');
Word.Visible := True;
....

 

I

itfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-10

• #3

如果这个WORD文件没有呢！？怎么办？！

 

I

itfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-10

• #4

如何创建这个文件！？

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-10

• #5

MsWord.Documents.Add;

 

I

itfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-10

• #6

linsb 能不能具体一点。刚才我上面的代码执行他显示文件不存在。我想如果不存在就新建立一个。代码怎么写呢？

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-10

• #7

先判断所打开的文件是否存在，如果存在执行：MSWord.Documents.Open(FileName:='d:/test.doc', ReadOnly:=True);//打开外部Word文档
否则执行：MsWord.Documents.Add;

 

I

itfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-10

• #8

写法是：MsWord.Documents.Add(FileName:='d:/test.doc', ReadOnly:=True);
的吗？

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-10

• #9

MsWord.Documents.Add;

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-10

• #10

可参阅：http://www.delphibbs.com/delphibbs/dispq.asp?lid=737517

 

I

itfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-10

• #11

;