[提供源码下载]在大型软件中用Word做报表：书签的应用（提供一种思路）

 

[提供源码下载]在大型软件中用Word做报表：

书签的应用（提供一种思路）

——通过知识共享树立个人品牌。

报表基本上在每一个项目中占有很大的比例，做报表也是我们开发人员必须过的坎，现在市面上各种类型的报表，我们到底应该如何选择呢？每一种报表都有他自己优秀的一面，我在项目开发中，一般用Grid++Report做报表，对于复杂的，量大的也用Excel和Word来做，大家也可以分享一下你们在项目中用到的报表软件！

现在有这样一个需求，比如有一个几十页的合同（合同内容每年会有所不同），合同中要填的数据（如：甲方、乙方什么的）从数据库中得到，各个页都有可能填写相关数据，最后生成合同打印出来，对于这样的需求，我想要用水晶报表等来做相当麻烦。

本文给大家提供一种思路，就是用Word来做这种类型的报表，具体来说，就是用“书签”定位到Word中要填数据的地方，然后把数据填上去，再把word导出来，灵活应用，以不变应万变。

下面来看具体操作。

步骤一：准备好Word合同模板，在需要填写数据的地方插入书签（不明白的，可以下载源码后自己慢慢看）后保存应模板文件，如下图：

步骤二：新建一个WinForm项目，添加Word的Dll引用，如下图：

步骤三：编写代码，把相关数据写入到书签中，代码如下：

private void btnWriteDataToWord_Click(object sender, EventArgs e)
{
object missingValue = System.Reflection.Missing.Value;
object fileName = System.Windows.Forms.Application.StartupPath + "\\Test.doc";
if (System.IO.File.Exists(fileName as string))
{
object myTrue = false;
Microsoft.Office.Interop.Word.Application oWord = new Microsoft.Office.Interop.Word.ApplicationClass();
Microsoft.Office.Interop.Word.Document oDoc;
oDoc = oWord.Documents.Open(ref fileName, ref missingValue, ref myTrue,
ref missingValue, ref missingValue, ref missingValue,
ref missingValue, ref missingValue, ref missingValue,
ref missingValue, ref missingValue, ref missingValue,
ref missingValue, ref missingValue, ref missingValue,
ref missingValue);

MessageBox.Show(oDoc.Bookmarks.Count.ToString()); //得到word中的所有书签个数

//写入Word文档
object[] oBookMarks = { "出让方名称", "出让方通讯地址", "出让方邮政编码" };//Word中的书签
string[] sValues = { "测试出让方名称", "测试出让方通讯地址43号", "测试出让方邮政编码432123" }; //给书签的值
for (int iTemp = 0; iTemp < oBookMarks.Length; iTemp++)
{

Microsoft.Office.Interop.Word.Range tmpRng = oWord.ActiveDocument.Bookmarks.get_Item(ref oBookMarks[iTemp]).Range;
tmpRng.Text = sValues[iTemp].ToString(); //通过tmpRng.Text还可以得到标签处的数据,在这儿是设置它的数据
object oRng = tmpRng;
oDoc.Bookmarks.Add(oBookMarks[iTemp].ToString(), ref oRng);

}

object bSaveChange = true;

//如果"D:\Word"目录不存在,就创建
if (!Directory.Exists("D:\\Word"))
{
Directory.CreateDirectory("D:\\Word"); //创建目录
}

string guid = System.Guid.NewGuid().ToString();
object sFileName = @"D:/Word/出让合同" + guid + ".doc";

//把写好的合同另存为
if (oDoc.SaveFormat == (int)Microsoft.Office.Interop.Word.WdSaveFormat.wdFormatDocument)
{
oDoc.SaveAs(ref sFileName, ref missingValue, ref myTrue,
ref missingValue, ref missingValue, ref missingValue,
ref missingValue, ref missingValue, ref missingValue,
ref missingValue, ref missingValue, ref missingValue,
ref missingValue, ref missingValue, ref missingValue,
ref missingValue);
}
oDoc.Close(ref bSaveChange, ref missingValue, ref missingValue);
oWord.Quit(ref bSaveChange, ref missingValue, ref missingValue);
}
else
{
MessageBox.Show("合同模板不存在！");
return;
}
//object tmp = "msr_01";
//Word.Range tmpRng = oWord.ActiveDocument.Bookmarks.get_Item(ref tmp).Range;
//tmpRng.Text = "China";
////由于附值以后书签自动消除，为了以后便于修改，需要把书签再自动生成一个
//object oRng = tmpRng;
//oDoc.Bookmarks.Add(tmp.ToString(), ref oRng);
//object bSaveChange = true;
//oDoc.Close(ref bSaveChange, ref missingValue, ref missingValue);
}
}

步骤四：查看效果，如下图所示：

源码下载(下载前请评论与推荐下,感谢)

本文只是提供一种解决问题的思路，欢迎大家拍砖，也分享一下你们的经验。

© 2011 EricHu

原创作品，转贴请注明作者和出处，留此信息。

------------------------------------------------

cnBlobs:http://www.cnblogs.com/huyong/
CSDN：http://blog.csdn.net/chinahuyong

作者：EricHu（DB、C\S、B\S、WebService、WCF、PM等）
出处：http://www.cnblogs.com/huyong/

Q Q：80368704 E-Mail: [email protected]
本博文欢迎大家浏览和转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，在『参考』的文章中，我会表明参考的文章来源，尊重他人版权。若您发现我侵犯了您的版权，请及时与我联系。
更多文章请看 [置顶]索引贴——（不断更新中）