![]() |
#15
|
|||
|
|||
![]()
You are never going to get anything to work if you are going to continue to move the goal posts!!! The text "in the date of" is not present in the sample document you sent. In addition, that document has content controls so the search string used previously just isn't going to work.
Try this: Sub ScratchMacro() 'A basic Word macro coded by Greg Maxey Dim oRng As Range Dim oRngP As Range Dim arrParts() As String Set oRng = ActiveDocument.Range With oRng.Find .Text = " né(e) le " While .Execute With oRng Set oRngP = oRng.Duplicate oRngP.Expand wdParagraph oRngP.End = oRng.Start With oRngP .Font.Bold = True .Font.Italic = True End With oRng.Collapse wdCollapseEnd End With Wend End With lbl_Exit: Exit Sub End Sub |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
PowerPoint macro to change words between quotes to italic needed | KarenK13 | PowerPoint | 9 | 01-12-2020 12:59 PM |
![]() |
Ulodesk | Word | 2 | 07-25-2016 06:01 AM |
Opening doc in Word 2010 causes normal template to change - font size incorrect | Simonb | Word | 4 | 01-26-2016 03:52 PM |
![]() |
brent chadwick | Word VBA | 3 | 11-24-2015 12:48 PM |
![]() |
markg2 | Outlook | 2 | 06-09-2010 03:23 PM |