@@ -639,6 +639,16 @@ elemToParPart ns element
639 case drawing of
639 case drawing of
640 Just s -> expandDrawingId s >>= (\(fp, bs) -> return $ Drawing fp bs)
640 Just s -> expandDrawingId s >>= (\(fp, bs) -> return $ Drawing fp bs)
641 Nothing -> throwError WrongElem
641 Nothing -> throwError WrongElem
642+-- The below is an attempt to deal with images in deprecated vml format.
643+elemToParPart ns element
644+ | isElem ns "w" "r" element
645+ , Just _ <- findChild (elemName ns "w" "pict") element =
646+ let drawing = findElement (elemName ns "v" "imagedata") element
647+ >>= findAttr (elemName ns "r" "id")
650+ Just s -> expandDrawingId s >>= (\(fp, bs) -> return $ Drawing fp bs)
651+ Nothing -> throwError WrongElem
642elemToParPart ns element
652elemToParPart ns element
643 | isElem ns "w" "r" element =
653 | isElem ns "w" "r" element =
644 elemToRun ns element >>= (\r -> return $ PlainRun r)
654 elemToRun ns element >>= (\r -> return $ PlainRun r)