在2级标题段的最后加句号（word 宏编写问题）

附件文档由pdf转过来的，想在2级标题段尾加句号，请问如何写宏代码？
Dim p As Paragraph '
  For Each p In ActiveDocument.Paragraphs
     If p.Style = "标题2" Then
  Next
End Sub
附件：股道.rar http://iask.sina.com.cn/b/17490452.html

http://iask.sina.com.cn/browse/download.php?path=/16/92/63/1132169263.775153481.rar&filename=股道.rar

Dim p As Paragraph '
  For Each p In ActiveDocument.Paragraphs
     If p.Style = "标题2" Then p.Range.Text = Left(p.Range.Text, Len(p.Range.Text) - 1) & "。" & Chr(13)
  Next
End Sub