Microsoft Office VB.NET编程，获得当前编辑文档的对象，并打印到控制台

Microsoft Office VB.NET编程，获得当前编辑文档的对象，并打印到控制台

PIA COM组件安装参见微软MSDN。

Imports Microsoft.Office.Interop.Word

Imports System.Runtime.InteropServices
Module Module1

    Sub Main()
        Dim wdGlobal As GlobalClass
        Dim docs As Documents

        Dim FileName As String
        Dim doc As Document
        Try

           '获得当前Word application对象
            wdGlobal = New GlobalClass
            docs = wdGlobal.Documents

            '获得当前编辑文档对象
            If docs.Count() <> 0 Then
                doc = docs(1)
            End If
            If Not doc Is Nothing Then
                Console.WriteLine(doc.Path + "//" + doc.Name)

               '在控制台打印文档内容
                Console.Write(doc.Content.Text)
                Console.WriteLine()
            End If
        Catch ex As COMException
            Console.WriteLine(ex.Message)
        End Try
        Console.WriteLine("input return key to end")
        Console.ReadLine()
    End Sub

End Module