VBA之Word应用第五章第二节 Range对象的属性(一)

《VBA之Word应用》（版权10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。

这套教程是专门针对WORD VBA 的教程，是VBA中的稀缺资源，我给这套教程分归为中级教程，希望大家在VBA入门后再学习这套教程，这样会更加深入的理解面向对象编程的意义。

本套教程共三册十六章，今日内容为VBA之Word应用第五章第二节Range对象的属性（一）

【分享成果，随喜正能量】真正能给你撑腰的，是丰富的知识储备，足够的经济基础，持续的情绪稳定，可控的生活节奏，和那个打不败的自己。饮清净之茶，闭是非之口，真正的清静，是心安自在。

第五章第二节Range对象的属性（一）

大家好，我们在上一节讲解了什么是Range对象，并给大家展示了Range对象的一些应用方案，从这节开始我们仍是从对象的属性、方法讲解，并结合一些实例来给大家讲解具体的应用。

1Range.Bold 属性

如果这个属性设置为TRUE，则将Range范围的格式设置为加粗格式。

语法：expression.Bold

其中expression为一个表示 Range 对象的变量。

l这个属性返回true、false或wdUndefined ( true和False的混合)。可以设置为True, False, or wdToggle.

2Range.Case 属性

这个属性返回或设置一个WdCharacterCase常量, 该常量表示指定区域中的文本的大小写。

语法：expression. Case

其中expression为一个表示 Range 对象的变量。

l由于您选择或安装的语言支持不同（例如美国英语），上述部分常量可能无法使用。

WdCharacterCase 枚举值：

wdFullWidth 7全角。 用于日文字符。

wdHalfWidth 6半角。 用于日文字符。

wdHiragana 9平假名字符。 与日文文字一起使用。

wdKatakana 8片假名字符。 与日文文字一起使用。.

wdLowerCase 0小写

wdNextCase -1在大写、小写和句首字母大写之间切换.

wdTitleSentence4句首字母大写.

wdTitleWord 2标题字大写

wdToggleCase5在大写和小写之间切换

wdUpperCase1大写

3Range.Cells 属性

该属性返回一个Cells集合, 该集合代表区域中的表格单元格。 

语法：expression.Cells

其中：expression 一个表示 Range 对象的变量。

4实例：段落加粗的设置及表格添加

下面我们一个实例来讲解一下上面属性的应用，我们看下面的代码：

Sub mynzA()

ActiveDocument.Paragraphs(1).Range.Bold= True

ActiveDocument.Paragraphs.Add

SetmyTable = ActiveDocument.Tables.Add(Range:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range, _

NumRows:=3,NumColumns:=3, DefaultTableBehavior:=wdWord9TableBehavior)

i= 1

ForEach myce In myTable.Range.Cells

myce.Range.InsertAfter“单元格” & i

i= i + 1

Next

End Sub

代码截图：

代码解读：

1）ActiveDocument.Paragraphs(1).Range.Bold = True将当前文档第一段加粗

2）ActiveDocument.Paragraphs.Add当前文档增加一个段落

3）SetmyTable = ActiveDocument.Tables.Add(Range:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range, _

NumRows:=3,NumColumns:=3, DefaultTableBehavior:=wdWord9TableBehavior)

将最后的段落中添加一个3X3的表格。

lWdDefaultTableBehavior 是为了指定 Microsoft Word 是否要根据表格单元格的内容自动调整其大小（“自动调整”功能）我们可以指定下面的值。

wdWord8TableBehavior0禁用自动调整。 默认值。

wdWord9TableBehavior1启用”自动调整”功能。

4） i = 1

ForEach myce In myTable.Range.Cells

myce.Range.InsertAfter“单元格” & i

i= i + 1

Next

以上是在表格的每个单元格中插入些字符。

我们看代码的运行结果：

今日内容回向：

1什么是Word中Range对象的Bold属性、Cells 属性意义是什么？

2Word中如何插入表格，如何在单元格中插入字符？

本讲内容参考程序文件：Doc 005文档.docm

我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：