Formatting dates only in Diary transcriptions

macropod · #3 04-07-2025, 03:22 PM

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').

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Diary template	RobinClay	Word	0	05-05-2023 03:22 PM
Formatting th at the end of ordinal dates	DBlomgren	Publisher	0	01-23-2016 09:44 AM
Conditional Formatting Dates	Phil H	Excel	6	12-08-2014 07:42 AM
Conditional Formatting Dates	jake.harris5253	Excel	1	12-06-2014 10:59 AM
Conditional Formatting with Dates	namedujour	Excel	1	02-21-2013 03:42 AM