Get and Set Format of Note Example (VBA)

This example shows how to the get and set the format of a selected note.

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

'

' Preconditions: A model document containing the following

'               formatted note is open, and the note is selected.

'

' Posconditions: Selected note is now formatted as follows:

'

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

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swNote As SldWorks.Note

Dim swSelMgr As SldWorks.SelectionMgr

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swSelMgr = swModel.SelectionManager

' Get selected rich-text formatted note

Set swNote = swSelMgr.GetSelectedObject6(1, 0)

' Print the current note including the formatting tags

Debug.Print swNote.PropertyLinkedText

' Change the color of the selected note to red and bold

' all of the text ' and remove all italics and underlining

swNote.PropertyLinkedText = "<FONT color=0x000000ff><FONT style=B>This is a test of formatting a note via the API"

' Rebuild the document to see the newly formatted note

swModel.EditRebuild3

End Sub