通过vbs脚本向word文档添加多个脚注

Question

如何使用 vbscript 在 Word 文档中添加多个脚注？

文本和脚注在 vbscript 参数中发送：

cscript myvbs.vbs text1 foot1 text2 foot2 text3 foot3

我试过这个代码：

Set Word = CreateObject("Word.Application")
Set wordFile = Word.Documents.Add()
Word.Visible = True
Set Selection = Word.Selection

For i = 0 to Wscript.Arguments.Count - 1 Step 2
    text = Wscript.Arguments(i)
    foot = Wscript.Arguments(i + 1)

    Selection.TypeText(text)
    Selection.Footnotes.Add Selection.Range , "", foot
Next

但只有第一个脚注会插入到创建的文档中！

实际上我想通过 nodejs 中的 electron.js 运行此脚本以将一些带有脚注的文本导出到 MS Word 文档