Based on your code and with some sample text in the array, the following will work
Sub add_bold()Dim orng As Range
Dim x As Long, i As Long, ArrFnd()
ArrFnd = Array("dolor", "nostrud", "blandit")
For x = 0 To UBound(ArrFnd)
Set orng = ActiveDocument.Range
With orng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchWildcards = True
.Text = ArrFnd(x)
.Font.Bold = True
.Font.Color = RGB(33, 33, 32)
.ParagraphFormat.Alignment = wdAlignParagraphJustify
Do While .Execute
orng.Text = "{body:bold}" & orng.Text & "{/body:bold}"
orng.Collapse wdCollapseEnd
Loop
End With
Next
End Sub
However if you just want to tag bold text
Sub add_bold2()Dim orng As Range
Set orng = ActiveDocument.Range
With orng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.Font.Bold = True
Do While .Execute
orng.Text = "{body:bold}" & orng.Text & "{/body:bold}"
orng.Collapse wdCollapseEnd
Loop
End With
End Sub