同样的代码在word和wps运行的结果不一样，求解？

周先生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



注：word出来的效果：— 1 —；wps出来的效果：— 1

batmanbbs

正常，因为WORD和WPS执行VBA是有差异的，所以要同时兼容WORD和WPS还是一件很考验人的事情，需要进行不同的测试和实验。

楼主的问题我遇到过，因为我编写动作是兼容WORD和WPS，发现很多同样代码但是在WORD和WPS执行结果不一样的问题。楼主遇到的问题只是其中一个。经过测试，WPS好像对last属性不兼容，因此必须使用count来计算。
我的代码：                    .Characters(.Characters.Count).InsertBefore "—"