利用Section对象的方法及属性完成页面设置

2023-06-01 0 631

【撷取丰硕成果,Q1566A正能量】事事千万别太过强求,出现了就选着拒绝接受,千万别太过全然,即使,在我看来最合适的精心安排!。

《VBA之Word应用领域》,是我面世第七套讲义,讲义是专门针对传授VBA在Word中的应用领域,紧紧围绕“面向对象编程”传授,具体来说让他们重新认识Word中VBA的第一类,和第一类的特性、方式,接着透过示例让他们感受到Word VBA 的诀窍。热购讲义共两卷第十卷,本周一文本第六章: Sections第一类和Section第一类的第2节:借助Section第一类的方式及特性顺利完成页面设置

利用Section对象的方法及属性完成页面设置

第一节 Sections第一类的特性和方式

他们好,他们竭尽全力Sections第一类的特性的传授,前序的文本中他们自学了Sections第一类的Count 特性、First 特性、Last 特性,在这节中他们会自学到Sections第一类的PageSetup 特性、Add 方式、Item 方式。

1 Sections.PageSetup 特性

那个特性返回两个PageSetup第一类,该第一类与选定的文件格式、地区、节、节的子集或选取文本密切相关。

句法:expression.PageSetup

当中expression 是须要的。两个代表者”Sections”子集的表达式。

2 Sections.Add 方式

那个特性方式回到两个Section第一类,该第一类代表者加进到文件格式中的新节。

句法:expression.Add(Range Start)

当中expression 是须要的。两个代表者”Sections”子集的表达式。

模块:

1)Range可选Variant要在其之前插入分节符的地区。如果省略该模块,则将分节符插至文件格式末尾。

2)Start可选Variant要加进的分节符的类型。可以是 WdSectionStart 常量之一。如果省略此模块,则加进的下一页分节符。

WdSectionStart 枚举值:

1)wdSectionContinuous 0“连续”分节符。

2)wdSectionEvenPage3“偶数页”分节符.

3)wdSectionNewColumn1“新栏”分节符.

4)wdSectionNewPage2“新页”分节符.

5)wdSectionOddPage4“奇数页”分节符.

3 Sections.Item 方式

那个方式回到子集中的单个 Section 第一类。

句法:expression.Item (Index)

当中expression 是须要的。两个代表者”Sections”子集的表达式。

模块:

1)Index须要Long要回到的单个第一类。可以是Long ,表示单个第一类的序号位置。

4示例:节页面的设置及新节的插入

这节给他们传授两个示例,那个示例中会借助Section 第一类的方式及特性顺利完成页面设置及新节的插入。他们看下面的代码:

Sub mynzA()

将当前活动文件格式的第一节的装订线设置为36磅(0.5英寸)

ActiveDocument.Sections.Item(1).PageSetup.Gutter =36

在当前活动文件格式第2段之前加进两个””连续””的分节符。

Set myRange = ActiveDocument.Paragraphs(3).Range

ActiveDocument.Sections.Add Range:=myRange, Start:=wdSectionContinuous

End Sub

代码截图:

利用Section对象的方法及属性完成页面设置

代码运行前:

利用Section对象的方法及属性完成页面设置

代码运行后:

利用Section对象的方法及属性完成页面设置

本周一文本回向:

1 Word中Sections第一类的PageSetup 特性、Add 方式、Item 方式的意义是什么?

2如何借助VBA设置节的页面及插入新的节?

本讲文本参考程序文件:Doc 008文件格式.docm

利用Section对象的方法及属性完成页面设置

我20多年的VBA实践经验,全部浓缩在下面的各个讲义及应用领域工具中:

利用Section对象的方法及属性完成页面设置
利用Section对象的方法及属性完成页面设置
利用Section对象的方法及属性完成页面设置

【撷取丰硕成果,Q1566A正能量】走到山穷水尽处,坐看云起云涌,把每一天,过得极致,用得极致,活得极致。。

相关文章

发表评论
暂无评论
官方客服团队

为您解决烦忧 - 24小时在线 专业服务