常用WORD-VBA代码.docVIP

有用的WORD VBA代码 1、删除空格 * +++++++++++++++++++++++++++++++++++++++ 功能简介:删除空格 * ---------------------------------------- Sub 删除空格() Dim FindChar As String, Fcount As Integer, RepChar As String On Error Resume Next Application.ScreenUpdating = False 关闭屏幕更新 FindChar = RepChar = With ActiveDocument.Content.Find 此处针对全文档 Do While .Execute(findtext:=FindChar) = True 如果发现 Fcount = Fcount + 1 计数器 Loop If MsgBox(文档中共发现了 Fcount 个 FindChar vbCrLf _ ,按Yes键将进行下一步的替换工作,按No取消, vbYesNo + vbInformation) = vbYes Then .Execute findtext:=FindChar, Wrap:=wdFindContinue, replacewith:=RepChar, Replace:=wdReplaceAll End If End With Application.ScreenUpdating = True 恢复屏幕更新 End Sub 2、段首空格删除 第一种 * +++++++++++++++++++++++++++++++++++++++ 功能简介:删除段首空格 *----------------------------------------- Sub 删除段首空格1() Selection.WholeStory CTR+A Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter CTR+E Selection.ParagraphFormat.Reset CTR+Q End Sub 第二种 * +++++++++++++++++++++++++++++++++++++++ 功能简介:删除段首空格 * ---------------------------------------- Sub 删除段首空格2() Dim i As Paragraph, n As Long Application.ScreenUpdating = False 关闭屏幕刷新 For Each i In ActiveDocument.Paragraphs 在活动文档的段落集合中循环 For n = 1 To i.Range.Characters.Count If i.Range Like * _ Or i.Range Like 　* Then i.Range.Characters(1).Delete Else: Exit For End If Next n Next Application.ScreenUpdating = True 恢复屏幕刷新 End Sub 第三种 * +++++++++++++++++++++++++++++++++++++++ 功能简介:删除段首空格 * ---------------------------------------- Sub 删除段首空格3() Dim i As Paragraph, n As Long Application.ScreenUpdating = False 关闭屏幕刷新 For Each i In ActiveDocument.Paragraphs 在活动文档的段落集合中循环 For n = 1 To i.Range.Characters.Count If i.Range.Characters(1).Text = _ Or i.Range.Characters(1).Text = 　 Then