vba16-1.txt

来自「本书给出了AO的常用的VAB代码 可能是初学者很好的一本参考书」· 文本 代码 · 共 9 行

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