有用的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.Parag...
