Formatting dates only in Diary transcriptions

macropod · #1 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').

vivka · #2 04-08-2025, 02:53 AM

Yes, Macropod, I fully agree! Thank you for your useful remarks!

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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