Run Time Error 5844

[gmayor]

The lockdown is relaxed tomorrow, even though we have the highest infection rate in Europe. Given that we have been in lockdown since last November, clearly it is a ploy that doesn't work.

I don't see the issue with the bold (see illustration). It probably relates to the style used; however if you add the line indicated below it may help.

.Show
        If .Tag = 0 Then GoTo lbl_Exit
sBoldList = Split(sBold & .txtBoldList.Text, ",")
oDoc.Variables("BoldList").Value = .txtBoldList.Text
        oDoc.Variables("Missed").Value = .OptionButton2.Value
        For Each occ In oDoc.ContentControls
    Set oRng = occ.Range
    oRng.Font.Bold = False

2021-05-09_06-29-06.jpg