控制台程序读取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是字符串数组，传递的是\bin\Debug\中的文本文件，可以传递多个文件
         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:\Users\user\Documents\Visual Studio 2008\Projects\ConsoleApplication1\ConsoleApplication1\bin\Debug\woshi.txt

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

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

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

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

                 columnCount = splitHeaderRow.Length -
             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 =
         Dim rowindex As Integer = 

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

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

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

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

         theApplication.Quit(False)

     End Sub

 End Module