Sub Test()
RemShading ActiveDocument
End Sub

Function RemShading(oDoc As Document) As Boolean
Dim oPara As Paragraph
    On Error GoTo err_Handler
    For Each oPara In oDoc.Paragraphs
        If oPara.Shading.BackgroundPatternColor = RGB(255, 255, 230) Then
            oPara.Shading.BackgroundPatternColor = wdColorAutomatic    'remove the shading
            oPara.Range.Font.Name = "Calibri"    'The font you wish to apply
            oPara.Range.Font.Size = 12    'The font size
        End If
    Next oPara
    RemShading = True
lbl_Exit:
    Exit Function
err_Handler:
    RemShading = False
    Err.Clear
    Resume lbl_Exit
End Function