环境：vb.net 2005,Word2003
需求：A、用vb.net打开word，从自定义的模板生成WORD文档。
B、把相应字段替换成用户指定的数据。
C、文档关闭前，自动读取户修改后固定位置的文本到vb.net中。
D、不管用户是否选择保存Word文档，都自动取得需要的文本。
E、用户可以通过vb.net关闭Word，也可以手工关闭Word。
（1）选择vb.net项目，右键属性=》添加引用=》COM，添加Microsoft Word 11.0 Object Library。在程序中引用方法：Imports Microsoft.Office.Interop
（2）MyWord_Quit是关键，如果不在这里面释放掉用Dim WithEvents定义的MyWord，当用户不在Vb.net中，而用手工直接关闭Word程序后，再次调用Word程序，就会产生“RPC 服务器不能用”错误。
（3）程序代码：
Imports Microsoft.Office.Interop
Public Class Form1
Dim WithEvents MyWord As Word.Application'WithEvents'用于存放MicrosoftWord引用的变量。
Dim MyDoc As Word.Document
Dim WordWasNotRunning As Boolean
Dim DocWasNotOpened As Boolean
Dim str1 As String
'-------------------------------------------------------------------------------------
'打开Word程序，如果Word已经运行，就GetObject，否则就CreateObject
Private Sub Get_Word()
On Error GoTo Open_word'不带第一个参数调用Getobject函数将
'返回对该应用程序的实例的引用,如果该应用程序不在运行，则会产生错误。
MyWord = GetObject(, "Word.Application")
GoTo Set_Visible
Open_word:
MyWord = CreateObject("Word.Application")
'如果发生错误则要创建一个Word.Application对象
WordWasNotRunning = True'表明Word是由程序启动的，最后应该关闭
Err.Clear()
Set_Visible:
MyWord.Visible = True
MyWord.Activate()
End Sub
'-------------------------------------------------------------------------------------
'从模板生成Word文档
Public Sub NewDocWithModel(ByVal FileName As String)
Dim missing = System.Reflection.Missing.Value
Dim isVisible As Boolean = False
Dim strName As String
strName = FileName
MyDoc = MyWord.Documents.Add(strName, missing, missing, isVisible)
DocWasNotOpened = True
MyDoc.Activate()
MyWord.Visible = True
End Sub
'-------------------------------------------------------------------------------------
Private Sub Get_Doc()
Dim MyTime As String
MyTime = Format(Now, "yyyy年M月d日h时m分")
'在此处对文件进行操作。
MyDoc.Activate()
MyDoc.Select()
With MyWord.Selection.Find
.ClearFormatting()
'替换Word文档模板中的“<姓名>和<性别>”为相应值
'<姓名>是提前在模板是定义的，也可以用别的比较特别的字符代替
While .Execute("<姓名>")'被替换的内容
MyWord.Selection.TypeText(Text:="张三")'替换后的内容
End While
While .Execute("<性别>")'被替换的内容
MyWord.Selection.TypeText(Text:="女")'替换后的内容
End While
End With
End Sub
'-------------------------------------------------------------------------------------
'打开Word，从模板生成Word文档,替换文本
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Get_Word() '打开Word程序
NewDocWithModel("D:/bai/vb.net/内部明电批办单.dot") '从模板生成文档
Get_Doc() '替换相关文本
End Sub
'-------------------------------------------------------------------------------------
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
MsgBox("WordWasNotrunning=" & WordWasNotRunning & ";
DocWasNotOpened=" & DocWasNotOpened)
If WordWasNotRunning Then 'Word是vb.net打开的，关闭它。
WordWasNotRunning = False
DocWasNotOpened = False
MyDoc.Close(Word.WdSaveOptions.wdDoNotSaveChanges)
MyWord.Quit()
Else 'Word以前就打开，只关闭vb.net打开的Word文档
If DocWasNotOpened = True Then
DocWasNotOpened = False
MyDoc.Close(Word.WdSaveOptions.wdDoNotSaveChanges) '(Word.WdSaveOptions.wdDoNotSaveChanges)
End If
End If
'释放对象
MyDoc = Nothing
MyWord = Nothing
End Sub
'-------------------------------------------------------------------------------------
'显示从Word中取得的数据
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = str1
End Sub
'-------------------------------------------------------------------------------------
'关闭前保存数据到变量
Private Sub MyWord_DocumentBeforeClose(ByVal Doc As Microsoft.Office.Interop.Word.Document, ByRef Cancel As Boolean) Handles MyWord.DocumentBeforeClose
'保存Word文档中，表格1的第3行第2列的文本，以后Vb.net调用
str1 = Doc.Tables(1).Rows(3).Cells(2).Range.Text
End Sub
'-------------------------------------------------------------------------------------
'Word退出后，执行的操作
'如果用户手工关闭Word，那么必须释放MyDoc和MyWd，否则再次打开Word就会出错
Private Sub MyWord_Quit() Handles MyWord.Quit
MyDoc = Nothing
MyWord = Nothing
WordWasNotRunning = False
DocWasNotOpened = False
End Sub
End Class
【VB.NET操作Word，解决“RPC 服务器不能用”错误】
