主题：导出文本

Dim str As String = ""

Dim drs As List(Of DataRow)

drs = DataTables("手册").Select("选择 = false")

For i As Integer = 0 To drs.count-1
   
    Dim dr As DataRow = drs(i)
    If dr.Isnull("章") = False Then
       
        str = str & dr("章") & dr("内容") & vbcrlf
       
    End If
   
   
   
    If dr.isnull("节") = False Then
       
        str = str & "   " & dr("节") & dr("内容") & vbcrlf
       
    End If
   
   
   
    If dr.Isnull("小节") = False Then
       
        str = str & "      " & dr("小节") & dr("内容") & vbcrlf
       
    End If
   
    If dr.isnull("一") = False Then
       
        str = str & "           " & dr("一") & dr("内容") & vbcrlf
       
    End If
   
   
Next

output.Show(str)

word是不行的，你用专业报表吧。

http://www.foxtable.com/help/topics/1183.htm

你也可以用vba插入文本，如

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\test.doc")
   
    If app.ActiveWindow.Selection.Find.Execute("Test") Then
        app.Selection.font.bold = True
        app.Selection.font.size = 18
        app.Selection.TypeText(Text:="12345678")
        app.Selection.font.bold = False
        app.Selection.font.size = 8
        app.Selection.TypeText(Text:="12345678")
    End If
   
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
   
End try