Example to format portions of the note text with different formats

This VBA example demonstrates how to insert note into SOLIDWORKS document and format individual lines with different font effects and styles.

Portions of the text can be formatted with <FONT> instruction. This instruction has 2 attributes

effect - can be equal to U (underline) or RU (remove underline)
style - can be equal to B (bold), RB (remove bold), I (italic) or RI (remove italic)

All the text after the <FONT> instruction will be formatted according to the value of effect and style.

INote::GetText methods returns the resolved value of the note. For the note above it will return the following result:

First Line Underline
Second Line Bold
Third Line Italic

INote::PropertyLinkedText property sets or gets the text supporting the <FONT> instruction. For the note above it will return the following result:

<FONT effect=U>First Line Underline
<FONT style=B effect=RU>Second Line Bold
<FONT style=RB><FONT style=I>Third Line Italic

Dim swApp As SldWorks.SldWorks

Sub main()

    Set swApp = Application.SldWorks
    
    Dim swModel As SldWorks.ModelDoc2
    
    Set swModel = swApp.ActiveDoc
    
    Dim swSelMgr As SldWorks.SelectionMgr
    
    Set swSelMgr = swModel.SelectionManager
    
    Dim swNote As SldWorks.Note
    
    Set swNote = swModel.InsertNote("<FONT effect=U>First Line Underline" & vbLf & "<FONT style=B effect=RU>Second Line Bold" & vbLf & "<FONT style=RB><FONT style=I>Third Line Italic")
        
    Debug.Print swNote.GetText()
    Debug.Print swNote.PropertyLinkedText
    
End Sub