Sub 自动加空格()
'
' 本程序为发送网络信息而编制,宏运行后,将删除当前文章内所有的全半角空格,并为每个段落加上两个全角空格
'删除所有半角空格
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'删除所有全角空格
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'此行将光标定位到第一行,为每个段落加空格
Selection.HomeKey Unit:=wdStory
For i = 0 To ActiveDocument.ActiveWindow.Document.BuiltInDocumentProperties(wdPropertyParas)
Selection.TypeText Text:=" "
Selection.MoveDown Unit:=wdParagraph, Count:=1
Next i
End Sub