WPS宏代码F8运行的结果和F5运行的不一样，求解？

周先生1573

Sub 插入奇偶页码()
    Dim i
    With ActiveDocument
        '设置页面
        With .PageSetup
            .OddAndEvenPagesHeaderFooter = True
            .MirrorMargins = True
        End With
        '添加页码
        k = ActiveDocument.BuiltInDocumentProperties(14)
        For i = 1 To 3 Step 2
            With .Sections(1).Footers(i)
                With .PageNumbers
                    .NumberStyle = 0  '57
                    .RestartNumberingAtSection = False
                    .StartingNumber = 1
                End With
                .Range.Fields.Add .Range, 33
                With .Range
                    .InsertBefore Text:=ChrW(8212) & ChrW(32)
                    .Characters.Last.Previous.InsertAfter Text:=ChrW(32) & ChrW(8212)
                    With .Font
                        .Size = 14
                        .Name = "宋体"
                    End With
                    With .ParagraphFormat
                        If i = 1 Then
                            .Alignment = 2
                            .CharacterUnitRightIndent = 2
                        Else
                            .Alignment = 0
                            .CharacterUnitLeftIndent = 2
                        End If
                    End With
                End With
            End With
        Next
    End With
End Sub

注：WPS里面F8分步骤运行效果：— 1 —；F5一次性运行效果：— 1