控制台程序读取WIKI形式的TXT文件并一表格的形式显示在Word中

'Imports System.Collections.Generic
'Imports System.Text
'Imports System.IO
'Imports office = Microsoft.Office.Core
'Imports word = Microsoft.Office.Interop.Word
Module Module1

    Sub Main(ByVal args As String()) '这里的参数args是字符串数组，传递的是inDebug中的文本文件，可以传递多个文件
        Dim theApplication As New Microsoft.Office.Interop.Word.Application  '添加引用COM的“Microsoft Word 12.0 Object Library”
        theApplication.Visible = True
        Dim theDocument As Microsoft.Office.Interop.Word.Document
        theDocument = theApplication.Documents.Add()
        Dim reader As System.IO.TextReader          '添加引用COM的“Microsoft Visual Basic for Applications Extensibility 5.3”
        reader = New System.IO.StreamReader("woshi.txt")  '原语句是reader = New System.IO.StreamReader(args(0))
        'C:UsersuserDocumentsVisual Studio 2008ProjectsConsoleApplication1ConsoleApplication1inDebugwoshi.txt

        Dim separators(1) As String
        separators(0) = "||"
        Dim rowCount As Integer = 0
        Dim columnCount As Integer = 0

        Dim rowList As New System.Collections.Generic.List(Of String)
        Dim row As String = reader.ReadLine()

        While row IsNot Nothing
            rowCount += 1
            rowList.Add(row)

            If rowCount = 1 Then
                Dim splitHeaderRow As String() = row.Split(separators, StringSplitOptions.None)

                columnCount = splitHeaderRow.Length - 2
            End If

            row = reader.ReadLine()
        End While

        Dim range As Microsoft.Office.Interop.Word.Range = theDocument.Range()
        Dim table As Microsoft.Office.Interop.Word.Table = range.Tables.Add(range, rowCount, columnCount)

        Dim columnindex As Integer = 1
        Dim rowindex As Integer = 1

        For Each r As String In rowList
            Dim splitrow As String() = r.Split(separators, StringSplitOptions.None)

            For columnindex = 1 To columnCount
                Dim cell As Microsoft.Office.Interop.Word.Cell = table.Cell(rowindex, columnindex)
                cell.Range.Text = splitrow(columnindex)
            Next
            rowindex += 1
        Next

        table.Rows(1).Range.Bold = 1
        table.AutoFitBehavior(Microsoft.Office.Interop.Word.WdAutoFitBehavior.wdAutoFitContent)

        System.Console.WriteLine("Table complete.")
        System.Console.ReadLine()

        theApplication.Quit(False)

    End Sub

End Module