@@ -364,6 +364,7 @@ archiveToDocxWithWarnings archive = do
364364archiveToDocument :: Archive -> D Document
365365archiveToDocument zf = do
366366 entry <- maybeToD $ findEntryByPath "word/document.xml" zf
367+ `mplus` findEntryByPath "word/document2.xml" zf -- see #5277
367368 docElem <- maybeToD $ (parseXMLDoc . UTF8.toStringLazy . fromEntry) entry
368369 let namespaces = elemToNameSpaces docElem
369370 bodyElem <- maybeToD $ findChildByName namespaces "w" "body" docElem
@@ -478,6 +479,7 @@ archiveToComments zf =
478479
479480filePathToRelType :: FilePath -> Maybe DocumentLocation
480481filePathToRelType "word/_rels/document.xml.rels" = Just InDocument
482+filePathToRelType "word/_rels/document2.xml.rels" = Just InDocument
481483filePathToRelType "word/_rels/footnotes.xml.rels" = Just InFootnote
482484filePathToRelType "word/_rels/endnotes.xml.rels" = Just InEndnote
483485filePathToRelType _ = Nothing