我想用vba的replace函数把word中段前段后空格去掉，需要怎么办啊？急！！求高手指点。

Question

Dim mrange As Range
Dim a As String
Set mdoc = ActiveDocument
For Each mpara In mdoc.Paragraphs
Set mrange = mpara.Range
a = mrange.Text
If Len(a) > 2 Then
mrange.Text = Replace(a, "^p ", "^p")
end if
Next
End Sub
用了这个函数，结果运行的时候死机了。。。求指教

Answer 1

用错函数了吧!
建议用TRIM函数试一下.
希望能够帮到你!