delphi word技术融合

原创 2006年06月24日 13:56:00

procedure TExprmResultDlg.PreviewExprmReport;
var
    Template, NewTemplate,DocumentType,OleVisible:oleVariant;
    strTitle_Prior,strText_Prior,strTitle_Last,strText_Last:String;
begin
    Try
        Wordapplication1.Connect;
    Except
        Application.MessageBox('您尚未安装 Word应用程序,请先安装Word2000,然后再运行本程序!',
                                '系统提示',mb_Ok +MB_ICONWARNING);
        Abort;
    End;

    Template := EmptyParam;  //表示不使用模板
    NewTemplate := False;  //表示新建新建文档的类型为文档

    Doc.ConnectTo(WordApplication1.Documents.Add(Template, NewTemplate,DocumentType,OleVisible));

    //关闭拼音查找和语法查找,以便提高程序运行的效率
    WordApplication1.Options.CheckSpellingAsYouType := False;
    WordApplication1.Options.CheckGrammarAsYouType := False;

    //添加页眉
    AddRepPageHeader(18,Edit_RepHeader.Text,alCenter);

    //添加页脚  页码设置
    AddRepPageFooder(1,alCenter);

    m_wordSesson:= WordApplication1.Selection;
    WordFont1.ConnectTo(m_wordSesson.Font);
    WordFont1.Name := '宋体';

    //输出报告信息
    AddParagraphTitle('模块信息');//添加段落标题

    strTitle_Prior:='厂站名称:';
    strText_Prior:=Edit_FactoryName.Text;

    AddParagraphContentSingle(strTitle_Prior,strText_Prior);

    strTitle_Prior:='测试人:';
    strText_Prior:=Edit_TestPeoson.Text;
    strTitle_Last:='测试时间:';
    strText_Last:=FormatDateTime('yyyy"年"mm"月"dd"日"',now);

    AddParagraphContentDouble(strTitle_Prior,strText_Prior,strTitle_Last,strText_Last);

    //输出报告内容
    AddParagraphTitle('试验结果');//添加段落标题
    WriteReportInformation;


    AddParagraphTitle('试验结论');//添加段落标题
    m_wordSesson.TypeParagraph;
    m_wordSesson.TypeParagraph;
    m_wordSesson.TypeParagraph;

    Wordapplication1.Disconnect;

end;

 


procedure TExprmResultDlg.AddRepPageHeader(const nFontSize:integer;const strText:String;Const PageFoodAlign:TPageFoodAlign);//添加页眉
var
    alTextAlign:OleVariant;
begin
    Case PageFoodAlign of
        alLeft:alTextAlign:=wdAlignParagraphLeft;
        alCenter:alTextAlign:=wdAlignParagraphCenter;
        alRight:alTextAlign:=wdAlignParagraphRight;
        alJustify:alTextAlign:=wdAlignParagraphJustify;
    end;


    WordApplication1.ActiveWindow.ActivePane.View.SeekView :=wdSeekCurrentPageHeader;
    WordApplication1.Selection.ParagraphFormat.Alignment := alTextAlign;

    WordApplication1.Selection.Font.Size:=18;
    WordApplication1.Selection.Font.Color:=ClBlack;
    WordApplication1.Selection.InsertAfter(strText);
   
end;

procedure TExprmResultDlg.AddRepPageFooder(const nFistPageNum:integer;Const PageFoodAlign:TPageFoodAlign);//添加页脚  页码设置
var
    mmm,nPageNum,aaa,alTextAlign:OleVariant;
begin
    Case PageFoodAlign of
        alLeft:alTextAlign:=wdAlignParagraphLeft;
        alCenter:alTextAlign:=wdAlignParagraphCenter;
        alRight:alTextAlign:=wdAlignParagraphRight;
        alJustify:alTextAlign:=wdAlignParagraphJustify;
    end;

    mmm:=wdLine;
    nPageNum:=nFistPageNum;
    aaa:=wdFieldPage;
    WordApplication1.ActiveWindow.ActivePane.View.SeekView :=wdSeekCurrentPageFooter;
    WordApplication1.Selection.Move(mmm,nPageNum);
    WordApplication1.Selection.ParagraphFormat.Alignment := alTextAlign;

    WordApplication1.Selection.InsertAfter('第');
    mmm:=wdCharacter;
    WordApplication1.Selection.Move(mmm,nPageNum);
    WordApplication1.Selection.Fields.Add(WordApplication1.Selection.Range,aaa,mmm,nPageNum);

    aaa:=wdFieldNumPages;
    WordApplication1.Selection.InsertAfter('页/共');
    WordApplication1.Selection.Move(mmm,nPageNum);
    WordApplication1.Selection.Fields.Add(WordApplication1.Selection.Range,aaa,mmm,nPageNum);

    WordApplication1.Selection.InsertAfter('页');
    WordApplication1.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;
