@@ -277,7 +277,12 @@ runToInlines :: Run -> DocxContext Inlines
277runToInlines (Run rs runElems)
277runToInlines (Run rs runElems)
278 | Just (s, _) <- rStyle rs
278 | Just (s, _) <- rStyle rs
279 , s `elem` codeStyles =
279 , s `elem` codeStyles =
280+ let rPr = resolveDependentRunStyle rs
282+ return $ case rVertAlign rPr of
283+ Just SupScrpt -> superscript $ code $ concatMap runElemToString runElems
284+ Just SubScrpt -> subscript $ code $ concatMap runElemToString runElems
280− return $ code $ concatMap runElemToString runElems
285+ _ -> code $ concatMap runElemToString runElems
281 | otherwise = do
286 | otherwise = do
282 let ils = concatReduce (map runElemToInlines runElems)
287 let ils = concatReduce (map runElemToInlines runElems)
283 return $ (runStyleToTransform $ resolveDependentRunStyle rs) ils
288 return $ (runStyleToTransform $ resolveDependentRunStyle rs) ils