vba16-1.txt

AO的原代码,都是以TXT的文件写的,对你肯定有帮助的.这些都是 我的心血啊.

Public Sub UseTemplate()
    ' Set layout using the template Wizard.
    Dim pMxDocument As IMxDocument
    Dim pChangeLayout As IChangeLayout
    Set pMxDocument = Application.Document
    Set pChangeLayout = pMxDocument
    pChangeLayout.ChangeLayout
End Sub