Microsoft Office Forums - View Single Post - [Solved] Word macro - remove shading from active para. and assign language to it, keep text cursor position

macropod · 03-19-2017, 05:03 AM

Try:

Code:

Sub EngUSNoBackground()
With Selection.Paragraphs.First.Range
  With .Shading
    .Texture = wdTextureNone
    .ForegroundPatternColor = wdColorAutomatic
    .BackgroundPatternColor = wdColorAutomatic
  End With
  .LanguageID = wdEnglishUS
  .NoProofing = False
End With
End Sub