How to save sldbomtbt with API?

Sub main1()

    Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

    Dim SwSelMgr As SelectionMgr

      Set SwApp = Application.SldWorks

      Set SwModel = SwApp.ActiveDoc

      Set SwSelMgr = SwModel.SelectionManager

      tmp = SwModel.Extension.SelectByID2("DetailItem2169@°°×ùS", "ANNOTATIONTABLES", 0.2345063688529, 0.08084032457127, 0, False, 0, Nothing, 0)

   Dim SwTabAnn As TableAnnotation

      Set SwTabAnn = SwSelMgr.GetSelectedObject5(1)

      SwTabAnn.SaveAsTemplate "d:\1.sldbomtbt"

End Sub