我不是 VBA 专家,但我正在尝试做一些非常简单的事情。我正在尝试从 Word 文档中的每个段落中删除前导空格。
这是我的 VBA 代码:
Function RemoveLeadingSpaces()
Dim apara As Paragraph
Application.ScreenUpdating = False
For Each apara In ActiveDocument.Paragraphs
'apara.Range.Text = Trim(apara.Range.Text)
Debug.Print apara.Range.Text
Next apara
Application.ScreenUpdating = True
End Function
当我取消注释替换文本的行时,我开始遇到一些奇怪的行为。循环变得无限,并且只会一遍又一遍地应用/替换第一个项目/段落。如果我注释,则调试会按预期打印所有段落。
我做错什么了?