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