I think you're on the right track!




I made some progress myself in the meantime. I commented out the part in Graham's second macro which I didn't understand:


' With oRng.Find
' Do While .Execute(findText:="^13{2,}", MatchWildcards:=True)
' oRng.Text = Chr(13)
' oRng.ParagraphFormat.SpaceAfter = 12
' oRng.Collapse 0
' Loop
' End With



After running the second macro without those lines, I ended up with a document that has the styles applied to correct paragraphs, but with lots of empty paragraphs. So, I suppose those lines are intended to remove the empty paragraphs, but they also do something to mess up the styles.

If I understand correctly, those lines look for occurrences of two consequtive paragraph marks, and then replace them with one paragraph mark Chr(13). Now, the question is, where does that replacement paragraph mark get its style from? Probably not from the first paragraph mark. Is there any way to read the style of the first paragraph mark and apply it to the replacement paragraph mark?