如何用vba单独设置word页面的纸张方向？

您所在的位置：网站首页 › vba如何控制打印设置页面 › 如何用vba单独设置word页面的纸张方向？

如何用vba单独设置word页面的纸张方向？

2024-07-06 19:53| 来源: 网络整理| 查看: 265

如何用vba单独设置word页面的纸张方向？ 2019年6月26日作者：水星Excel 7,338 次浏览暂无评论

要用vba设置word文档的页面纸张方向为横向还是纵向，需要用到PageSetup对象。

在word vba中Document 、Range、Selection、Section 对象均可以返回PageSetup对象。

要设置页面的纸张方向需要设置PageSetup对象的Orientation属性。

以下VBA代码举例说明了如何在word文档中插入一个空白页，并且设置空白页的页面纸张方向:

Sub QQ1722187970() Word.Selection.InsertNewPage With Word.Selection.PageSetup '横向 .Orientation = wdOrientLandscape ' 纵向 .Orientation = wdOrientPortrait End With End Sub

用上述方法虽然设置了纸张方向，但是会把所有页的纸张方向都统一设置。

为了实现只单独设置某张的纸张方向，需要插入分节符，代码如下：

Sub QQ1722187970() '当前位置插入一个分节符 Word.Selection.InsertBreak wdSectionBreakNextPage '继续插入一个分节符 Word.Selection.InsertBreak wdSectionBreakNextPage '定位到中间的页面 Word.Selection.Move wdSection, -1 With Word.Selection.PageSetup .Orientation = wdOrientLandscape End With End Sub 其它相关文章推荐：如何用vba在word文档的开头或结尾插入任意的空白页？如何用vba定位word表格的单元格，并且删除单元格中的特定字符？如何用vba选中word表格中行、列、单元格？如何用vba在空白的word文档中逐段落的添加文本内容？如何用vba在word中快速移动或选中内容区域？如何用vba将excel工作表的打印设置为横向或纵向？分类 : VBA , WORD VBA 标签 : InsertNewPage , Orientation , PageSetup , wdOrientLandscape , wdOrientPortrait , wdSectionBreakNextPage , 横向 , 纵向 , 纸张方向

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。

【本文地址】

如何用vba单独设置word页面的纸张方向？

如何用vba单独设置word页面的纸张方向？

今日新闻

推荐新闻