利用.net替换Word的内容(从数据库中取数据来替换word里面的书签)
来源:互联网 发布:焚伊 知乎 编辑:程序博客网 时间:2024/04/30 18:51
我在现在的项目中,用户需要打印办文单,一开始做的时候,就用是用表格,按照他们的格式划了一个,可是,打出来的东西总是和他们自己的不一样,(一句话,不好看),我也头疼一阶段没什么好的办法,后来想,干脆把他们word模板拿过来,自己来替换.刚开始的时候,不知道怎么做问了,google找了,但没有一样的满意的.后来还是在msdn上找了一点点,然后请教了同事.在总算搞定.效果还不错.
整个过程是这样的:(本人用的是asp.net+C#)
1.
首先需要将word的dll引入进来,如果装了word的话,会在他的安装目录下面有一个MSWORD9.OLB文件(通过添加引用即可)这里需要注意的是上面这个文件,可能会因为office的版本不一样,文件名有所不同,而且在下面的open和save方法的参数也会因为版本的不同而不同,office2003中的open方面的参数好象是16个,而2000里的参数大概只有12个,调用的时候一定要注意
2.
要在webconfig文件里面加上一句: <identity impersonate="true"/> 主要是模拟身份的吧,如果不加的话,程序运行的时候会报出拒绝访问的错误的.(而且你需要预先做好一个带书签的word模板)
3.
新建立一个也面,在面上部加如using Word;
下面就是具体的函数了:(我这里的函数没有整理过,可能有些没用)
打开文件:
private Word.Document OpenDoc(string strDocPath,ref Word.Application WordApp,int flag)
{
if (!File.Exists(strDocPath))
return null;
object fileName = (object)strDocPath;
object isVisible = missing;
object readOnly = missing;
//Make word visible, so you can see what's happening
WordApp.Visible = false;
//通过open创建一个Word.Document的实例
Word.Document doc = null;
try
{
//doc = WordApp.Documents.Open(ref fileName, ref missing,ref readOnly, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref isVisible,ref missing,ref missing,ref missing,ref missing);
doc = WordApp.Documents.Open(ref fileName, ref missing,ref missing,ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,ref missing, ref missing, ref missing);
//if (flag == 1)
//ListStyle(doc);
return doc;
}
catch(Exception Ex)
{
throw new Exception(Ex.Message);
return null;
}
}
替换模板内容:
string strWordTemplate = Server.MapPath("../test/办文单.doc"); //这里是你的模板文件
Word.Application WordApp = new Word.ApplicationClass(); // 定义一个Word.Application 对象
Word.Document doc = OpenDoc(strWordTemplate,ref WordApp,1); //定义一个Word.Document 对象
try
{
//下面是从数据库取数据,不好意思这个代码有点烂
DataTable TempTable=this.CreateTable("Select * from Workflow_BW where AppID="+Convert.ToInt32(AppID)+" and ContentID="+Convert.ToInt32(ContentID));
if(TempTable.Rows.Count>0)
{
string TempTime=TempTable.Rows[0]["SWTime"].ToString().Trim();
int Pos=TempTime.IndexOf(" ");
string All=TempTime.Substring(0,Pos);
int Pre=All.IndexOf("-");
int Next=All.LastIndexOf("-");
string Year=All.Substring(0,Pre).Trim();
string Month=All.Substring(Pre+1,Next-Pre-1).Trim();
string Day=All.Substring(Next+1,All.Length-Next-1).Trim();
foreach(Word.Bookmark BM in doc.Bookmarks) //这是最关键的地方:对文档的所有书签进行便利匹配
{
switch(BM.Name)
{
case "Advice": //替换Advice书签的内容,其他一样
BM.Select();
BM.Range.Text=this.CreateTable("Select Advice from Workflow_Advice where AppID="+Convert.ToInt32(AppID)+" and ContentID="+Convert.ToInt32(this.ContentID)+" and StepID=1").Rows[0]["Advice"].ToString().Trim();
break;
case "Day":
BM.Select();
BM.Range.Text=Day;
break;
case "LWDW":
BM.Select();
BM.Range.Text=TempTable.Rows[0]["LWDW"].ToString().Trim();
break;
case "LWH":
BM.Select();
BM.Range.Text=TempTable.Rows[0]["SWH"].ToString().Trim();
break;
case "Month":
BM.Select();
BM.Range.Text= Month;
break;
case "NowYear":
BM.Select();
BM.Range.Text=Year;
break;
case "Subject":
BM.Select();
BM.Range.Text=TempTable.Rows[0]["Subject"].ToString().Trim();
break;
case "SWH":
BM.Select();
BM.Range.Text=TempTable.Rows[0]["LSH"].ToString().Trim().Substring(4,TempTable.Rows[0]["LSH"].ToString().Trim().Length-4);
break;
}
}
}
object fn = (object)Server.MapPath("../test/temp.doc");
doc.SaveAs(ref fn, ref missing,ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,ref missing, ref missing); //这里是另存为一个一个文件
Response.Redirect("../test/temp.doc"); //直接打开用ie打开另存的文件,然后可直接调用ie里的打印功能
//doc.SaveAs(ref fn, ref missing,ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,ref missing, ref missing, ref missing,ref missing,ref missing,ref missing,ref missing);
}
catch(Exception err)
{
this.tbXml.Text = err.ToString();
}
finally
{
doc.Close(ref missing,ref missing,ref missing);
WordApp.Quit(ref missing,ref missing,ref missing);
WordApp = null;
}
}
这里面一个最主要的问题, doc.Close(ref missing,ref missing,ref missing);
WordApp.Quit(ref missing,ref missing,ref missing);
WordApp = null;
这个代码好象不起作用,每次关闭打印的时候都会抱word错误,而且进程里面winword.exe也没关,不知道怎么回事.
关于word里面的一些对象如:Application document Selection Range BookMark对象,本人也不是很熟悉,请参考MSDN上的帮助,那里面讲的很详细.希望对大家有所帮助
补充:
现在出现新的问题:上面代码在xp office2000下正常运行,但在win2000server office2000抱下面错误
消息筛选器显示应用程序正在使用中。
说明: 执行当前 Web 请求期间,出现未处理的异常。请检查堆栈跟踪信息,以了解有关该错误以及代码中导致错误的出处的详细信息。
异常详细信息: System.Runtime.InteropServices.COMException: 消息筛选器显示应用程序正在使用中。
源错误:
行 132: //打开word模板
行 133: string strWordTemplate = Server.MapPath("../test/办文单.doc");
行 134: Word.Application WordApp = new Word.ApplicationClass();
行 135: Word.Document doc = OpenDoc(strWordTemplate,ref WordApp,1);
行 136: try
进程里面的winword.exe2000下杀不掉,真是郁闷
补充二:
总算解决了这个问题:还是权限问题:请按照下面的方法修改服务器的权限,即可解决这样的问题
是因为用户没有在服务器端运行Word的权限,应在服务器端做如下操作
1.开始--运行--dcomcnfg--Microsoft Word 文档--属性--身份标识--交互式用户
否则会出现“消息筛选器显示应用程序正在使用中”的错误
2.开始--运行--dcomcnfg--Microsoft Word 文档--属性--安全性--使用自定义访问权限--添加EveryOne用户
或者dcomcnfg--Microsoft Word 文档--属性--安全性--使用默认访问权限
dcomcnfg--默认安全机制--默认访问权限--添加EveryOne用户
否则会出现“拒绝访问权限”的错误,或者是无法打开宏存储
- 利用.net替换Word的内容(从数据库中取数据来替换word里面的书签)
- 利用.net替换Word的内容(从数据库中取数据来替换word里面的书签)
- c#对Aspose.Word替换书签内容的简单封装
- Word 2007文件, 替换书签内容
- 利用Excel查找替换Word文本框里的内容
- 《原创代码》vb.net文本超级替换,不同于word里面的全部替换
- WORD的简单替换
- 定义好word模板之后,使用java和jacob代码替换里面的指定的内容生成word
- Word中替换回车的办法
- java/poi读取word,并替换word中的文本内容,向word中插入图片的操作
- java/poi读取word,并替换word中的文本内容,向word中插入图片的操作
- 如何替换从网页内容粘贴到word后产生的“下箭头 ↓”
- 用ActiveXObject控件替换word书签,将内容导出到word后打印
- jacob替换word的关键字
- word的高级查找替换
- C#实现WORD文档的内容复制和替换
- Word中根据表头动态增加表格行,然后往表格里写数据,以及在Word中添加书签,然后替换书签值
- 在java中利用书签修改word文本的方法
- 关于堆和栈的一些知识(Z)
- 失踪
- 最近烦心事好多
- 向C编程高手和数学高手求助!(请随意转贴/回复)
- Oracle(计划虽然被打断了,但时间还是要争回来)
- 利用.net替换Word的内容(从数据库中取数据来替换word里面的书签)
- 数据库原理之数据库设计
- Oracle9i 9024安装手册
- 配置TUXEDO的TLOG时报LIBTUX_CAT:297错
- 在VB中执行存储过程!
- Gameres新闻
- GNU Readline 操作参考(Bash/Emacs/...)
- 第一篇blog
- 在LINUX上动态配置核心参数