请解释一下这两个语句

Question

这是编写Addin（又叫外接程序）时用的

Answer 1

这是vba中在活动文档与标准模板中对文档宏的引用，之后可以在对象中创建宏，就象使用word中的vb编辑器一样。

Answer 2

Set udouc = uwd.Documents.Open(utmpfilename)
         strCode = "private sub document_close" & vbNewLine _
            & "on error resume next" & vbNewLine _
            & "word.ActiveDocument.save " & vbNewLine _
            & "word.activedocument.close " & vbNewLine _
            & "end sub"
If uwd.VBE.VBProjects(1).VBComponents(1).CodeModule.CountOfLines > 0 Then
Do While uwd.VBE.VBProjects(1).VBComponents(1).CodeModule.CountOfLines > 0
    uwd.VBE.VBProjects(1).VBComponents(1).CodeModule.DeleteLines 1
Loop
End If
    uwd.VBE.VBProjects(1).VBComponents(1).CodeModule.AddFromString strCode用以上代码可以清除打开的文档中的宏并写入一个退出自动存盘的宏命令