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