setting paragraph style removes inlines incidentally. Why?

gmaxey · #2 01-15-2021, 08:55 AM

I am not seeing that "exact" behavior (... number of inline characters ...). When I first ran the code it worked as expected. What I did see is if the "Italic" direct formatting extends to and includes the paragraph mark then the result is like you show. You might try:

Code:

Public Sub flatten()
Dim wPara As Word.Paragraph
  For Each wPara In Word.ActiveDocument.Paragraphs
    wPara.Range.Characters.Last.Select
    On Error Resume Next
    With Selection
      .ClearCharacterDirectFormatting
      .ClearCharacterStyle
    End With
    wPara.Style = ActiveDocument.Styles(wdStyleNormal).NameLocal
  Next
 End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA - (Re-) Setting a Table Style	mikejvir	PowerPoint	2	12-04-2019 10:15 AM
Why does paragraph inherit style of the following paragraph?	WADEVCAMP	Word VBA	2	04-08-2019 02:13 PM
Setting part of a paragraph bold	Fred256	Word VBA	4	10-07-2016 02:54 PM
Style seems to inherit bold setting from previous style	Jennifer Murphy	Word	3	02-16-2012 04:18 PM
Character style stripped while applying paragraph style	sams_gates	Word	0	08-29-2009 02:03 AM