Find and Replace Annotation (VBA)

This example shows how to find and replace the text in an annotation in a SolidWorks document using the SolidWorks Utilities API.

'---------------------------------------

'

' Preconditions: SolidWorks document is open and has a note

'                containing the text string "abc".

'

' Postconditions: The text string "abc" is replaced with

'                 the text string "def".

'

'---------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim longstatus As Long

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

' Find and replace annotations

Set swUtil = swApp.GetAddInObject("Utilities.UtilitiesApp")

Set swUtilFindReplaceAnnotations = swUtil.FindReplaceAnnotations

longstatus = swUtilFindReplaceAnnotations.InitPMPage()

swUtilFindReplaceAnnotations.FindText = "abc"

swUtilFindReplaceAnnotations.ReplaceText = "def"

swUtilFindReplaceAnnotations.options = gtFraWholeWord

swUtilFindReplaceAnnotations.AnnotationFilter = gtFraNote

longstatus = swUtilFindReplaceAnnotations.FindNext()

longstatus = swUtilFindReplaceAnnotations.Replace()

longstatus = swUtilFindReplaceAnnotations.Close()

End Sub