word录制宏-插入页码-运行时错误5941，求大佬解决

周先生1573

batmanbbs 发表于 2023-6-27 21:05
知道Quicker不，直接安装我编写的动作吧

我试了，有时候你这个插件失灵，页码也插不进去

batmanbbs

周先生1573 发表于 2023-6-28 23:33
我试了，有时候你这个插件失灵，页码也插不进去

直接联系我呀

周先生1573

batmanbbs 发表于 2023-6-29 12:52
直接联系我呀

留一个呢，如何解决啊

batmanbbs

周先生1573 发表于 2023-6-30 21:23
留一个呢，如何解决啊

你不是安装了Quicker上我的动作了吗，菜单里面就有我的QQ号

周先生1573

batmanbbs 发表于 2023-6-30 21:34
你不是安装了Quicker上我的动作了吗，菜单里面就有我的QQ号

可以分享你的这个页码的代码吗

周先生1573

batmanbbs 发表于 2023-6-27 12:16

Sub 插入奇偶页码()
    Dim i As Byte
    With ActiveDocument
        '设置页面
        With .PageSetup
            .OddAndEvenPagesHeaderFooter = True
            .MirrorMargins = True
        End With
        '添加页码
        For i = 1 To 3 Step 2
            With .Sections(1).Footers(i)
                With .PageNumbers
                    .NumberStyle = wdPageNumberStyleArabic  'wdPageNumberStyleNumberInDash
                    .RestartNumberingAtSection = False
                    .StartingNumber = 1
                End With
                .Range.Fields.Add .Range, wdFieldPage
                With .Range
                    .InsertBefore Text:=ChrW(8212) & " "
                    .Characters.Last.Previous.InsertAfter Text:=" " & ChrW(8212)
                    With .Font
                        .Size = 14
                        .Name = "Times New Roman"
                    End With
                    With .ParagraphFormat
                        If i = 1 Then
                            .Alignment = wdAlignParagraphRight
                            .CharacterUnitRightIndent = 2
                        Else
                            .Alignment = wdAlignParagraphLeft
                            .CharacterUnitLeftIndent = 2
                        End If
                    End With
                End With
            End With
            Next i
            '清除讨厌的页眉横线
            .Styles("页眉").ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
            End With
End Sub

batmanbbs

周先生1573 发表于 2023-7-2 13:59
可以分享你的这个页码的代码吗

可以，我动作的代码都是公开的，安装动作之后，随便用随便看

385893066

周先生1573 发表于 2023-7-2 14:20
Sub 插入奇偶页码()
    Dim i As Byte
    With ActiveDocument

老师您好，我学习了您这段代码，但是有个地方不太明白，向您请教。就是“For i = 1 To 3 Step 2”这个循环的目的和作用是什么呢？

batmanbbs

385893066 发表于 2023-12-6 10:50
老师您好，我学习了您这段代码，但是有个地方不太明白，向您请教。就是“For i = 1 To 3 Step 2”这个循 ...

相当于奇数页（=1）和偶数页（=3）