Microsoft Office，VB.NET编程 PIA使用小程序

在微软下载PIA COM组件包oxppia.exe。

安装后注册

在VB.NET中Console应用项目中添加引用COM组件：Microsoft Word 10.0 Object Library

源代码如下，将输入word文档内容输出到控制台。

Imports Microsoft.Office.Interop.Word

Module Module1

Sub Main()

Dim wdApp As New Microsoft.Office.Interop.Word.Application

Console.WriteLine("The version of Microsoft Word installed " & _

"on this computer is " & wdApp.Version & ".")

Console.WriteLine("Please input word filename with full path")

Dim FileName As String

FileName = Console.ReadLine()

Dim doc As Document

doc = wdApp.Documents.Open(FileName, Nothing, True)

If Not doc Is Nothing Then

Console.Write(doc.Content.Text)

End If

Console.WriteLine("input return key to end")

Console.ReadLine()

End Sub

End Module