为Word当前文档每个段落前加2个全角空格

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