TO 果果:
我不是表扬你,这种文档一般不可以拿出来的。你不但连样式设置一塌糊涂,连格式/项目符目与编号中的多级编号都不用,感觉特不爽!
这是我目前为止见到的最为极端的例子,看来果果版主要多来WORD版上交流。
我草草做了一个(VBA),修正了其中大部分的样式,可能有遗漏,只能做为一个教材,供参考:
Sub Example()
Dim i As Paragraph, MyStr As String
Application.ScreenUpdating = False
MyStr = "一二三四五六七八九十"
For Each i In Me.Paragraphs
If i.Range Like "(#)*" = True Then
i.Style = wdStyleHeading9
GoTo H
ElseIf i.Range Like "#.#.#.#*" = True Then
i.Style = wdStyleHeading8
GoTo H
ElseIf i.Range Like "#.#.#*" = True Then
i.Style = wdStyleHeading7
GoTo H
ElseIf i.Range Like "#.#*" = True Then
i.Style = wdStyleHeading6
GoTo H
ElseIf InStr(MyStr, Me.Range(i.Range.Start, i.Range.Start + 1).Text) > 0 Then
i.Style = wdStyleHeading5
Else
i.Style = wdStyleNormal
End If
H:
Next
Application.ScreenUpdating = True
End Sub
目录的格式也未经人为设置。
eWMuRm1M.zip
(52.96 KB, 下载次数: 61)
[此贴子已经被作者于2004-11-11 14:22:33编辑过] |