@@ -763,11 +763,13 @@ writeOpenXML opts (Pandoc meta blocks) = do
763763 let abstract' = case lookupMeta "abstract" meta of
764764 Just (MetaBlocks bs) -> bs
765765 Just (MetaInlines ils) -> [Plain ils]
766+ Just (MetaString s) -> [Plain [Str s]]
766767 _ -> []
767768 let subtitle' = case lookupMeta "subtitle" meta of
768769 Just (MetaBlocks [Plain xs]) -> xs
769770 Just (MetaBlocks [Para xs]) -> xs
770771 Just (MetaInlines xs) -> xs
772+ Just (MetaString s) -> [Str s]
771773 _ -> []
772774 let includeTOC = writerTableOfContents opts ||
773775 case lookupMeta "toc" meta of