作业：
a = 0
FS = 5
For Each char In ThisDocument.Paragraphs（4）.Range.Characters
If a = 0 And FS < 20 Then
FS = FS + 1
Else
a = 1
If a = 1 And FS > 5 Then
FS = FS - 1
Else
a = 0
End If
End If
char.Font.Size = FS
Next
a = 0
FS = 5
For Each char In ThisDocument.Paragraphs（4）.Range.Characters
If a = 0 And FS < 20 Then
FS = FS + 1
Else
a = 1
If a = 1 And FS > 5 Then
FS = FS - 1
Else
a = 0
End If
End If
char.Font.Size = FS
Next
本站有权保留或删除有争议评论。 参与本评论即表明您已经阅读并接受上述条款。