For Each para As Range In doc.Paragraphs语法错误

jlwsb

Sub MergeParagraphs()
    Dim doc As Document
    Set doc = ActiveDocument

    ' 对整篇文档进行检查，如果某段落结尾没有标点符号，则合并此段落和下一段落
    For Each para As Range In doc.Paragraphs
        If para.Range.Information.InStr(1, Chr(32) & Chr(33)) = 0 Then
            para.Range.ParagraphFormat.SpaceBefore = 0
            para.Range.ParagraphFormat.SpaceAfter = 0
        End If
    Next para

End Sub


运行这段代码，就会出现 语法错误，提示是这句
For Each para As Range In doc.Paragraphs


请问如何改正？

vbee

For Each para In doc.Paragraphs
就行了

jlwsb

vbee 发表于 2023-7-5 10:34
For Each para In doc.Paragraphs
就行了

删了。
出现如下提示

运行时错误450
错误的参数号或无效的属性赋值

vbee

WORD 没有问题，WPS 请另找高手

batmanbbs

哪来的代码，乱七八糟，东拼西凑的