生成WORD报表动态库

 

生成 WORD 动态库使用说明

版本： 1.0.0 .1 日期： 2009-8-3  

1.        开发环境

Winxp SP3+VC2008 SP1+WORD2003

2.        动态库类型

WIN 动态库 DLL

3.        动态库包含文档

头文件： TZConvertWord.h

发行版本文件： Release\TZConvertWord.dll

                Release\TZConvertWord.lib

VB 调用函数声明文件： WordConvertor.vb

4.        VC 使用方法

1 、将头文件、版本文件复制到项目中；  

2 、修改头文件，将 lib 引用位置修改正确；

如： #pragma comment (lib ,"..\\Debug\\TZConvertWord.lib" )  

3 、在调用动态库的源代码中添加对头文件的引用；

如： #include "TZConvertWord.h"  

5.        VB 使用方法

1 、将动态库复制到应用程序目录；

2 、添加函数引用声明文件 WordConvertor.vb

6.        调用过程

n        首先调 用 Initialize 函数获取 Word Com 对象接口，并初始化相关资源；

n        调用 OpenTempleteDoc 打开文档模板，如果指定的文档模板不存在将返回 False 。

n        调用 GotoBookMark 函数，通过书签定位将要插入的文本或图片在 Word 中的位置；

n        调用 InsertText 函数，插入文本；

n        调用 InsertPicture 函数，插入图片，同时可以设置插入后图片的大小，默认值不进行设置；

n        在所有插入工作结束后调用 Save 函数保存文件。

n        最后别忘了调用 Exit 方法释放所有资源。

7.        函数方法说明  

// 打开文档模板函数

// 初始化

bool Initialize (bool bVisible =false );

// 打开模板文件

bool OpenTempleteDoc (wchar_t const * FullFileName );

// 定位书签位置

bool GotoBookMark (wchar_t const * cBookmarkName );

// 插入文本

bool InsertText (wchar_t const * textContent );

// 插入图片

bool InsertPicture (wchar_t const * imgeFileName , float imgeWidth =0,float imgeHeight =0);

// 显示WORD 应用程序界面

bool SetVisible (bool bVisible =true );

// 保存文档

bool Save (wchar_t const * saveFullFileName );

// 退出并释放资源

void Exit (void );

  8.        VC 示例源码

void CWordConvertorTestDlg ::OnBnClickedOk ()

{

    // 获取当前应用程序目录

    CString m_FilePath ;

    GetModuleFileName (NULL ,m_FilePath .GetBufferSetLength (MAX_PATH +1),MAX_PATH );

    m_FilePath .ReleaseBuffer ();

    int m_iPosIndex ;

    m_iPosIndex = m_FilePath .ReverseFind ('\\' );

    m_FilePath = m_FilePath .Left (m_iPosIndex );

    m_FilePath +="\\" ;

    // 初始化调用

    Initialize (false );

// 打开模板文件

    OpenTempleteDoc (m_FilePath +_T ("Reports.dot" ));

// 查找并定位书签

    GotoBookMark (_T ("ReportNo" ));

// 插入文本

    InsertText (_T ("T20090728001" ));         // 报告编号

// 定位并定位书签

    GotoBookMark (_T ("BlowImg" ));

// 插入图片

    InsertPicture (m_FilePath +_T ("1.jpg" ));  // 爆破试验曲线

    GotoBookMark (_T ("PressImg" ));

// 插入图片，并设置图片在WORD 中的大小       

    InsertPicture (m_FilePath +_T ("2.jpg" ),30,30);    // 耐压试验曲线

// 保存文档

    Save (m_FilePath +_T ("test.doc" ));

// 释放资源

    Exit ();

}  

9.        VB 示例源码

     WordConvertor .Initialize ()

     Dim str As String = System .Environment .CurrentDirectory

     WordConvertor .OpenTempleteDoc (str + "\Reports.dot" )

     GotoBookMark ("ReportNo" )

     InsertText ("T20090728001" )

     GotoBookMark ("DTVersion" )

     InsertText ("Ver1.0.0.1" )

     GotoBookMark ("BlowImg" )

     InsertPicture (str + "\1.jpg" )

     Save (str + "\test.doc" )

     AppExit ()
                                          下载生成WORD动态库

转载于:https://www.cnblogs.com/qiantz/archive/2009/08/04/1538131.html