1 'Imports System.Collections.Generic 2 'Imports System.Text 3 'Imports System.IO 4 'Imports office = Microsoft.Office.Core 5 'Imports word = Microsoft.Office.Interop.Word 6 Module Module1 7  8     Sub Main(ByVal args As String()) '这里的参数args是字符串数组，传递的是\bin\Debug\中的文本文件，可以传递多个文件 9         Dim theApplication As New Microsoft.Office.Interop.Word.Application  '添加引用COM的“Microsoft Word 12.0 Object Library”10         theApplication.Visible = True11         Dim theDocument As Microsoft.Office.Interop.Word.Document12         theDocument = theApplication.Documents.Add()13         Dim reader As System.IO.TextReader          '添加引用COM的“Microsoft Visual Basic for Applications Extensibility 5.3”14         reader = New System.IO.StreamReader("woshi.txt")  '原语句是reader = New System.IO.StreamReader(args(0))15         'C:\Users\user\Documents\Visual Studio 2008\Projects\ConsoleApplication1\ConsoleApplication1\bin\Debug\woshi.txt16 17         Dim separators(1) As String18         separators(0) = "||"19         Dim rowCount As Integer = 020         Dim columnCount As Integer = 021 22         Dim rowList As New System.Collections.Generic.List(Of String)23         Dim row As String = reader.ReadLine()24 25         While row IsNot Nothing26             rowCount += 127             rowList.Add(row)28 29             If rowCount = 1 Then30                 Dim splitHeaderRow As String() = row.Split(separators, StringSplitOptions.None)31 32                 columnCount = splitHeaderRow.Length - 233             End If34 35             row = reader.ReadLine()36         End While37 38         Dim range As Microsoft.Office.Interop.Word.Range = theDocument.Range()39         Dim table As Microsoft.Office.Interop.Word.Table = range.Tables.Add(range, rowCount, columnCount)40 41         Dim columnindex As Integer = 142         Dim rowindex As Integer = 143 44         For Each r As String In rowList45             Dim splitrow As String() = r.Split(separators, StringSplitOptions.None)46 47             For columnindex = 1 To columnCount48                 Dim cell As Microsoft.Office.Interop.Word.Cell = table.Cell(rowindex, columnindex)49                 cell.Range.Text = splitrow(columnindex)50             Next51             rowindex += 152         Next53 54         table.Rows(1).Range.Bold = 155         table.AutoFitBehavior(Microsoft.Office.Interop.Word.WdAutoFitBehavior.wdAutoFitContent)56 57         System.Console.WriteLine("Table complete.")58         System.Console.ReadLine()59 60         theApplication.Quit(False)61 62     End Sub63 64 End Module