奇怪：代码不听使唤

weiyingde

下面的代码要求是：
1、格式化标题：将其中没有任何标点的段落视为标题，将其居中并增大字号、改换字体、改变颜色。
2、将剩下的段落视为正文，将其首行缩进两格。
毛病：运行代码后发现，不是标题段落的居然也居中。
恳请大侠：在源代码的基础上进行简化和修改，因为，我想通过自己写代码逐渐摸索和学习。

代码如下；
Sub 格式化标题和正文()
Dim par As Paragraph
With ActiveDocument
     For i = 1 To .Paragraphs.Count
     Set par = .Paragraphs(i)
      If par.Range.Information(wdWithInTable) = False Then
         If par.Range.Find.Execute("[!^1-^127]@^13", , , 1) Then '"[!，，'”\:：\]】）\)\.\>。\?？！^1-^127]@^13", , , 1
           If par.Range.Find.Execute("[一-隝]@^13", , , 1) Then
           With par.Range
               With .Find
                    par.Alignment = wdAlignParagraphCenter
                    With .Replacement.Font '
                         .Bold = True
                         .ColorIndex = wdDarkBlue
                         .Name = "华文新魏"
                         .Size = 20
                    End With
                   .Execute "[!，、\*\?\)\(\]\[；“”。？！……《》：]@^13", , , 1, , , , , , "^&" ', 2
               End With
            End With
            Else
              par.Format.FirstLineIndent = CentimetersToPoints(0.75)
            End If
         End If
       End If
    Next
End With
End Sub
附件如下

weiyingde

求大侠指瑕，在线等。

weiyingde

自我解决问题，代码如下。
但是还是有遗憾，代码一定有大量冗余，请大侠帮助简化。
Sub 格式化标题和正文()
Dim par As Paragraph
With ActiveDocument
     For i = 1 To .Paragraphs.Count
     Set par = .Paragraphs(i)
      If par.Range.Find.Execute("[。\?\:|或者|例如|以及]@", , , 1) = False Then
      If par.Range.Information(wdWithInTable) = False Then
         If par.Range.Find.Execute("[!^1-^127|:\*\?\)\(\]\[]@^13", , , 1) Then
           If par.Range.Find.Execute("[一-隝]@^13", , , 1) Then
               If par.Range.Find.Execute("[!，、\*\?\)\(\]\[；“”。？！……《》：]@^13", , , 1) Then
                   par.Alignment = wdAlignParagraphCenter
                    With par.Range.Font '
                         .Bold = True
                         .ColorIndex = wdDarkBlue
                         .Name = "华文新魏"
                         .Size = 20
                    End With
               Else
                  par.Format.FirstLineIndent = CentimetersToPoints(0.75)
               End If
           End If
         End If
      End If
      End If
    Next
End With
End Sub

weiyingde

自我完善，代码如下，欢迎大家赐更简洁的代码。
Sub 格式化标题和正文()
Dim par As Paragraph
With ActiveDocument
     For i = 1 To .Paragraphs.Count
     Set par = .Paragraphs(i)
      If par.Range.Find.Execute("[、，。：？！……；“”《》\*\?\:\)\(\]\[|或者|例如|以及]@", , , 1) = False Then
        If par.Range.Information(wdWithInTable) = False Then
           If par.Range.Find.Execute("[一-隝]@^13", , , 1) Then
                   par.Alignment = wdAlignParagraphCenter
                    With par.Range.Font '
                         .Bold = True
                         .ColorIndex = wdDarkBlue
                         .Name = "华文新魏"
                         .Size = 20
                    End With
           End If
        End If
      End If
      If par.Alignment <> wdAlignParagraphCenter Then
         With par
             .Format.FirstLineIndent = CentimetersToPoints(0.75)
             .Range.Font.Bold = True
             .Range.Font.ColorIndex = wdAuto
             .Range.Font.NameFarEast = "华文楷体"
             .Range.Font.Size = 10.5
             .Range.Font.Name = "Arial Narrow"
             .Range.Font.NameAscii = "Arial Narrow"
             .Range.Font.NameOther = "Arial Narrow"
         End With
      End If
    Next
End With
End Sub