利用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;
        }
    }
}

  

时间: 2024-11-03 21:43:57

利用COM组件实现对WORD书签处写入值的相关文章

C#实现对Word文件读写[转]

手头上的一个项目报表相对比较简单,所以报表打印采用VBA引擎,通过定制Word模版,然后根据模版需要填充数据,然后OK,打印即可. 实现方法:首先需要引用VBA组建,我用的是Office2003 Professional,Dll版本号为Microsoft Word11.0 另外当然还需要引用Interop.Word.Dll. 代码如下: ///#region 打开Word文档,并且返回对象wDoc,wDoc /// /// 打开Word文档,并且返回对象wDoc,wDoc /// /// 完整W

【POI word】使用POI实现对Word的读取以及生成

项目结构如下: 那第一部分:先是读取Word文档 1 package com.it.WordTest; 2 3 import java.io.FileInputStream; 4 import java.io.FileNotFoundException; 5 import java.io.FileOutputStream; 6 import java.io.FileWriter; 7 import java.io.IOException; 8 import java.io.Writer; 9 i

通过vba实现对word当中个的标签进行批量的替换

最近在做的项目,要实现自动生成合同,然后想通过vba进行对合同(word版)中的相同的地方进行批量的替换. 于是就通过标签的形式对word文档当中的字段进行替换操作.代码如下: Public Function updatebookmarkloop(app As Object, bookmarkbase As String, nvalue As Variant, bot As Long, top As Long) Dim counter As Long Dim name As String cou

Android 利用xUtils框架实现对sqllite的增删改查

首先下载xUtils,下载地址:https://github.com/wyouflf/xUtils  把下载好的文件压缩,把里面的jar包拷进项目中如图所示: 这里新建一个User类进行测试增删改查 package com.example.xutilsdemo; public class User { private int id; private String name; private String email; public int getId() { return id; } publi

利用shell脚本实现对mysql数据库的备份

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 #!/bin/bash     #保存备份个数  number=3  #备份保存路径  backup_dir=/root/mysqlbackup  #日期  dd=`date +%Y%m%d`  #备份工具  tool=mysqldump  #用户名  username=mracale  #密码  pass

基于DevExpress实现对PDF、Word、Excel文档的预览及操作处理

原文:基于DevExpress实现对PDF.Word.Excel文档的预览及操作处理 在一般的管理系统模块里面,越来越多的设计到一些常用文档的上传保存操作,其中如PDF.Word.Excel等文档,有时候是通过分布式的WCF技术实现数据的显示和处理,因此希望直接预览而不需要下载文件,这样能够给我们提供很多的方便.在DevExpress里面,提供了相应的控件来显示和处理这些文档,本文主要介绍如何利用DevExpress的控件实现对PDF.Word.Excel文档的预览和操作处理. 1.PDF的预览

利用PRTG实现对cisco路由器的cpu负载、端口流量等的监控

一.实验目的及前期准备 用gns3.vmware模拟真实的环境,利用prtg实现对cisco路由器状态的监控 前期准备:GNS3仿真路由软件和VMware虚拟软件,PRTG. 二.实验步骤 1)搭建如下拓扑环境 VMware server有2张网卡,一张(out)桥接到真实主机(Windows7)的网卡,另一张(in)连接到GNS3的R1路由器的e1/0上:R1路由器的e1/1和VMwar winxp的网卡相连. a)VMware安装一个server2003系统和一个xp系统,并虚拟3张虚拟网卡

php如何利用python实现对pdf文件的操作(读写、合并分割)

php如何利用python实现对pdf文件的操作 需求:在PHP里实现了把8.pdf的前4页pdf文件截取出来生成新的pdf文件. 详细步骤如下: 1. 安装python第三方库PyPDF2 前提:python必须是3.x版本以上,必要时需要升级pip3,命令如下:pip3 install --upgrade pipPyPDF 自 2010年 12月开始就不在更新了,PyPDF2 接棒 PyPDF, 在此使用PyPDF2. 安装命令:pip install PyPDF2 2.编写python脚本

使用VBA将Excel指定单元格数据、字符串或者图表对象插入到Word模板指定书签处

准备工作: 1.首先需要提供一个word模板,并且标记好您要插入书签的位置,定义书签的命名.如图 2.模拟您要插入的Excel原始数据和图表对象 插入代码如下: Private Sub CommandButton1_Click() Dim App, WrdDoc, Mypath As String On Error Resume Next '定义原始模板的储存路径,默认和excel在同一路径 Mypath = ThisWorkbook.Path & "\模板.doc" '用Se