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

Guessed · 11-29-2023, 03:37 PM

This might be easier

Code:

Sub ChrSixBis()
  With ActiveDocument.Paragraphs(5).Range
    If LCase(.Text) Like "title.*" Then
      .Style = "Heading 1"
      .Words(1).Case = wdLowerCase
      .Words(1).Font.SmallCaps = True
    Else
      MsgBox "Not Found"
    End If
  End With
End Sub

I would recommend you add an error checker in case the document doesn't have 5 paragraphs. Also, if you are trying to assign a custom style, you might also need an error checker to ensure that style exists in the document.