更改word的标题格式，下面的语句在delphi中报错，不知道是什么原因 ( 积分: 30 )

我在delphi中执行下列语句
WordObj : OleVariant;

try
WordObj:= GetActiveOleObject('Word.Application');
except
try
WordObj:= CreateOleObject('Word.Application');
except
Application.MessageBox('生成文档失败！请确定MacrosoftWord正确安装','Error');
exit;
end;
end;
WordObj.visible:=1;
WordObj.Documents.Add(Template:='',NewTemplate:=False);

WordObj.ActiveDocument.Styles('标题 1').Font.NameFarEast := '黑体';---------1
执行语句1时报错：Styles不是一种方法
谁知道该怎么改呀？

我在delphi中执行下列语句
WordObj : OleVariant;

try
WordObj:= GetActiveOleObject('Word.Application');
except
try
WordObj:= CreateOleObject('Word.Application');
except
Application.MessageBox('生成文档失败！请确定MacrosoftWord正确安装','Error');
exit;
end;
end;
WordObj.visible:=1;
WordObj.Documents.Add(Template:='',NewTemplate:=False);

WordObj.ActiveDocument.Styles('标题 1').Font.NameFarEast := '黑体';---------1
执行语句1时报错：Styles不是一种方法
谁知道该怎么改呀？

自己顶
有没有高手给指点迷津呀？

项目急用，在线等待，求助高手呀

自己顶

procedure TForm1.BitBtn1Click(Sender: TObject);
var
WordObj : OleVariant;
Style: OleVariant;
StyleName : WideString;// 这个好像一定要WideString才行
begin
try
WordObj:= GetActiveOleObject('Word.Application');
except
try
WordObj:= CreateOleObject('Word.Application');
except
Application.MessageBox('生成文档失败！请确定MacrosoftWord正确安装','Error');
Exit;
end;
end;
StyleName := '标题 1';
WordObj.visible:=1;
//WordObj.Documents.Add(Template:='',NewTemplate:=False);
Style := WordObj.ActiveDocument.Styles.Item(StyleName);[blue] //看这里[/blue] Style.Font.NameFarEast := '黑体';
end;

to:chenybin

大哥，我等了你一晚上，别涮我呀

谢谢你的信任，答应你的事情一定会尽力的，看看上面改的内容能不能满足你的要求

另外你可以去参考Delphi目录下面的Ocx/Servers/Word2000.pas文件，可能对你有帮助

通过了，呵呵，十分感谢，散分