Insert a condition in Find and Replace

RobiNew · #17 12-04-2023, 08:59 AM

Thank you, Gmaxey! I will certainly study that article. But for the time being here's another difficulty:

Code:

Dim aRng As Range
    For Each Paragraph In ActiveDocument.Paragraphs
NrPara = NoPara + 1
Set aRng = ActiveDocument.Paragraphs(NrPara).Range
If Paragraph.Range.ParagraphFormat.Alignment = wdAlignParagraphRight _
Or Paragraph.Range.ParagraphFormat.LeftIndent > 30 Then
aRng.Format.Font.Italic = False
End If
    Next Paragraph
    NrPara = 0
    Set aRng = Nothing

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find & Replace to insert thousands separators	jeffreybrown	Word	3	10-19-2019 04:37 PM
Find and replace condition	norgro	Word VBA	2	07-31-2015 06:38 AM
Find and Replace - How to insert brackets around all numbers in a doc	Natedogg	Word	2	05-21-2015 07:16 AM
Insert text at the end of a sentence Find/Replace	AlmostFriday	Word	6	06-17-2012 05:21 AM
Find & Replace Insert Issue	mipacker	Word	0	02-18-2009 08:59 AM