dom - vbscript函数开头的InnerHTML不会立即生效

Question

我在 hta 中使用 vbscript。文件将数据写入 .docx 文件。我想要某种“状态监视器”来告诉用户进程何时开始，文件何时保存等等......写入文件工作正常，但无论我做什么，innerHTML 或任何 DOM 更改都在进行文件保存后的效果方式。单击按钮后，它有点冻结。我本以为代码是逐行执行的，但显然不是——问题是为什么以及该怎么做？

VB脚本：

        Function TextToWord
        Document.getElementById("status").innerHTML = "Start writing to doc..."

        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objWord = CreateObject("Word.Application")

        objWord.Visible = False
        Set objDoc = objWord.Documents.Open("file.docx")

        Set objRange = objDoc.Bookmarks("Name").Range
        objRange.Text = "Some Text..."

        objDoc.SaveAs("newfile.docx")
        objDoc.Close

        End Function

HTML/HTA:

        <button class="myButton" onClick="TextToWord()">Word Dokument erstellen</button>
        <div id="status"></div>

标签： domvbscriptinnerhtmlhta