Quote:
Originally Posted by vivka
Hi! Please, try this simple code:
|
FWIW, your
Code:
Do While .Execute
myRng.start = myRng.start + 2
myRng.Paragraphs(1).range.Font.Bold = True
myRng.Paragraphs(1).range.Font.Size = 14
myRng.Collapse wdCollapseEnd
Loop
could be reduced to:
Code:
Do While .Execute
myRng.Paragraphs.Last.Range.Font.Bold = True
myRng.Paragraphs.Last.ange.Font.Size = 14
myRng.Collapse wdCollapseEnd
Loop
Not using a loop is more efficient, though. Regardless, you're not testing for full dates, so there's a risk of spurious matches (e.g. 'May I go now', 'The quick brown fox', 'She went home').
04-07-2025, 03:22 PM
Similar Threads
Conditional Formatting Dates
Windows 10 
Office 2016
Hybrid Mode