Microsoft Office Forums - View Single Post - Macro to return a specific character in a specific paragraph.

RobiNew · 11-29-2023, 08:37 AM

Thank you, Gmaxey! That was a typo, I meant Words(1). That code was part of the larger set here below. It works, but perhaps it can be made more efficient? Thanks a lot!

Code:

Sub ChrSixBis()
  With ActiveDocument
If .Paragraphs(5).Range.Words(1) = "title" And .Paragraphs(5).Range.Characters(6) = "." _
Or .Paragraphs(5).Range.Words(1) = "Title" And .Paragraphs(5).Range.Characters(6) = "." _
Or .Paragraphs(5).Range.Words(1) = "TITLE" And .Paragraphs(5).Range.Characters(6) = "." Then
    .Paragraphs(5).Range.Style = "myStyle"
    .Paragraphs(5).Range.Words(1).Case = wdLowerCase
    .Paragraphs(5).Range.Words(1).Font.SmallCaps = True
Else
MsgBox "Not Found"
End If
End With
End Sub