VBA-使用CSV表值填充Word文档

Question

对于这个问题，我事先表示歉意，到目前为止，我与MsWord宏关系不大。

到目前为止，我执行了以下脚本，以通过VBA Word宏将一些格式正确的表格一一添加到Word文档中：

Sub InsertTableToWord()    

Dim TCID As String, TCTitle As String, TCObjective As String

TCID = InputBox("Provide TCID: ")
TCTitle = InputBox("Provide TCTitle: ")
TCObjective = InputBox("Provide TCObjective: ")

' some code to format the entered data
Selection.TypeText Text:=TCID
Selection.TypeText Text:=TCTitle
Selection.TypeText Text:=TCObjective

End Sub

对于不同的TC *值，我必须执行上述宏10至40次。

我现在想做的是：

• 将TC *值存储为CSV（完成后，第一列TCID，第二列-TCTitle，第三列-TCObjective）
• 修改我的代码以加载存储在CSV文件中的值，然后重复该操作，直到使用了CSV文件中的所有数据为止。

你们能帮我吗？

Answer 1

最有效的方法是使用Range.InsertFile将CSV文件带入文档，然后使用Range.ConvertToTable方法将其转换为Word表。 您将在本文中找到讨论和详细的代码示例：

https://msdn.microsoft.com/zh-cn/library/aa537149%28v=office.11​​%29.aspx?f=255&MSPPError=-2147217396