Help with creating a basic Macro ...

Try this:

Dim swApp               As SldWorks.SldWorks

Dim swModel             As ModelDoc2

Dim swDraw              As DrawingDoc

Dim swSheet             As Sheet

Dim swView              As View

Dim vSheets             As Variant

Dim swDispDim           As DisplayDimension

Dim swAnn               As Annotation

Dim swDim               As Dimension

Dim sTextFormat As TextFormat

Dim swColorTable As ColorTable

Dim standardCount As Long

Dim count As Long

Dim colorName As String

Dim colorRef As Long

Sub main()

Set swApp = New SldWorks.SldWorks

Set swModel = swApp.ActiveDoc

Select Case swModel.GetType

    Case swDocumentTypes_e.swDocDRAWING

        Set swDraw = swModel

        vSheets = swDraw.GetSheetNames

        swDraw.ActivateSheet vSheets(0)

        Set swSheet = swDraw.GetCurrentSheet

    Case Else

        swApp.SendMsgToUser ("Open a drawing document and try again.")

        Exit Sub

End Select

i = 0

'Set swColorTable = swApp.GetColorTable

'

'standardCount = swColorTable.GetBasicColorCount

'Debug.Print "SolidWorks standard user-interface element and COLORREF value:"

'' Iterate through standard colors

'For count = 0 To (standardCount - 1)

'    ' Get the entry name

'    colorName = swColorTable.GetNameAtIndex(count)

'    If colorName <> "" Then

'        ' Get the entry's COLORREF

'        colorRef = swColorTable.GetColorRefAtIndex(count)

'        Debug.Print "  " & colorName & " : " & colorRef

'    Else

'    End If

'Next count

While Not swSheet Is Nothing

'For i = 0 To UBound(vSheets)

    Debug.Print "**************************************************"

    Debug.Print "********************** " & swSheet.GetName & " ********************"

    Debug.Print "**************************************************"

    Set swView = swDraw.GetFirstView

    While Not swView Is Nothing

        Debug.Print swView.GetName2

        Set swDispDim = swView.GetFirstDisplayDimension5

        '************ DISPLAY DIMENSION DATA ****************

        While Not swDispDim Is Nothing

            Set swAnn = swDispDim.GetAnnotation

            Set swDim = swDispDim.GetDimension

            swAnn.Select True

            Debug.Print "      Display Dimension: " & swDim.FullName

            swModel.SelectByName swSelectType_e.swSelDIMENSIONS, swDim.FullName

            swAnn.Color = 0 'Black

            swAnn.SetTextFormat 0, True, swAnn.GetTextFormat(0)

            Set swDispDim = swDispDim.GetNext3

        Wend

        '************ ANNOTATION DATA ****************

        Set swAnn = swView.GetFirstAnnotation

        While Not swAnn Is Nothing

            Select Case swAnn.GetType

                Case swAnnotationType_e.swNote

                    Debug.Print swAnn.GetName

                    swAnn.Select True

                    swAnn.UseDocDispFrame = True

                    swAnn.UseDocDispLeader = True

                    swAnn.SetTextFormat 0, True, swAnn.GetTextFormat(0)

                    swAnn.Color = 0

                Case Else

                    'do nothing

            End Select

            Set swAnn = swAnn.GetNext

        Wend

        Set swView = swView.GetNextView

    Wend

    Select Case i

        Case UBound(vSheets)

            'DO NOTHING

            Exit Sub

        Case Else

    End Select

    i = i + 1

    swDraw.ActivateSheet vSheets(i)

    Set swSheet = swDraw.GetCurrentSheet

Wend

'Next i

End Sub