请缩写一个删除段首空格的宏，其他空格不能删除。
假定一个中英言混合的网页要删除段首的所有空格， 只要是段首的，无论多少空格全部删除。 而非段首的空格不要删除，请帮忙写一个宏。 非段首的我已经有宏能处理了。 谢谢！
Sub a() Dim a, b, c Selection.HomeKey Unit:=wdStory Do a = Asc(Selection) c = Selection.MoveRight(, 1) b = Asc(Selection) If a = 13 And (b = 32 Or b = -24159) Then Selection.Delete 1 Selection.MoveLeft 1 End If If c = 0 Then Exit Do Loop End Sub
答：可以用替换： 1、查找:空格 替换：不填 点全部替换，所有空格将被删除 2、查找：两空格 替换：一空格 多点几次全部替换，空格会被替换为一个详情>>
