在Word

时间:2019-05-15 03:35:49

标签: vba ms-word

我正在设置一组“样板” Word文档。 所有文档的奇数页和偶数页都有不同的页脚。 页脚左右偏斜,因此双面打印将始终在页面的拇指边缘显示重要信息。 文档打印默认为双面,因此选中了页眉/页脚“奇数页和偶数页”。

但是,有时用户会希望打印单面。 无需选中该框。

每个文档都包含一个用于管理功能的UserForm(导入文档变量等的外部值) 我想通过一对选项按钮控制UserForm中的“页脚奇数和偶数页数”功能。

我搜索了多个站点均无济于事。

我得到的最接近的是OddAndEvenPagesHeaderFooter帮助主题中的示例代码:

Set myDoc = Documents("Document1") 
myDoc.PageSetup.OddAndEvenPagesHeaderFooter = True 
With myDoc.Sections(1) 
    .Headers(wdHeaderFooterPrimary).Range _ 
    .InsertAfter "Odd Header" 
    .Headers(wdHeaderFooterEvenPages).Range _ 
    .InsertAfter "Even Header" 
End With

但是我不想创建页脚。我只想在真与假之间切换PageSetup.OddAndEvenPagesHeaderFooter

我尝试了这个“精简版”:

'Set OddFootersOnly
With ActiveDocument.PageSetup
    .OddAndEvenPagesHeaderFooter = False
End With

我收到以下错误消息

  

运行时错误:“ 4608”:值超出范围

0 个答案:

没有答案