如何用Excel VBA在Word文档中使用BuildingBlockEntry().insert方法？

Dim wordApp As Object
Dim wordDoc As Object

Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True '可见性设置为True以便查看操作过程

Set wordDoc = wordApp.Documents.Open("C:\路径\文件名.docx") '替换为实际的文件路径和文件名

Dim blockType As Object
Dim range As Object

' 设置要插入的构建块类型
Set blockType = wordApp.ActiveDocument.AttachedTemplate.BuildingBlockEntries("构建块名称") '替换为实际的构建块名称

' 设置插入的位置
Set range = wordDoc.Content '插入到文档的末尾

' 插入内容
blockType.Insert range

wordDoc.Close SaveChanges:=True '保存更改，如果不需要保存，将SaveChanges参数设置为False
wordApp.Quit

Set wordDoc = Nothing
Set wordApp = Nothing