diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
index 38031b7dc..b01a1567e 100644
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@@ -596,12 +596,15 @@ blockToOpenXML opts (Table caption aligns widths headers rows) = do
                                else contents
   let mkrow border cells = mknode "w:tr" [] $ map (mkcell border) cells
   let textwidth = 7920  -- 5.5 in in twips, 1/20 pt
+  let fullrow = 5000
+  let rowwidth = sum $ map (fullrow *) widths
   let mkgridcol w = mknode "w:gridCol"
                        [("w:w", show $ (floor (textwidth * w) :: Integer))] ()
   return $
     [ mknode "w:tbl" []
       ( mknode "w:tblPr" []
         ( [ mknode "w:tblStyle" [("w:val","TableNormal")] () ] ++
+          [ mknode "w:tblW" [("w:type", "pct"), ("w:w", (show rowwidth))] () ] ++
           [ mknode "w:tblCaption" [("w:val", captionStr)] ()
           | not (null caption) ] )
       : mknode "w:tblGrid" []