remove highlights & shading from the active document in Word

NoColor.ps1

$word = [Runtime.Interopservices.Marshal]::GetActiveObject("Word.Application")
$doc = $word.ActiveDocument
if ($doc) {
	# Clear highlights & shading
	foreach ($r in $doc.StoryRanges) {
		do {
			$r.HighlightColorIndex = [Microsoft.Office.Interop.Word.WdColorIndex]::wdNoHighlight
			$r.Shading.BackgroundPatternColor = [Microsoft.Office.Interop.Word.WdColor]::wdColorAutomatic
			$r = $r.NextStoryRange
		} while ($r)
	}
}