求教：如何用VBA实现“删除段首空格”...

各位大侠：

　　求教下列问题（在ｗｏｒｄ中）：

１、如何用VBA实现“删除段首空格”，不论全角半角空格；不论有多少个空格。

２、如何用VBA实现“在每段首行空两个全角空格”。

对于前一个问题，是每段仅段首有空格，还是段中也有空格，或者是段末也有空格？段首空格通常是会什么情况，如只在该段的第一行？还是无限制，可能该段落都是空格？如果全是空格，段落要不要？

如果第一个问题说明白了，第二个问题是很简单的。届时一并回答。

请参考以下代码：

Sub ReplSpace() Dim i As Paragraph, MyStart As Long Application.ScreenUpdating = False For Each i In ActiveDocument.Paragraphs MyStart = i.Range.Start Range(Start:=MyStart, End:=MyStart).Select Selection.EndKey Unit:=wdLine, Extend:=wdExtend With Selection .Find.ClearFormatting .Find.Replacement.ClearFormatting With .Find .Text = " " .Replacement.Text = "" '查找空格 .Forward = True .MatchByte = False '不区分半角全角 End With .Find.Execute Replace:=wdReplaceAll End With Next Application.ScreenUpdating = True End Sub Sub InsertSpace() Dim i As Paragraph For Each i In ActiveDocument.Paragraphs i.Range.InsertBefore "　　"'注意此处是两个全角空格,请在全角下输入此处. Next End Sub

守柔大侠：

　　太谢谢您了！

　　向您敬礼！！！