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