@@ -387,8 +387,9 @@ blockToOpenXML opts (Table caption aligns widths headers rows) = do
387387 return $
388388 [ mknode "w:tbl" []
389389 ( mknode "w:tblPr" []
390− [ mknode "w:tblCaption" [("w:val", captionStr)] ()
391− | not (null caption) ]
390+ ( [ mknode "w:tblStyle" [("w:val","TableNormal")] () ] ++
391+ [ mknode "w:tblCaption" [("w:val", captionStr)] ()
392+ | not (null caption) ] )
392393 : mknode "w:tblGrid" []
393394 (if all (==0) widths
394395 then []