@@ -525,6 +525,7 @@ styleToOpenXml sm style =
525525 , mknode "w:link" [("w:val","VerbatimChar")] ()
526526 , mknode "w:pPr" []
527527 $ mknode "w:wordWrap" [("w:val","off")] ()
528+ : mknode "w:noProof" [] ()
528529 : ( maybe [] (\col -> [mknode "w:shd" [("w:val","clear"),("w:fill",drop 1 $ fromColor col)] ()])
529530 $ backgroundColor style )
530531 ]