利用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模板指定书签处

将单元格值从 Excel 拉入 Word(运行时错误 429)

Office三件套批量转PDF以及PDF书签读写与加水印

Visual Studio中如何应用书签功能

使用Spire.Doc组件利用模板导出Word文档

word内容相同的文字关联