Внутренний HTML в начале функции VBScript не вступает в силу немедленно - PullRequest
Новая
       66

Внутренний HTML в начале функции VBScript не вступает в силу немедленно

0 голосов
/ 07 февраля 2020

Я использую VBScript в HTA. файл для записи данных в файл .docx. Я хочу, чтобы какой-то «монитор состояния» сообщал пользователю, когда процесс начался, когда файл был сохранен и т. Д. Запись в файл работает нормально, но что бы я ни делал, внутренний HTML или любой DOM изменения вступают в силу после того, как файл был сохранен. После нажатия на кнопку он как бы замерз. Я бы предположил, что код выполняется построчно, но, очевидно, это не так - вопрос в том, почему и что делать?

VBScript: 

        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>
...