切换页码外侧内侧（宏）

413191246se

杜先生 及各位朋友：
    工作中，为了省纸，现在经常要双面打印，所以用到了《插入页码--位置：外侧》，有时又要《插入页码--位置：内侧》。
    为了方便，我录制个宏，目的是插入页码，页码位置是外侧；又录制一次，页码位置是内侧。
    我想将《插入页码》这个宏做成《切换按钮》，可以在外侧<=>内侧<=>外侧<=>内侧……之间反复切换，但我却做不成（切换标题副标题我会），请 杜先生 及各位朋友 帮下忙，谢谢！

代码如下：
  
'外侧
    Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
        wdAlignPageNumberOutside, FirstPage:=True
'内侧
    Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
        wdAlignPageNumberInside, FirstPage:=True

02761752696

试试    吧
Public k
Sub 切换()
If k = False Then
  k = True
'外侧
    Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
        wdAlignPageNumberOutside, FirstPage:=True
Else
'内侧
    Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
        wdAlignPageNumberInside, FirstPage:=True
k = False
End If
End Sub

413191246se

楼上朋友：
    谢谢！但是运行无效！

413191246se

问题并未解决……

02761752696

413191246se 发表于 2017-12-8 19:33
楼上朋友：
    谢谢！但是运行无效！

切换肯定是没有问题的，你的代码我没试，不清楚
你可以把你的代码注释掉试一试看看   
无效应该是你的代码问题
我手机测试不了

jiminyanyan

测试了一下,代码没有问题.......

lpzxhjp

为什么要切换呀？页边距设置为“对称页边距”不就可以了吗？

413191246se

双面打印，有时第一页单独打，有时双面打，故需要切换。如果设为居中，就不需要切换了，也可以用菜单插入页码来搞定。