Scripting Microsoft Word-动态拉入HTML文件并附加它-可能吗？

Word文档是否具有显示动态信息的脚本功能？我想做的是让文档动态地拉入HTML文件的内容，并在每次打开文档时将其附加到文档的末尾

Public Sub AutoOpen()
    Dim currentDocument As Document
    Set currentDocument = ActiveDocument

    Dim sourceDocument As Document
    Set sourceDocument = Application.Documents.Open(FileName:="e:\mySourceName.docx")
    sourceDocument.Range.Copy
    sourceDocument.Close wdDoNotSaveChanges
    Set sourceDocument = Nothing

    Dim pasteRange As Range
    Set pasteRange = currentDocument.Range
    pasteRange.Collapse wdCollapseEnd

    pasteRange.Paste
End Sub

---

有人知道这是否可行吗？

将以下内容放入代码模块中。每次打开文档时都会运行

AutoOpen

例程

Public Sub AutoOpen()
    Dim currentDocument As Document
    Set currentDocument = ActiveDocument

    Dim sourceDocument As Document
    Set sourceDocument = Application.Documents.Open(FileName:="e:\mySourceName.docx")
    sourceDocument.Range.Copy
    sourceDocument.Close wdDoNotSaveChanges
    Set sourceDocument = Nothing

    Dim pasteRange As Range
    Set pasteRange = currentDocument.Range
    pasteRange.Collapse wdCollapseEnd

    pasteRange.Paste
End Sub