一、效果展示
二、代码
Sub 快速查找定位到黄色底纹内容()
With Selection.Find
.ClearFormatting
.Wrap = wdFindContinue
.Font.Shading.BackgroundPatternColorIndex = wdYellow
.Execute
End With
End Sub
Sub 快速查找定位到黄色底纹内容()
With Selection.Find
.ClearFormatting
.Wrap = wdFindContinue
.Font.Shading.BackgroundPatternColorIndex = wdYellow
.Execute
End With
End Sub