vbscript - 使用 .txt 文件中的文本在 "MSWord"文档中创建表

Question

在以下文件“E:\my_folder\my_future_table.txt”中，我有这样的文字:

#   animal  country
1   rabbit  Germany
2   wolf    France
3   koala   USA

(请注意，该文本每行中的所有单词都由制表符分隔)

我需要使用什么 VBS 脚本来创建带有基于该文本创建的表格的“Word”文件 (.doc)？ (在这个例子中，表格应该有 3 列和 4 行)

Answer 1

像这样的事情，对 the Scripting Guy 有良好的信用度

vbs 读取测试文件(请更改您的路径)，然后通过换行符将其拆分为数组 ArrVar

此数组中的每一行都被 VbTab 进一步分割进入第二个数组，ArrVar2

vbs 创建一个大小等于 ArrVar 长度的单词表和 ArrVar2 的宽度

每个项目都逐个单元格地写入表格中

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()

Set objRange = objDoc.Range()
strFilePath = "c:\temp\my_future_table.txt"

Set objFSO = CreateObject("scripting.filesystemobject")
Set objTF = objFSO.opentextfile(strFilePath)
strAll = objTF.readall
arrVar = Split(strAll, vbNewLine)
numcols = UBound(Split(arrVar(0), vbTab)) + 1

objDoc.Tables.Add objRange, UBound(arrVar) - LBound(arrVar) + 1, numcols
Set objTable = objDoc.Tables(1)

For lngrow = LBound(arrVar) To UBound(arrVar)
    arrVar2 = Split(arrVar(lngrow), vbTab)
    For lngcol = LBound(arrVar2) To UBound(arrVar2)
     objTable.Cell(lngrow + 1, lngcol + 1).Range.Text = arrVar2(lngcol)
    Next
Next

objTF.Close
set objFSO = Nothing

objTable.AutoFormat (9)
objWord.Visible = True