Sub ChrSix()
'The sixth character in the first word of paragraph 5 is "." (Title.)
  With ActiveDocument
 If .Paragraphs(5).Range.Words(2).Characters(1) = "." Then
MsgBox "Found"
 Else
MsgBox "Not Found"
End If
  End With
End Sub

See for yourself:
Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oPar As Paragraph, oWord As Range
  Set oPar = ActiveDocument.Range.Paragraphs(5)
    For Each oWord In oPar.Range.Words
      oWord.Select
    Next
lbl_Exit:
  Exit Sub
End Sub