如何将字符串写入Word

Question

Dim wordapp As New Word.ApplicationClass
            Dim worddoc As New Word.Document            wordapp.Visible = True
            worddoc = wordapp.Documents.Add()            Dim i As Int16
            '将控件内容赋值给WORD
            For i = 0 To LB1.Items.Count - 1
                wordapp.Selection.TypeText(LB1.Items(i).Text)
                wordapp.Selection.TypeParagraph()
            Next
            '保存WORD文件
            worddoc.SaveAs(Server.MapPath("标准编号.doc"))
            '注销WORD应用类
            wordapp.Application.Quit()
worddoc = nothing
wordapp = nothing
GC.Collect()