Document1: TWordDocument;

procedure TForm1.Button1Click(Sender: TObject);
var
  filename: OleVariant;
begin
  Try
    word.Connect;
  Except
    Showmessage('Word没有正确安装');
    Exit;
  end;
  FileName := 'c:\报表.doc';
  word.Visible := False;
  Document1.Connect;
  Document1.Content.InsertAfter('周报表');
  Document1.SaveAs(FileName);
我想把“周报表”居中并且 变大加粗
是要用 WordFont控件吧 可是不知道如何用
哪位高手帮忙指点一下 
多谢了!!!!!!!!!!!!!!!!!!!!!!!