用Visual Studio .NET自动化MS Word（翻译）

小咪咪 2021-12-21 02:29 261阅读 0赞

##  ##

## *[原文地址以及相关代码][Link 1]<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />* ##

想着回家过年，没有仔细检查，如果有纰漏，请指出！  
  
用 Visual Studio .NET 自动化 MS Word

## 介绍 ##

有一天，你也许被要求写一个解析器，它将必须能解析一批文档，然后把它们分解成一个结构化的模型并把它们存储在一个关系数据库中。还有那些文档将很可能就是用MS Word所编辑的，最惨的就是它们没有任何结构，也不遵循任何标准，还可能包含一些OLE/嵌入式对象。我就被分派了个这样的任务，它对我来说是一个非常有意思的体验。

由于这是我的第一个这样的项目，就是意味着将自动化MS Office应用程序，我不得不去做大量的关于自动化方面的阅读，好消息就是有许多相关的资料，坏消息就是所有那些都是由VB或VBA开发人员写的，我找不到任何由C++程序员写的东西。好了，长话短说，我正写的这篇文章将会使得被分派了相似任务的开发人员的事情就简单点了。.

原始代码我是使用Borland C++ Builder 5专业版开发的。然而，在这篇文章中是C\#版本。顺便说一句如果你有兴趣看下C++版本的话，就找我要，我会电邮给你。我鼓励大家在开始欣赏C\#版本的简便之前，找个时间看看C++版本。

## 背景 ##

没有什么特殊背景是必需的。仅仅有一些使用C\#的经验。

## 使用的代码Using the code ##

我将在文章中包含一些代码，这将有助你理解怎么样从一个Word文档中得到你想要的东西，是否你是建的是一个控制台程序，还是Windows程序，这都没有什么关系，步骤和代码都是相同的，因此你能向前走，建立一个C\#工程。你可以选择一个Windows程序，这样你就能有按钮可用按了。

好了，你一旦建立一个新工程，继续前进，右键单击在“解决方案浏览器”中“引用”，然后选择“添加引用”……，当“添加引用”窗口出现时，选择“**COM**”标签。这将显示你机器中所有可用组件的名称，既然我们将用到MS Word，我们将一直向下移动滚动条直到找到：**Microsoft Word 9.0 Object Library**。

**注意：Note:**你的也许是不同版本，这将依赖于你安装在你机器中的Office的版本，这儿是的MS Word 2000。

