如何用VBA设置WORD文档的题目（即第一段）的格式

Sub 宏1()
    Dim str As String, i As Integer, j As Integer
    j = 0
    str = Application.ActiveDocument.Paragraphs(1).Range.Text
    For i = 1 To Len(str)
        If Mid(str, i, 1) = " " Then
        Else
            Exit For
        End If
        j = j + 1
    Next
    str = Right(str, Len(str) - j)
    Application.ActiveDocument.Paragraphs(1).Range.Text = str
    Application.ActiveDocument.Paragraphs(1).Range.Select
    Selection.Font.Name = "黑体"
    Selection.Font.Size = 18
    Selection.Font.Bold = wdToggle
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub