diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/Docx.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 22278be7e..a2995b705 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -387,8 +387,9 @@ blockToOpenXML opts (Table caption aligns widths headers rows) = do return $ [ mknode "w:tbl" [] ( mknode "w:tblPr" [] - [ mknode "w:tblCaption" [("w:val", captionStr)] () - | not (null caption) ] + ( [ mknode "w:tblStyle" [("w:val","TableNormal")] () ] ++ + [ mknode "w:tblCaption" [("w:val", captionStr)] () + | not (null caption) ] ) : mknode "w:tblGrid" [] (if all (==0) widths then [] |