開啟word檔案

procedure TfjfsglForm.SpeedButton4Click(Sender: TObject);

    var

    MSWord: Variant;

    str:string;

    begin

      if trim(DataModule1.adoquery27.fieldbyname('fjmc').asstring)<>'' then

      begin

        str:=trim(DataModule1.ADOQuery27.fieldbyname('fjmc').AsString);

        MSWord:= CreateOLEObject('Word.Application');//

        MSWord.Documents.Open('d:\Program Files\Common Files\Sfa\'+str, True);//

        MSWord.Visible:=1;//

        str:='';

        MSWord.ActiveDocument.Range(0, 0);//

        MSWord.ActiveDocument.Range.InsertAfter(str);//?úWord?D???ó×?·?'Title'

        MSWord.ActiveDocument.Range.InsertParagraphAfter;

      end

      else

      showmessage('');

    end;