![None.gif][] using  System;  
![None.gif][] using  System.Drawing;  
![None.gif][] using  System.Collections;  
![None.gif][] using  System.ComponentModel;  
![None.gif][] using  System.Windows.Forms;  
![None.gif][] using  System.Data;  
![None.gif][]  
![None.gif][] namespace  sparser  
![ExpandedBlockStart.gif][None.gif]![ContractedBlock.gif][None.gif] ![dot.gif][] \{  
![ExpandedSubBlockStart.gif][None.gif]![ContractedSubBlock.gif][None.gif]/\*\*//// Summary description for Form1.  
![InBlock.gif][None.gif]publicclass frmParserMainUI : System.Windows.Forms.Form  
![ExpandedSubBlockStart.gif][None.gif]![ContractedSubBlock.gif][None.gif]![dot.gif][]\{  
![ExpandedSubBlockStart.gif][None.gif]![ContractedSubBlock.gif][None.gif]/\*\*//// User Interface Objects  
![InBlock.gif][None.gif]/// I have removed the user interface object, since  
![InBlock.gif][None.gif]/// they have nothing to do with  
![ExpandedSubBlockEnd.gif][None.gif]/// the actual code, and they take a lot of space.  
![InBlock.gif][None.gif]  
![InBlock.gif][None.gif] ![dot.gif][]  
![InBlock.gif][None.gif]  
![ExpandedSubBlockStart.gif][None.gif]![ContractedSubBlock.gif][None.gif]/\*\*//// Required designer variable.  
![InBlock.gif][None.gif]private System.ComponentModel.Container components =null;  
![InBlock.gif][None.gif]private System.Windows.Forms.OpenFileDialog openFileDialog;  
![InBlock.gif][None.gif]  
![InBlock.gif][None.gif] ![dot.gif][]  
![InBlock.gif][None.gif]

下面的模块创建一个 MS Word COM  对象，这个对象将被用来访问 WORD 应用程序的函数。为了明白什么函数是可用的，你能够在 Visual Studio .NET IDE  或  MS Word 中做到这。

1  ///  MS Word COM Object  
 2  ///  This is where we create our WORD object   
 3   private  Word.ApplicationClass vk\_word\_app  =  new  Word.ApplicationClass();  
 4   
 5 ![dot.gif][]  
 6

为了从 MS Word 中查看功能，启动 Word ，按下 Alt 和 F11\[Alt+F11\] ，这将显示给你一个 VBA 窗口，一旦按下 F1 你就可用打开了帮助窗口，对文档对象进行搜索，对那些可用的函数来说这是最好的文档资源。然而，这些都是为了 VBA 开发写的，但是我们至少知道函数是做什么的，它携带什么类型的参数。

好的，代码继续……

1 ![None.gif][] ![dot.gif][]  
  2 ![None.gif][]  
  3 ![None.gif][]  
  4 ![ExpandedBlockStart.gif][None.gif]![ContractedBlock.gif][None.gif] /\*\*/ /// The main entry point for the application.  
 5 ![None.gif][]  \[STAThread\]  
  6 ![None.gif][] static  void  Main()  
  7 ![ExpandedBlockStart.gif][None.gif]![ContractedBlock.gif][None.gif] ![dot.gif][] \{  
 8![InBlock.gif][None.gif] Application.Run(new frmParserMainUI());  
 9![ExpandedBlockEnd.gif][None.gif] \}   
 10 ![None.gif][]  
 11 ![ExpandedBlockStart.gif][None.gif]![ContractedBlock.gif][None.gif] /\*\*/ /// Get source document. Open a FileDialog window for  
12![InBlock.gif][None.gif]/// user to select single/multiple files for  
13![ExpandedBlockEnd.gif][None.gif]/// parsing.  
14 ![None.gif][]  private  void  butSourceDocument\_Click( object  sender, System.EventArgs e)  
 15 ![ExpandedBlockStart.gif][None.gif]![ContractedBlock.gif][None.gif] ![dot.gif][] \{  
16![InBlock.gif][None.gif]if( openFileDialog.ShowDialog() == DialogResult.OK )  
17![ExpandedSubBlockStart.gif][None.gif]![ContractedSubBlock.gif][None.gif]![dot.gif][]\{  
18![InBlock.gif][None.gif]object fileName = openFileDialog.FileName;  
19![InBlock.gif][None.gif]object saveFile = fileName \+"\_Vk.doc";  
20![InBlock.gif][None.gif]  
21![InBlock.gif][None.gif]  
22![InBlock.gif][None.gif]object vk\_read\_only =false;  
23![InBlock.gif][None.gif]object vk\_visible =true;  
24![InBlock.gif][None.gif]object vk\_false =false;  
25![InBlock.gif][None.gif]object vk\_true =true;  
26![InBlock.gif][None.gif]object vk\_dynamic =2;  
27![InBlock.gif][None.gif]  
28![InBlock.gif][None.gif]object vk\_missing = System.Reflection.Missing.Value;  
29![InBlock.gif][None.gif]  
30![InBlock.gif][None.gif]// Let make the word application visible  
31![InBlock.gif][None.gif] vk\_word\_app.Visible =true;  
32![InBlock.gif][None.gif] vk\_word\_app.Activate();  
33![InBlock.gif][None.gif]  
34![InBlock.gif][None.gif]// Let's open the document  
35![InBlock.gif][None.gif] Word.Document vk\_my\_doc = vk\_word\_app.Documents.Open(  
36![InBlock.gif][None.gif]ref fileName, ref vk\_missing, ref vk\_read\_only,  
37![InBlock.gif][None.gif]ref vk\_missing, ref vk\_missing,  
38![InBlock.gif][None.gif]ref vk\_missing, ref vk\_missing, ref vk\_missing, ref vk\_missing,  
39![InBlock.gif][None.gif]ref vk\_missing, ref vk\_missing, ref vk\_visible );  
40![InBlock.gif][None.gif]  
41![InBlock.gif][None.gif] ![dot.gif][]  
42![InBlock.gif][None.gif]

好的，因此在这会给用户一个打开文件的对话框，在这他们能选择一个要打开的Word文档，注意我们把文件名保存为一个对象，这是因为我们用到的函数需要引用对象。

那么现在我们能用Word对象启动Word,这是由`vk_word_app.Visible =`true`；和``vk_word_app.Activate();`两个语句来完成的。第一个语句保证Word实例是可见的，第二个语句就是激活它，如果你不想让Word实例是可见的，你仅需要把`Visible`属性设为false。

接下来，我们创建一个Word Document对象，这是用语句`Word.Document vk_my_doc = vk_word_app.Documents.Open( ... );`来完成的，注意所有该函数需要的参数，大多是`NULL`值，所以我们用use `vk_missing`这是一个`System.Reflection.Missing.Value`.

那么现在我们创建了一个Word实例，并打开了一个Word文档，现在我们继续前进……

1 ![None.gif][] ![dot.gif][]  
  2 ![None.gif][]  
  3 ![None.gif][] //  Let's create a new document   
  4 ![None.gif][]  Word.Document vk\_new\_doc  =  vk\_word\_app.Documents.Add(  
  5 ![None.gif][] ref  vk\_missing,  ref  vk\_missing,  ref  vk\_missing,  ref  vk\_visible );  
  6 ![None.gif][]  
  7 ![None.gif][] //  Select and Copy from the original document   
  8 ![None.gif][]  vk\_my\_doc.Select();  
  9 ![None.gif][] vk\_word\_app.Selection.Copy();  
 10 ![None.gif][]  
 11 ![None.gif][] //  Paste into new document as unformatted text   
 12 ![None.gif][]  vk\_new\_doc.Select();  
 13 ![None.gif][] vk\_word\_app.Selection.PasteSpecial(  ref  vk\_missing,  ref  vk\_false,  
 14 ![None.gif][] ref  vk\_missing,  ref  vk\_false,  ref  vk\_dynamic,  
 15 ![None.gif][] ref  vk\_missing,  ref  vk\_missing );  
 16 ![None.gif][]  
 17 ![None.gif][] //  close the original document   
 18 ![None.gif][]  vk\_my\_doc.Close(  ref  vk\_false,  ref  vk\_missing,  ref  vk\_missing );  
 19 ![None.gif][] ![dot.gif][]  
 20 ![None.gif][]

接下来我们将创建一个新文档，这就想我们在工具栏点击下“新空白文档”按钮一样，因此我们创建另一个Word　Document对象，注意这次我们用到`vk_word_app.Documents.Add( ... );`语句，这将添加一个新的空白文档，它也是可见的。

接下来，我们选择那被打开的文档的全部内容，并复制它。

接下来，我们把内容用一种特殊的格式粘贴在那新文档中，代码中用的是针对纯文本的格式，这是因为我们想去除废弃文档注入文本的格式，然后我们关闭原始文档不做任何更改。

1 ![None.gif][] ![dot.gif][]  
  2 ![None.gif][]  
  3 ![None.gif][] vk\_new\_doc.Select();  
  4 ![None.gif][] FindAndReplace(  " ^t^t^t^t^t^t^t " ,  " ^t " , vk\_num );  
  5 ![None.gif][]  
  6 ![None.gif][] //  Save the new document   
  7 ![None.gif][]  vk\_new\_doc.SaveAs(  ref  saveFile,  ref  vk\_missing,  
  8 ![None.gif][] ref  vk\_missing,  ref  vk\_missing,  ref  vk\_missing,  
  9 ![None.gif][] ref  vk\_missing,  ref  vk\_missing,  ref  vk\_missing,  
 10 ![None.gif][] ref  vk\_missing,  ref  vk\_missing,  ref  vk\_missing );  
 11 ![None.gif][]  
 12 ![None.gif][] //  close the new document   
 13 ![None.gif][]  vk\_new\_doc.Close(  ref  vk\_false,  ref  vk\_missing,  ref  vk\_missing );  
 14 ![None.gif][]  
 15 ![None.gif][] //  close word application   
 16 ![None.gif][]  vk\_word\_app.Quit(  ref  vk\_false,  ref  vk\_missing,  ref  vk\_missing );  
 17 ![None.gif][] \}  
 18 ![None.gif][] \}  
 19 ![None.gif][]  
 20 ![None.gif][] ![dot.gif][]  
 21 ![None.gif][]

现在让我们说下，如果我们对查找（ find ）和替换（ replace ）操作感兴趣，基本上是我们将选择整个文档使用 Find 和 Replace 函数。 .

**注意：****Note:**这个`FindAndReplace`函数不属于`Word`对象或者`Document`对象，它是用户定义的，实际上Find和Replace函数定义在下面的模块中。

接下来我们想更改我们的新文档并且关闭它。

最后退出word.

1 ![None.gif][] ![dot.gif][]  
  2 ![None.gif][]  
  3 ![None.gif][] private  void  FindAndReplace(  object  vk\_find,  object  vk\_replace,  
  4 ![None.gif][] object  vk\_num )  
  5 ![ExpandedBlockStart.gif][None.gif]![ContractedBlock.gif][None.gif] ![dot.gif][] \{  
 6![InBlock.gif][None.gif]object vk\_read\_only =false;  
 7![InBlock.gif][None.gif]object vk\_visible =true;  
 8![InBlock.gif][None.gif]object vk\_false =false;  
 9![InBlock.gif][None.gif]object vk\_true =true;  
10![InBlock.gif][None.gif]object vk\_dynamic =2;  
11![InBlock.gif][None.gif]  
12![InBlock.gif][None.gif] vk\_word\_app.Selection.Find.Execute( ref vk\_find,  
13![InBlock.gif][None.gif]ref vk\_false, ref vk\_false,  
14![InBlock.gif][None.gif]ref vk\_false, ref vk\_false, ref vk\_false, ref vk\_true,  
15![InBlock.gif][None.gif]ref vk\_num, ref vk\_false,  
16![InBlock.gif][None.gif]ref vk\_replace, ref vk\_dynamic, ref vk\_false,  
17![InBlock.gif][None.gif]ref vk\_false, ref vk\_false, ref vk\_false );  
18![ExpandedBlockEnd.gif][None.gif] \}   
 19 ![None.gif][] \}  
 20 ![None.gif][]\}  
 21 ![None.gif][]

