word中写这样的宏程序代码麻烦吗

exln

word版本为2016；
操作系统为WIN10；格式见附件，
修改说明如下：
=========跟新帖子2020-11-10========
一级标题对应内容，1996年南大碎尸案脱水版过敏者慎入
南大碎尸案将永远追查真凶；
格式为：中文黑体，加粗，2号字，无首行缩进，双倍行距，段前断后0.5行；

二级标题对应内容：1.南大碎尸案详情20
格式为：中文黑体，加粗，3号字，无首行缩进，1.5倍行距

三级标题对应内容：2.警方艰难的排查
格式为：中文黑体，加粗，3号字，无首行缩进，1.5倍行距

正文
首行缩进2字符，1.3倍行距，段前段后为0行，小四号字，宋体
图标和表格标题对应文件内容：图 1 名人的形象
格式：宋体，小五号
文中所有的文字颜色为黑色，所有的英语字母和数字字体为TIMES NEW ROMAN

===================
在word中需要一个宏实现如下的功能，虽然录制宏也可以，但是录制的过程中出来的代码特别的长，一点都不简洁，简单的一个命令就录制出来，有很多很多行
需要非常简单紧凑的宏代码，所以不知道有高人能写得出来不？
功能1        1，2，3级标题的字体分别为黑体，字体加粗
功能2        1，2，3级标题的字号分别为2号，3号，4号

功能3        所有的中文字体设置为宋体，字号为小四
功能4        所有的英文字母以及数字设置为TIMES NEW ROAMN字体

功能5        1级标题的行距为2倍；2，3级标题的行距为1.5倍
功能6        正文行距设置为1.3倍，段前段后的间距相同

功能7        正文首行缩进两个字符，1，2，3级别的标题无首行缩进，并且左对齐

功能8        图片和表格的标题字体为楷体，字号为小五（不知道能不能实现）
功能9        所有文字的颜色为黑色。

zmj9151

录宏修改一下就好

exln

zmj9151 发表于 2020-11-9 14:45
录宏修改一下就好

谢关注，关键不会啊

zmj9151

提供原文，模拟好结果，上附件

wangqh8203

Sub test()
Dim pa As Paragraph
For Each pa In Paragraphs
    If pa.Style = "标题 1" Then
        pa.Range.Font.ColorIndex = wdRed
        pa.Range.Font.Bold = True
        pa.Range.Font.Size = 20
        '其他的设置代码
    ElseIf pa.Style = "标题 2" Then
        '代码
    End If
Next
ActiveDocument.Content.Font.ColorIndex = wdBlack '所有字体为黑色
End Sub

exln

zmj9151 发表于 2020-11-9 16:37
提供原文，模拟好结果，上附件

好的，谢谢大神

exln

wangqh8203 发表于 2020-11-9 19:29
Sub test()
Dim pa As Paragraph
For Each pa In Paragraphs

谢谢参与，结果出错

wangqh8203

exln 发表于 2020-11-10 11:51
谢谢参与，结果出错

Sub test()
Dim pa As Paragraph
For Each pa In ActiveDocument.Paragraphs
    If pa.Style = "标题 1" Then
        pa.Range.Font.Name = "黑体" '字体
        pa.Range.Font.Size = 20 '字号
        pa.Range.Font.Bold = True '加粗
        pa.LineSpacingRule = wdLineSpaceDouble '行距
        '其他的设置代码
    ElseIf pa.Style = "标题 2" Then
        '代码
    End If
Next
ActiveDocument.Content.Font.ColorIndex = wdBlack '所有字体为黑色
End Sub

exln

wangqh8203 发表于 2020-11-10 12:53
Sub test()
Dim pa As Paragraph
For Each pa In ActiveDocument.Paragraphs

Sub test()
Dim pa As Paragraph
For Each pa In ActiveDocument.Paragraphs
    If pa.Style = "标题 1" Then
        pa.Range.Font.Name = "黑体"         '字体
        pa.Range.Font.Size = 20                 '字号
        pa.Range.Font.Bold = True         '加粗
        pa.LineSpacingRule = wdLineSpaceDouble                 '其他的设置代码
    ElseIf pa.Style = "标题 2" Then       
        pa.Range.Font.Name = "黑体"         '字体
        pa.Range.Font.Size =16         '字号
        pa.Range.Font.Bold = True         '加粗
        pa.LineSpacingRule = wdLineSpace1pt5 '行距   
ElseIf pa.Style = "标题3" Then       
        pa.Range.Font.Name = "黑体"         '字体
        pa.Range.Font.Size =12         '字号
        pa.Range.Font.Bold = True         '加粗
        pa.LineSpacingRule = wdLineSpace1pt3                '行距               
    End If
Next
ActiveDocument.Content.Font.ColorIndex = wdBlack '所有字体为黑色
End Sub
运行后，字体变成了等线

zmj9151

---------------------------