Test Burgandy

Generic color name: Burgundy
Colors that make up #8C001A
RGB: 140, 0, 26 - HSL: 0.97, 1.00, 0.27

Purple[COLOR="#800080"]Purple[/COLOR]
Purple[COLOR=Purple]Purple[/COLOR]
Maroon[COLOR="#800000"]Maroon[/COLOR]
Maroon[COLOR=Maroon]Maroon[/COLOR]
Burgundy[COLOR="#8C001A"]Burgundy[/COLOR]
Windows10[color="#3E0000"]Windows10[/COLOR]
color:#A82D00 $NFS




HTML Code:
<div class=WordSection1>

<p class=MsoNormal><span lang=EN-GB style='font-size:9.0pt;line-height:115%;
font-family:"Lucida Console";mso-bidi-font-family:"Lucida Console";color:#A82D00;
mso-ansi-language:EN-GB;mso-fareast-language:DE'>$NFS</span><span lang=EN-GB
style='font-size:9.0pt;line-height:115%;font-family:"Lucida Console";
mso-bidi-font-family:"Lucida Console";mso-ansi-language:EN-GB;mso-fareast-language:
DE'><span style='mso-spacerun:yes'>                             </span><span
style='color:dimgray'>=</span> <span style='color:blue'>New-Object</span> <span
class=SpellE><span style='color:blueviolet'>system.Windows.Forms.Button</span></span></span><span
lang=EN-US style='mso-ansi-language:EN-US'><o:p></o:p></span></p>

</div>
Code:
'Sub Makro9BBBurgundy()   '   '     https://excelfox.com/forum/showthread.php/2417-Test-BB-Code-Highlighting-and-Colors?p=16370#post16370
'    With Selection
'     .Font.Color = 1704076
'     .Text = "[color=""#8C001A""] " & .Text & " [/color]"
'     .Collapse Direction:=wdCollapseEnd
'    End With
'End Sub
Sub Makro9BBBurgundy() '    Ctrl+Shift+B,G   '  https://eileenslounge.com/viewtopic.php?f=26&t=37808&p=292620#p292620
    Dim Text1 As String
    Dim Text2 As String
    Text1 = "[color=""#8C001A""] "
    Text2 = " [/color]"
    With Selection
        .InsertBefore Text:=Text1
        .InsertAfter Text:=Text2
        ActiveDocument.Range(Selection.Start, Selection.Start + Len(Text1)).Font.Size = 8
        ActiveDocument.Range(Selection.End - Len(Text2), Selection.End).Font.Size = 8
        .Font.Color = 1704076
        .Collapse Direction:=wdCollapseEnd
    End With
End Sub