作業(yè)：
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
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭(zhēng)議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。