From 7376d26c364826f2ef689f5c7040016369e0a558 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 14 Feb 2012 17:41:11 -0800 Subject: Add TableNormal style to tables. Needs testing with Word. --- src/Text/Pandoc/Writers/Docx.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc/Writers/Docx.hs') 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 [] -- cgit v1.2.3