2 files changed, 4 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Parse.hs b/src/Text/Pandoc/Readers/Docx/Parse.hs
index 8c5c94bb9..889bd80fc 100644
--- a/src/Text/Pandoc/Readers/Docx/Parse.hs
+++ b/src/Text/Pandoc/Readers/Docx/Parse.hs
@@ -224,6 +224,7 @@ data ParagraphStyle = ParagraphStyle { pStyle      :: [ParStyle]
                                      , indentation :: Maybe ParIndentation
                                      , dropCap     :: Bool
                                      , pChange     :: Maybe TrackedChange
+                                     , pBidi       :: Maybe Bool
                                      }
                       deriving Show
 
@@ -232,6 +233,7 @@ defaultParagraphStyle = ParagraphStyle { pStyle = []
                                        , indentation = Nothing
                                        , dropCap     = False
                                        , pChange     = Nothing
+                                       , pBidi       = Just False
                                        }
 
 
@@ -998,6 +1000,7 @@ elemToParagraphStyle ns element sty
                                          isElem ns "w" "moveFrom" e
                                   ) >>=
                       getTrackedChange ns
+      , pBidi = checkOnOff ns pPr (elemName ns "w" "bidi")
       }
 elemToParagraphStyle _ _ _ =  defaultParagraphStyle
 
diff --git a/src/Text/Pandoc/Readers/Docx/Parse/Styles.hs b/src/Text/Pandoc/Readers/Docx/Parse/Styles.hs
index c2d27e7fb..ac2d6fa07 100644
--- a/src/Text/Pandoc/Readers/Docx/Parse/Styles.hs
+++ b/src/Text/Pandoc/Readers/Docx/Parse/Styles.hs
@@ -40,6 +40,7 @@ module Text.Pandoc.Readers.Docx.Parse.Styles (
   , getNumInfo
   , elemToRunStyle
   , defaultRunStyle
+  , checkOnOff
   ) where
 import Prelude
 import Codec.Archive.Zip