@@ -571,10 +571,12 @@ blockToOpenXML opts (Table caption aligns widths headers rows) = do
571571 [ mknode "w:tcBorders" []
572572 $ mknode "w:bottom" [("w:val","single")] ()
573573 , mknode "w:vAlign" [("w:val","bottom")] () ]
574+ let emptyCell = [mknode "w:p" [] [mknode "w:pPr" [] $
575+ [mknode "w:pStyle" [("w:val","Compact")] ()]]]
574576 let mkcell border contents = mknode "w:tc" []
575577 $ [ borderProps | border ] ++
576578 if null contents
577− then [mknode "w:p" [] ()]
579+ then emptyCell
578580 else contents
579581 let mkrow border cells = mknode "w:tr" [] $ map (mkcell border) cells
580582 let textwidth = 7920 -- 5.5 in in twips, 1/20 pt