|
本帖最后由 413191246se 于 2012-3-23 17:46 编辑
设置形如“一、”的段落为标题2的宏(工具菜单——自定义——宏——将Title2Auto拖曳到工具栏上应用):
[code=vb]
Sub Title2Auto()
Dim i As Paragraph, MyStr As String
MyStr = "一二三四五六七八九十"
For Each i In ActiveDocument.Paragraphs
If InStr(MyStr, ActiveDocument.Range(i.Range.Start, i.Range.Start + 1).Text) > 0 Then
If Mid(i.Range.Text, 2, 1) = "、" Or Mid(i.Range.Text, 3, 1) = "、" Or Mid(i.Range.Text, 4, 1) = "、" Then
If i.Range.Sentences.Count = 1 Then
If i.Range.Characters(i.Range.Characters.Count - 1) = "。" Then i.Range.Characters(i.Range.Characters.Count - 1).Delete
If i.Range.Characters(i.Range.Characters.Count - 1) = ":" Then i.Range.Characters(i.Range.Characters.Count - 1).Delete
i.Style = ActiveDocument.Styles(wdStyleHeading2)
Else
i.Range.Sentences(1).Select
With Selection.Font
.Color = wdColorRed
.Bold = True
.Name = "黑体"
.Name = "Times New Roman"
End With
End If
End If
End If
Next
End Sub
[/code]
|
|