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

问题描述

如何使用 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 文档

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）