切换页码外侧内侧（宏）

413191246se · 发表于 2017-12-8 19:15

本帖最后由 413191246se 于 2017-12-9 09:05 编辑

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

代码如下：

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

02761752696 · 发表于 2017-12-8 19:26

试试吧
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 · 发表于 2017-12-8 19:33

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

413191246se · 发表于 2017-12-9 08:59

本帖最后由 413191246se 于 2017-12-9 09:06 编辑

问题并未解决……

02761752696 · 发表于 2017-12-9 09:09

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

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

jiminyanyan · 发表于 2017-12-9 10:23

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

lpzxhjp · 发表于 2017-12-10 00:31

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

413191246se · 发表于 2017-12-12 19:23

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

		自动登录	找回密码
密码			免费注册

[求助] 切换页码外侧内侧（宏）