Reformat a paragraph that starts with certain words

[phreaddy]

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]

You can start with something like that:

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

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]

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

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]

Thanks, guys. You rock.

[macropod]

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