Word VBA: Find shaded text and replace with underlining

FindShadedText.bas

'https://www.msofficeforums.com/word-vba/49481-remove-shading-specific-color-document-multiple-shading.html
Sub Macro5()
  Dim iCol As Long
  iCol = Selection.Shading.BackgroundPatternColor
  With ActiveDocument.Range.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = ""
    .ParagraphFormat.Shading.BackgroundPatternColor = iCol
    .Replacement.Font.Underline = wdUnderlineSingle
    .Execute Replace:=wdReplaceAll
  End With
End Sub

To use this script, select the whole paragraph with the particular shading that you want to replace and then run the script. It will find all other paragraphs with the same shading and add underlining to them.