Reformat a paragraph that starts with certain words

phreaddy · #1 04-24-2018, 09:21 AM

Hi, all,

Using Word 2016/365, my team and I write about 50 monthly reports with headings that always start with the day, month and date, like "Monday, January 1." That's the whole paragraph.

Anyone know how I could code VBA to, for example, take every paragraph that starts with a day of the week, then turn the whole paragraph bold and turn on the "keep with next" feature? I could probably figure out the formatting by recording a macro formatting text, and seeing the code that it came up with. But I can't figure out the VBA for searching for days of the week at the start of a paragraph.

TIA for any help!

Phreaddy

eduzs · #2 04-24-2018, 04:38 PM

You can start with something like that:

Backup your files before test, test before use, use at your own

Code:

Sub test()
Dim MyPara As Paragraph
For Each MyPara In ActiveDocument.Paragraphs
    If Left(MyPara.Range.Text, 6) = "Friday" Then
        MyPara.Range.Font.Bold = True
        MyPara.Range.ParagraphFormat.KeepWithNext = True
    End If
Next

End Sub

Guessed · #3 04-24-2018, 04:53 PM

I would use a variation on eduzs code and make use of styles which typically have the bold and keep with next settings

Code:

Sub test()
  Dim MyPara As Paragraph
  For Each MyPara In ActiveDocument.Paragraphs
    Select Case Trim(MyPara.Range.Words.First)
      Case "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"
        MyPara.Style = "Heading 1"
    End Select
  Next
End Sub

phreaddy · #4 04-25-2018, 06:24 AM

Thanks, guys. You rock.

macropod · #5 04-25-2018, 02:50 PM

Cross-posted at: http://www.vbaexpress.com/forum/show...-certain-words
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find a sentence that starts with certain words and change the style	MAHE	Word VBA	2	02-26-2018 08:40 AM
Can I have 2 styles in one paragraph in order to populate a TOC with the first words only?	mlkmnsgrl	Word	6	01-01-2015 10:44 AM
Adding All Non-spelling Words in a Paragraph to Dictionary	SQLUSA	Word	5	07-13-2012 04:05 AM
reformat file	renato	Word	1	06-13-2012 06:32 AM
Huge spaces between words in a justified paragraph!	techdaemon	Word	2	02-22-2010 12:17 AM