Sub Demo()
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .ClearFormatting
    .Text = "/\*{1}*/\*{1}"
    .MatchWildcards = True
    While .Execute
      oRng.Start = oRng.Start + 2
       oRng.End = oRng.End - 2
      oRng.Style = ActiveDocument.Styles("Strong") 'replace with your style
      oRng.End = oRng.End + 2
      oRng.Collapse wdCollapseEnd
     Wend
  End With
lbl_Exit:
  Exit Sub
End Sub