上面模块展示了实际的 `FindAndReplace`  函数。注意，它属于 `vk_word_app`  对象， 还有这个函数处理活动的选择， Find 和 Replace 函数是 Find 函数的一部分，使用特殊的参数。这些参数在文件中被识别，就如在本文的前面我提到的那样。

上面的代码演示，例证怎样打开一个word文档、怎样创建一个新文档，选择、复制、粘贴以及进行查找和替换功能。

就像我们能看到那样，一旦你理解Word如何操作还有检查文件，你也将能够自动化所有Word提供的功能。

1 ![None.gif][]  //  Let's get the content from the document   
  2 ![None.gif][]  Word.Paragraphs vk\_my\_doc\_p  =  vk\_new\_doc.Paragraphs;  
  3 ![None.gif][] //  Count number of paragraphs in the file   
  4 ![None.gif][]  long  p\_count  =  vk\_my\_doc\_p.Count;  
  5 ![None.gif][] //  step through the paragraphs   
  6 ![None.gif][]  for (  int  i = 1 ; i <= p\_count; i \++  )  
  7 ![ExpandedBlockStart.gif][None.gif]![ContractedBlock.gif][None.gif] ![dot.gif][] \{  
 8![InBlock.gif][None.gif] Word.Paragraph vk\_p = vk\_my\_doc\_p.Item( i );  
 9![InBlock.gif][None.gif] Word.Range vk\_r = vk\_p.Range;  
10![InBlock.gif][None.gif]string text = vk\_r.Text;  
11![InBlock.gif][None.gif]  
12![InBlock.gif][None.gif] MessageBox.Show( text );  
13![ExpandedBlockEnd.gif][None.gif] \}   
 14 ![None.gif][]

如果你看一下上面的代码，你能看到我们申明了一个对象，它表示了 Word 文档中的段落，这就是你怎么能从一个 Word 文档中析取文本，你有了这段落对象就能访问列表中所有段落。这段代码循环给定文档中的每个段落并它们显示在 `MessageBox` 中。

## 兴趣点 ##

在新版的 Office 中， Office ２００３对那些 Office 开发人员来说，事情变的更加简单了，因此你是一个 Office 开发人员，你应该开始看下 Office2003 提供了哪些新的特性。我喜欢的一个特性就是能把文档导出成 XML 格式。

转载于:https://www.cnblogs.com/sifang2004/archive/2006/01/26/323638.html

[Link 1]: http://www.codeproject.com/csharp/csautomateword.asp
[None.gif]: 
[dot.gif]: /images/20211220/e767c903fc6e43028fab8f23d3c96f92.png