AnsweredAssumed Answered

How to get like property of Note

Question asked by Yong Ning on Jun 15, 2015
Latest reply on Jun 16, 2015 by Yong Ning


Follow code result is 7

Help me. Hope get result is → link property in  note →  $PRP:"SW-Total Sheets(Total Sheets)"???




Private Sub ll1()

   Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

      Set SwApp = Application.SldWorks

      Set SwModel = SwApp.ActiveDoc

   Dim SwSelMgr As SelectionMgr

      Set SwSelMgr = SwModel.SelectionManager

   Dim SwNote As Note

      Set SwNote = SwSelMgr.GetSelectedObject5(1)

      Debug.Print SwNote.GetText


End Sub