MS Word Office Automation - 填写文本表单字段和复选框表单字段以及邮件合并

Question

有没有人对如何使用 C#（VB.NET 也可以）创建一个引擎有任何好的建议或经验，该引擎足够通用，可以处理我需要填充从数据库获取的数据的 MS Word 文本字段的大多数情况？简而言之，我即将开始这个小小的办公自动化之旅，我希望这里的一点反馈可以帮助我避免一些耗时的错误。

提前欢呼并感谢您的任何建议；

戴夫

Answer 1

我将发送两个示例来解决您的自动化问题。第一个是使用 MailMerge，第二个是使用书签。

Word 文件如下所示：

使用 MailMerge（插入 -> 快速部件 -> 字段 -> 邮件合并 -> 合并字段）
名字：《名字》
姓氏：«lastName»

=======

使用书签（插入 -> 书签）
名字：（<- 书签在此处，但不可见）
姓氏：

代码如下：

1. 使用书签

    打开("D:/Doc1.doc");
       if (oDoc.Bookmarks.Exists("bkmFirstName"))
       {
           对象 oBookMark = "bkmFirstName";
           oDoc.Bookmarks.get_Item(ref oBookMark).Range.Text = textBox1.Text;
       }
   
       if (oDoc.Bookmarks.Exists("bkmLastName"))
       {
           对象 oBookMark = "bkmLastName";
           oDoc.Bookmarks.get_Item(ref oBookMark).Range.Text = textBox2.Text;
       }
   
       SaveAs("D:/Test/Doc2.doc");辞职（）;
       MessageBox.Show("文件保存成功！");
   

2. 使用 MailMerge

    打开("D:/Doc1.doc");
       foreach（oDoc.Fields 中的字段 myMergeField）
       {
           //iTotalFields++;
           范围 rngFieldCode = myMergeField.Code;
           字符串 fieldText = rngFieldCode.Text;
   
           // 仅获取 MAILMERGE 字段
           if (fieldText.StartsWith(" MERGEFIELD"))
           {
               Int32 endMerge = fieldText.IndexOf("\\");
               Int32 fieldNameLength = fieldText.Length - endMerge;
               字符串 fieldName = fieldText.Substring(11, endMerge - 11);
   
               字段名称 = 字段名称.Trim();
               if (字段名 == "名字")
               {
                   myMergeField.Select();
                   oWordApplic.Selection.TypeText("此文本替换模板中的字段");
               }
           }
       }
       SaveAs("D:/Test/Doc2.doc");辞职（）;
       MessageBox.Show("文件保存成功！");
   

我还使用了一些辅助方法。

    ApplicationClass oWordApplic = new Microsoft.Office.Interop.Word.ApplicationClass();
    private Microsoft.Office.Interop.Word.Document oDoc = new Document();

    public void Open(string strFileName)
    {
        object fileName = strFileName;
        object readOnly = false;
        object isVisible = true;
        object missing = System.Reflection.Missing.Value;

        oDoc = oWordApplic.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);

        oDoc.Activate();
    }

    public void SaveAs(string strFileName)
    {
        object missing = System.Reflection.Missing.Value;
        object fileName = strFileName;

        oDoc.SaveAs(ref fileName, 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);
    }

    public void Quit()
    {
        object missing = System.Reflection.Missing.Value;
        oWordApplic.Application.Quit(ref missing, ref missing, ref missing);
    }

我希望这个实现能为解决您的问题提供一些想法。