如何用vba是文章标题加粗、居中和字体的设置？

sunfei00426

例如我想对某一文章的标题（假设但不限于“我的祖国”）设置为居中、加粗、一号字、黑体。

我使用宏录制写的vba但是没有用，请大神指导一下如何写VBA

山菊花

1. Sub 标题设置()
   
2.     Dim P As Paragraph
   
3.     For Each P In ThisDocument.Paragraphs
   
4.         If P.Style Like "标题 *" Then
   
5.             P.Alignment = 1  '居中
   
6.             P.Range.Bold = True '加粗
   
7.             P.Range.Font.Size = 26 '一号字
   
8.             P.Range.Font.Name = "黑体"
   
9.         End If
   
10.     Next
    
11. End Sub

复制代码

过客fppt

在标题处右键，选中所有同一标题的内容，再进行格式设置