急！急！急！如何在Delphi中调出word中的对话框，如“字体”对话框，分不够再加(100分)

如何在Delphi中调出word中的对话框，如“字体”对话框
查了DFW的前面的帖子，没有这方面的
分不够再加

要找到word菜单命令index，执行命令。
我试试看，再详细回复你。

xuxiaohan快帮我弄一下，谢谢

嘿嘿，试过了，OK
wordApplication.CommandBars.Item['Format'].Controls[1].Execute;
就这么简单！

我用以下代码试了一下,不行的
procedure TForm1.Button1Click(Sender: TObject);
var
VarWord: Variant;// 创建 WORD时所用
begin
try
// 1. 建立 OleObject，连接 word97
VarWord:=CreateOleObject('word.basic');
// 2. 建立 Word97的新文件
VarWord.FileNew;
// 3. 设置 Word97的基本状态
VarWord.ViewZoom75; //设置显示比例为 75%
VarWord.ViewPage; //改为页面显示方式
// 4. 将当前数据控件上的信息发送至 Word97
// 4.1 发送文号数据
VarWord.CenterPara; //居中
Varword.font('宋体 '); //设置字体
VarWord.FontSize(14); //设置字号
varword.insert(#13+#13+ Edit1.Text+#13+#13+#13);
// 4.2 发送标题数据
VarWord.font('黑体 ');
VarWord.Fontsize(16);
VarWord.insert( Edit1.text+#13);
// 4.3 发送收文单位数据
VarWord.LeftPara; //左对齐
VarWord.Font('宋体 ');
VarWord.fontSize(14);
VarWord.Insert(#13+ Edit1.Text+'： '+#13);
// 4.5 发送正文数据
VarWord.fontSize(14);
VarWord.Insert( Edit1.Text+#13);
// 4.6 发送发文单位数据
VarWord.RightPara; //右对齐
VarWord.fontSize(14);
VarWord.Insert( Edit1.Text+#13);
VarWord.CommandBars.Item['Format'].Controls[1].Execute;

// 5 最后设置
VarWord.StartOfdocument; //到文首
VarWord.AppMaxiMize; //设置窗口最大化
VarWord.AppShow; //显示应用程序
except
showmessage('运行 Microsoft Word 失败！ ');
end; //end of try
end;
//end：数据发送到 word事件

多人接受答案了。