setting paragraph style removes inlines incidentally. Why?

gmaxey · #7 01-20-2021, 09:07 AM

Paul, here both of those returned the same result the OP is seeing.

Ruud, back to your original observation, it does seem that the length of the italic string in the paragraph text is having and affect. I copied your line 2 as lines 4 and 5. Then shortened the italic string in line 4. Ran your macro and lines 2 and 5 were not converted to all normal font.

I don't know why that is happening. I don't know how helpful this will be for your production documents, but for this example, this worked:

Code:

Public Sub flatten()
Dim oRng As Range
Dim wPara As Word.Paragraph
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Font.Italic = True
    .Replacement.Text = "<i>^&</i>"
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
  For Each wPara In Word.ActiveDocument.Paragraphs
    wPara.Style = ActiveDocument.styles(wdStyleNormal).NameLocal
  Next
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .ClearFormatting
    .Text = "(\<i\>)(*)(\</i\>)"
    .MatchWildcards = True
    .Replacement.Text = "\2"
    .Replacement.Font.Italic = True
    .Execute Replace:=wdReplaceAll
  End With
lbl_Exit:
  Exit Sub
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