Word VBA实例.docVIP

Word VBA实例 空白段落的删除: 功能简介:可以对指定长度的段落进行删除，当LEN=1 时可对空白段落进行删除。 Sub DelBlank() Dim i As Paragraph, n As Long Application.ScreenUpdating = False 关闭屏幕刷新 For Each i In ActiveDocument.Paragraphs 在活动文档的段落集合中循环 If Len(i.Range) = 1 Then 判断段落长段,此处可根据文档实际情况 i.Range.Delete 进行必要的修改可将任意长度段落删除 n = n + 1 计数 End If Next MsgBox 共删除空白段落 n 个! Application.ScreenUpdating = True 恢复屏幕刷新 End Sub 以指定字符重新划分段落并插入时间序列数 Sub CreateParagraph() Dim I As Long, N As Integer On Error Resume Next 忽略错误 Application.ScreenUpdating = False 关闭屏幕更新 With ActiveDocument 将文档中所有段落标记删除 .Content.Find.Execute FindText:=^p, ReplaceWith:=, Replace:=wdReplaceAll For I = 0 To .Content.End Step 10 以10 个字符位置(包括非打印字符)为步长循环 每段十个字符部分分成段落(注意插入的段落标记也是一个字符) .Range(I, I + 10 + N).InsertAfter Chr(13) N = N + 1 计算插处的段落标记个数 Next End With Application.ScreenUpdating = True 恢复屏幕更新 InsertTimer End Sub Sub InsertTimer() Dim I As Paragraph, N As Integer, TimeStr As String On Error Resume Next 忽略错误 Application.ScreenUpdating = False 关闭屏幕更新 For Each I In ActiveDocument.Paragraphs 在文档新的段落中循环 If N 10 Then 10,TimeStr的分钟值为5(保持两位数05) TimeStr = [00:0 N .00] ElseIf N = 60 Then N=60 时时间数进一并保持该数据(不再向上) TimeStr = [01:00.00] N = 0 Else TimeStr的分钟数照计(两位数) TimeStr = [00: N .00] End If I.Range.InsertBefore TimeStr 每个段前插入时间数值 N = N + 5 以5 为步长累加 Next Application.ScreenUpdating = True 恢复屏幕更新 End Sub 段落样式与格式的应用 功能简介:由于手动录入的段落编号不能被WORD 所识别,为以后的样式与格式的设置 以及目录索引等带来一系列的问题,本代码即是将其转换为指定样式的过程. Sub Sample() 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 标题9 是以（1）等开头的数字 ElseIf i.Range Like #.#.#.#* = True Then i.Style = wdStyleHeading8 标题8 是以1.1.1.1 的形式开头的段落 ElseIf i.Range Like #.#.#* = True Then i.Style = wdStyleHeading7 标题7 是以1.1.1 的形式开头的段落 ElseIf i.Range Like #.#* = True Then i.Style = wdStyleHeading6 标题6 是以1.1 形式开头的段落 ElseIf InStr(MyStr, Me.Range(i.Range.Start, i.Range.Start + 1).Text) 0 Then i.Style = wdSt