下面的程序读取当前图纸的每一个 note ，并在 debug 中打印结果。
Option Explicit
Dim swname As String
Dim swtext As String
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim swNote As SldWorks.note
Dim swAnn As SldWorks.Annotation
Dim bRet As Boolean
Debug.Print "begin:" & Chr(10)
Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
Set swView = swDraw.GetFirstView ' This is the drawing template.i don't need to care about it
Set swNote = swView.GetFirstNote
swModel.ClearSelection2 (True)
Debug.Print "File = " & swModel.GetPathName
Do While Not swNote Is Nothing
Set swAnn = swNote.GetAnnotation
bRet = swAnn.Select2(True, 0)
Debug.Assert bRet
swname = swNote.GetName
swtext = swNote.GetText
Debug.Print " 名称： " & swNote.GetName; " *** 文本： " & swNote.GetText
Set swNote = swNote.GetNext
Loop
End Sub