end;

 

procedure TExprmResultDlg.PastePicToWord(Const imageName:TImage);
var
    AFormat:word;
    AData :cardinal;
    APalette : hpalette;
begin
    imageName.Picture.SaveToClipboardFormat(AFormat,AData,APalette);
    Clipboard.SetAsHandle(AFormat,AData);
    doc.Sentences.Last.Paste;
end;


procedure TExprmResultDlg.AddParagraphTitle(const strTitle:String);//添加段落标题
begin
    //加回车键,形成段落:
    ParaFmt.SpaceBefore := 30;
    ParaFmt.SpaceAfter := 30;
    //m_wordSesson.TypeParagraph;
    WordFont1.Size:=14;
    WordFont1.Bold:=1;
    m_wordSesson.TypeText(strTitle + #13);

    m_tableNum:=m_tableNum + 1;

end;

procedure TExprmResultDlg.AddParagraphContentSingle(Const strTitle,strText:String);
var
    i:integer;
    TableBehavior,AutoFitbehavior:oleVariant;
begin
    TableBehavior:=FALSE;
    AutoFitbehavior:=FALSE;
    Doc.Tables.Add(WordApplication1.Selection.Range, 1 , 4, TableBehavior,AutoFitbehavior);//创建表格

    m_tableRow:=m_tableRow + 1;

    for i:=1 to 4 do
    begin
        Doc.Tables.Item(m_tableNum).Cell(m_tableRow,i).Range.Font.Size := 12;
        Doc.Tables.Item(m_tableNum).Cell(m_tableRow,i).Range.Font.Bold:=0;

        //去掉表格边框
        Doc.Tables.Item(m_tableNum).Cell(m_tableRow,i).Range.Borders.item(wdBorderLeft).LineStyle := wdLineStyleNone;
        Doc.Tables.Item(m_tableNum).Cell(m_tableRow,i).Range.Borders.item(wdBorderRight).LineStyle := wdLineStyleNone;
        Doc.Tables.Item(m_tableNum).Cell(m_tableRow,i).Range.Borders.item(wdBorderTop).LineStyle := wdLineStyleNone;
        Doc.Tables.Item(m_tableNum).Cell(m_tableRow,i).Range.Borders.item(wdBorderBottom).LineStyle := wdLineStyleNone;
    end;


    Doc.Tables.Item(m_tableNum).Cell(m_tableRow,2).Merge(Doc.Tables.Item(m_tableNum).Cell(m_tableRow,3));
    Doc.Tables.Item(m_tableNum).Cell(m_tableRow,2).Merge(Doc.Tables.Item(m_tableNum).Cell(m_tableRow,3));

    Doc.Tables.Item(m_tableNum).Cell(m_tableRow,1).Range.ParagraphFormat.Alignment:=wdAlignParagraphRight;
    Doc.Tables.Item(m_tableNum).Cell(m_tableRow,2).Range.ParagraphFormat.Alignment:=wdAlignParagraphLeft;


    Doc.Tables.Item(m_tableNum).Cell(m_tableRow,1).Range.Text:=strTitle;
    Doc.Tables.Item(m_tableNum).Cell(m_tableRow,2).Range.Text:=strText;


    WordApplication1.Selection.SetRange(100 * m_tableRow,100 * m_tableRow);//设定段落范围
end;


procedure TExprmResultDlg.AddParagraphContentDouble(Const strTitle_Prior,strText_Prior,strTitle_Last,strText_Last:String);
var
    i:integer;
    TableBehavior,AutoFitbehavior:oleVariant;
begin
    TableBehavior:=FALSE;
    AutoFitbehavior:=FALSE;
    Doc.Tables.Add(WordApplication1.Selection.Range, 1 , 4, TableBehavior,AutoFitbehavior);//创建表格
    m_tableRow:=m_tableRow + 1;

    for i:=1 to 4 do
    begin
        Doc.Tables.Item(m_tableNum).Cell(m_tableRow,i).Range.Font.Size := 12;
        Doc.Tables.Item(m_tableNum).Cell(m_tableRow,i).Range.Font.Bold:=0;

        //去掉表格边框
        Doc.Tables.Item(m_tableNum).Cell(m_tableRow,i).Range.Borders.item(wdBorderLeft).LineStyle := wdLineStyleNone;
        Doc.Tables.Item(m_tableNum).Cell(m_tableRow,i).Range.Borders.item(wdBorderRight).LineStyle := wdLineStyleNone;
        Doc.Tables.Item(m_tableNum).Cell(m_tableRow,i).Range.Borders.item(wdBorderTop).LineStyle := wdLineStyleNone;
        Doc.Tables.Item(m_tableNum).Cell(m_tableRow,i).Range.Borders.item(wdBorderBottom).LineStyle := wdLineStyleNone;       
    end;


    Doc.Tables.Item(m_tableNum).Cell(m_tableRow,1).Range.ParagraphFormat.Alignment:=wdAlignParagraphRight;
    Doc.Tables.Item(m_tableNum).Cell(m_tableRow,2).Range.ParagraphFormat.Alignment:=wdAlignParagraphLeft;

    Doc.Tables.Item(m_tableNum).Cell(m_tableRow,3).Range.ParagraphFormat.Alignment:=wdAlignParagraphRight;
    Doc.Tables.Item(m_tableNum).Cell(m_tableRow,4).Range.ParagraphFormat.Alignment:=wdAlignParagraphLeft;
                                                            
    Doc.Tables.Item(m_tableNum).Cell(m_tableRow,1).Range.Text:=strTitle_Prior;
    Doc.Tables.Item(m_tableNum).Cell(m_tableRow,2).Range.Text:=strText_Prior;
    Doc.Tables.Item(m_tableNum).Cell(m_tableRow,3).Range.Text:=strTitle_Last;
    Doc.Tables.Item(m_tableNum).Cell(m_tableRow,4).Range.Text:=strText_Last;

    WordApplication1.Selection.SetRange(100 * m_tableRow,100 * m_tableRow);//设定段落范围
end;

Delphi与Word之间的融合技术

  • 2008年07月16日 21:02
  • 42KB
  • 下载

delphi通过OLE对word进行单元格合并操作

上图为最终结果, 直接上代码:   uses comobj, word2000 procedure TForm1.Button2Click(Sender: TObject); var ...
  • csm2432
  • csm2432
  • 2012年06月27日 13:16
  • 2632

Delphi Ole操作Word,判断是否有打开的文档,并且给关闭

====================================================== 注:本文源代码点此下载 =============================...

Delphi中编辑word

 //启动Word   try     wordapplication1.connect;   except     messagedlg(word may not be installed, mte...
  • bq_cui
  • bq_cui
  • 2011年06月20日 13:43
  • 3947

Delphi和Word之间的编程

Delphi和Word之间的编程          来自:yzhshi, 时间:2001-11-18 17:52:00, ID:737517 一、VBA代码含义 Microsoft Word是一个...
  • xxzxwsx
  • xxzxwsx
  • 2014年12月18日 17:11
  • 316

delphi学习点滴——利用DDE实现同Word的交互

一、 引言      Windows支持三种基本的IPC(进程间通信)机制:动态链接库(DLL)中的共享数据段、Windows剪贴版(Clipboard)和动态数据交换DDE(Dynamic Da...

Delphi操作Word的方法

Delphi操作Word的方法 一、VBA代码含义 Microsoft Word是一个集成化环境,是美国微软公司的字处理系统,但是它决不仅仅是一个字处理系统,它集成了Microsoft Vis...
  • xieyunc
  • xieyunc
  • 2015年11月27日 17:43
  • 2401

Delphi + Word = 数据库 + 公文处理

delphi擅长做数据库类的mis开发,但对于oa就有点力不从心了。不过随着microsoft的com技术逐渐成熟,现在普通windows应用已经可以和office 97无缝结合了,尤其是在delph...
  • kingup
  • kingup
  • 2011年01月24日 09:57
  • 344

delphi操作word

一、Delphi程序启动Word采用CreateOleObjects的方法来启动Word,调用VBA代码,具体实现过程为:首先使用GetActiveOleObject('Word.Applicatio...

Delphi操作Word,Excel替换

有的时候想把数据库里的内容写在Word,Excel按某种格式
  • jing12
  • jing12
  • 2014年09月14日 14:46
  • 856
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi word技术融合
举报原因:
原因补充:

(最多只允许输入30个字)