利用COM组件实现对WORD书签处写入值
Posted Welcome to the Blog of Acamy
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了利用COM组件实现对WORD书签处写入值相关的知识,希望对你有一定的参考价值。
using System; using System.Collections.Generic; using System.Text; using Microsoft.Office.Interop.Word; using System.Windows.Forms; using System.IO; using System.Reflection; namespace HustCAD.IntePLM.Win.BatchEnterWinUI { public class SignWord { //Word应用程序变量 _Application wordApp; _Document wordDoc; public bool signWord(string filePath, string bookMark, string code) { bool success = false; try { //由于使用的是COM库,因此有许多变量需要用Missing.Value代替 wordApp = new ApplicationClass(); object missing = System.Reflection.Missing.Value; object templateName = filePath; wordDoc = wordApp.Documents.Open(ref templateName, 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); if (wordApp.ActiveDocument.Bookmarks.Exists(bookMark)) { object bk = (object)bookMark; wordApp.ActiveDocument.Bookmarks.get_Item(ref bk).Select(); wordApp.Selection.TypeText(code); //关闭wordDoc,wordApp对象 object SaveChanges = WdSaveOptions.wdSaveChanges; object OriginalFormat = WdOriginalFormat.wdOriginalDocumentFormat; object RouteDocument = false; wordDoc.Save(); wordDoc.Close(ref SaveChanges, ref OriginalFormat, ref RouteDocument); wordApp.Quit(ref SaveChanges, ref OriginalFormat, ref RouteDocument); wordDoc = null; wordApp = null; success = true; return true; } else { System.IO.File.AppendAllText(System.IO.Path.Combine(GetCurrentPath(), "signWordlog.txt"), "文件" + filePath + "签入编号失败,书签不存在! " + DateTime.Now.ToString("yyyy-MM-dd-hh:mm:ss")); //关闭wordDoc,wordApp对象 object SaveChanges = WdSaveOptions.wdSaveChanges; object OriginalFormat = WdOriginalFormat.wdOriginalDocumentFormat; object RouteDocument = false; wordDoc.Save(); wordDoc.Close(ref SaveChanges, ref OriginalFormat, ref RouteDocument); wordApp.Quit(ref SaveChanges, ref OriginalFormat, ref RouteDocument); wordDoc = null; wordApp = null; return false; } } catch (Exception e) { object SaveChanges = WdSaveOptions.wdSaveChanges; object OriginalFormat = WdOriginalFormat.wdOriginalDocumentFormat; object RouteDocument = false; //wordDoc.Save(); wordDoc.Close(ref SaveChanges, ref OriginalFormat, ref RouteDocument); wordApp.Quit(ref SaveChanges, ref OriginalFormat, ref RouteDocument); System.IO.File.AppendAllText(System.IO.Path.Combine(GetCurrentPath(), "signWordlog.txt"), "文件" + filePath + "签入编号失败! ,错误:" + e.Message.ToString() + "。 " + DateTime.Now.ToString("yyyy-MM-dd-hh:mm:ss")); wordDoc = null; wordApp = null; return false; } finally { try { object SaveChanges = WdSaveOptions.wdSaveChanges; object OriginalFormat = WdOriginalFormat.wdOriginalDocumentFormat; object RouteDocument = false; if (wordDoc!=null&&success==false ) { wordDoc.Close(ref SaveChanges, ref OriginalFormat, ref RouteDocument); wordDoc = null; } if (wordApp != null && success == false) { wordApp.Quit(ref SaveChanges, ref OriginalFormat, ref RouteDocument); wordApp = null; } GC.Collect(); GC.WaitForPendingFinalizers(); } catch { } } } /// <summary> /// 得到当前程序的路径 /// </summary> /// <returns></returns> static public string GetCurrentPath() { string asstring = Assembly.GetExecutingAssembly().Location; string[] aa = asstring.Split(‘\\‘); string path = string.Empty; foreach (string var in aa) { if (var != aa[aa.Length - 1]) path += var + @"\"; } return path; } } }
以上是关于利用COM组件实现对WORD书签处写入值的主要内容,如果未能解决你的问题,请参考以下文章
使用VBA将Excel指定单元格数据字符串或者图表对象插入到Word模板指定书签处