Attribute VB_Name = "umbenennen11"
Option Explicit

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.DrawingDoc
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Dim i As Long
Dim bret As Boolean
Dim NumShts As Long
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim swAnn As SldWorks.Annotation

Sub main()

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc
Set swDraw = swModel

NumShts = swDraw.GetSheetCount
For i = 1 To NumShts
swDraw.SheetPrevious
Next i

For i = 1 To NumShts
    swModel.ClearSelection2 True
Set swView = swDraw.GetFirstView
    While Not swView Is Nothing
        Set swAnn = swView.GetFirstAnnotation3
            While Not swAnn Is Nothing

'hier müssen wohl die if-then-Anweisungen rein
                        Set swAnn = swAnn.GetNext3
            Wend
        Set swView = swView.GetNextView
    Wend
swDraw.SheetNext
Next i
End Sub