[分享成果,喜悦和正能量]得到需要的东西是福。追求太多很累。人生的需求就像吃饭一样。只能吃两碗饭量。贪图食物的香气,不仅能多吃两碗,反而会因为胃承受不了而造成痛苦。可见,得到不一定是快乐,也不一定是享受。不要和别人比较,要学会不贪婪、不奢侈、和平、知足。幸福谚语。
《VBA之Word应用》,我推出的第八个教程,教程专门讲解VBA在Word中的应用,以“面向对象编程”为中心,首先在Word中了解VBA的对象和对象的属性、方法,然后通过实例感受Word VBA的妙处,本教程共3卷16章,今天的内容是
第二节范围对象属性(1)
你好,上一节解释了什么是Range对象,并展示了Range对象的一些应用程序。从这一节开始,我们仍然结合对象的属性、方法说明和一些例子来说明具体的应用程序。
1 Range。Bold属性
如果将此属性设置为TRUE,则Range范围的格式设置为粗体。
语法:ex
其中expression是表示Range对象的变量。
此属性返回true、false或wdUndefined (true和False的混合)。可以设置为True、false或wdtoggle.2range.case属性
此属性返回或设置表示指定区域中文本大小写的WdCharacterCase常量。
语法:expression。Case
其中expression是表示Range对象的变量。
由于选择或安装的语言支持不同(例如美国英语),上述某些常量可能不可用。WdCharacterCase枚举值:
Wd总宽度7个字宽。用于日语字符。
WdHalfWidth 6半角。用于日语字符。
WdHiragana 9平假名文字。与日语字符一起使用。
WdKatakana 8片假名字符。与日语字符一起使用。
WdLowerCase 0小写
WdNextCase -1将大写、小写和句子的第一个字母切换为大写。
WdTitleSentence四句的首字母大写。
WdTitleWord 2标题大写
WdToggleCase 5在大写和小写之间切换
WdUpperCase 1大写字母
3 Range。Cells属性
此属性返回表示区域中表单元格的Cells集合。
语法:ex
其中expression是表示Range对象的变量。
4示例:段落粗体设置和添加表
让我举一个以上属性应用的例子。让我们看一下下面的代码。
Sub mynzA()
[有关代码的详细信息,请参阅教程]
End Sub
代码屏幕截图:
代码解释:
1)Ac(1).Range.Bold=True将当前文档的第一段加粗
2)交流。Add将段落添加到当前文档中
3)set my table=AC(range :=AC(AC . count))。range,_
Numrows:=3、numcolumns:=3、defaulttablebehavior :=wd word 9 table behavior)
在最后一段添加3X3表。
WdDefaultTableBehavior旨在指定Microsoft Word是否根据表格单元的内容自动调整大小(自动调整功能)。可以指定以下值:WdWord8TableBehavior 0禁用自动协调。默认值。
WdWord9TableBehavior 1启用“自动协调”功能。
4) I=1
for each myce in mytable . range . cells
Myce。Range.InsertAfter“单元格”I
I=I 1
next
上面是在表格的每个单元格中插入文字。
我们看代码的执行结果。
今天的内容返回:
1 Word中Range对象的Bold属性是什么,Cells属性的含义是什么?
2如何在Word中插入表格,如何在单元格中插入文字?
本课程内容参考计划文件:Doc 005文档。docm
我有20多年的VBA实践经验,全部集中在下一个教程中。