我想用VBA编一段代码，删除word段前空格，以下是代码，调试的时候一直有问题。 哪位高手指教下，急

Question

For Each i In wddoc.Paragraphs '在活动文档的段落集合中循环
For n = 1 To i.Range.Characters.Count
i.Range.Collapse Direction:=wdCollapseStart
If i.Range.Characters(n).Text = " " Or i.Range.Characters(n).Text = "　" Then
i.Range.Characters(n).Delete Unit:=wdCharacter
Else: Exit For
End If
Next n
Next
一直无法删除段前空格，是怎么回事啊？

Answer 1

你这么急，为什么不用“查找”、“替换”呢，多简单：
在查找框输入括号内的内容（^p　)，替换为（^p），注意空格分半角和全角，要多次交换使用才能确保所有空格删除完毕。

Answer 2

For Each i In wddoc.Paragraphs '在活动文档的段落集合中循环
For n = 1 To i.Range.Characters.Count
i.Range.Collapse Direction:=wdCollapseStart
If i.Range.Characters(n).Text = " " Then
i.Range.Characters(n).Delete Unit:=wdCharacter
End If
Next n
Next