一、效果展示 

二、代码

Sub 快速查找定位到黄色底纹内容()

    With Selection.Find
        .ClearFormatting
        .Wrap = wdFindContinue
        .Font.Shading.BackgroundPatternColorIndex = wdYellow
        .Execute
    End With
End Sub