在vb.net中动态创建word文档

我需要在运行时使用vb.net创建word文档。我该怎么做？我以前创建过excel文件，但不知道如何将其用于word。以下是我用于创建Excel文件的内容：

 Sub export_to_excel(recordCount As Integer, DataArray(,) As Object, fileName_Location As String)

    Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object

    ''Start a new workbook in Excel.
    oExcel = CreateObject("Excel.Application")
    oBook = oExcel.Workbooks.Add

    ''Add headers to the worksheet on row 1.
    oSheet = oBook.Worksheets(1)
    '  For i = 0 To headers.Count - 1
    oSheet.Range("A1").Value = "AAA"
    oSheet.Range("B1").Value = "BBB"
    oSheet.Range("C1").Value = "CCC"
    oSheet.Range("A1:C1").Font.Bold = True
    'Next


    ''Transfer the array to the worksheet starting at cell A2.
    oSheet.Range("A2").Resize(recordCount, 3).Value = DataArray

    ''Save the Workbook and quit Excel.
    oBook.SaveAs(fileName_Location)
    oSheet = Nothing
    oBook = Nothing
    oExcel.Quit()
    oExcel = Nothing
    GC.Collect()


End Sub

---

如何使用类似于此的代码来创建word文件？

有几种方法

但首先，您在示例中使用的是互操作，您可以对word执行同样的操作。这方面有一个很好的例子

如果您不需要任何字体或任何东西，您可以随时写入文本文件并使用extention.doc，它将在word中毫无问题地打开它

---

第三个也是最好的解决方案是使用开放式XML，这是处理office文档的新方法（扩展docX）。这种格式只是纯xml，您可以将其作为纯文本或xml进行操作，也可以使用OpenXMLSDK，它为您提供了通过现代界面操作word的卓越方法。这适用于Office2007及更高版本。文档已打开

如果不使用互操作，您将没有很多选择。请看一看Aspose库：示例中您正在使用互操作，但您说您不想使用互操作？哪一个？@Ahmed ilyas:Aspose与OpenXML相比非常昂贵SDKit只是一个建议。。。。有很多是肯定的，但这是一个来自经验的建议。或者，最初的COM方法是免费的，可以工作，但OP不想走这条路，因此给出了一种特别用于企业行业的替代方法