'#Language "WWB-COM"

Option Explicit

Sub Main
	AddRichTextNote()

End Sub
Sub AddRichTextNote()
    Dim Topic As Topic
    Dim noteText, htmlNote, imageUrl, beginText, endText As String

    ' Check if topic has been selected
    If ActiveDocument.Selection.PrimaryTopic Is Nothing Then
        MsgBox "Select topic first"
        Exit Sub
    End If

    Set Topic = ActiveDocument.Selection.PrimaryTopic

    ' Rich HTML text
    imageUrl = "https://sofosconsultancy.wordpress.com/wp-content/uploads/2025/08/density-world-geo-wo.gif"
    beginText = "<p>Begin</p>"
    endText =   "<p>End</p>"
    htmlNote =  "<img src='" & imageUrl & "' width='300' />"

    ' Add rich HTML text to Note of selected topic
    Topic.Notes.TextXHTML = beginText & htmlNote & endText
End Sub