无码人妻在线一区二区三区免费,国产精品嫩草影院入口一二三

《VBA 之 Word 應(yīng)用》，是我推出第八套教程，教程是專門講解 VBA 在 Word 中的應(yīng)用，圍繞“面向?qū)ο缶幊獭敝v解，首先讓大家認(rèn)識(shí) Word 中 VBA 的對(duì)象，以及對(duì)象的屬性、方法，然后通過實(shí)例讓大家感受到 Word VBA 的妙處。本套教程共三冊(cè)十六章，今日內(nèi)容是第五章“Word 中的 Range 對(duì)象（上）”第 2 節(jié)：段落字體加粗設(shè)置及添加表格。

第二節(jié) Range 對(duì)象的屬性（一）
大家好，我們?cè)谏弦还?jié)講解了什么是 Range 對(duì)象，并給大家展示了 Range 對(duì)象的一些應(yīng)用方案，從這節(jié)開始我們?nèi)允菑膶?duì)象的屬性、方法講解，并結(jié)合一些實(shí)例來(lái)給大家講解具體的應(yīng)用。
1 Range.Bold 屬性
如果這個(gè)屬性設(shè)置為 TRUE，則將 Range 范圍的格式設(shè)置為加粗格式。
語(yǔ)法：expression.Bold
其中 expression 為一個(gè)表示 Range 對(duì)象的變量。

這個(gè)屬性返回 true、false 或 wdUndefined ( true 和 False 的混合) 。可以設(shè)置為 True, False, or wdToggle.

2 Range.Case 屬性
這個(gè)屬性返回或設(shè)置一個(gè) WdCharacterCase 常量, 該常量表示指定區(qū)域中的文本的大小寫。
語(yǔ)法：expression. Case
其中 expression 為一個(gè)表示 Range 對(duì)象的變量。

由于您選擇或安裝的語(yǔ)言支持不同（例如美國(guó)英語(yǔ)），上述部分常量可能無(wú)法使用。

WdCharacterCase 枚舉值：
wdFullWidth 7 全角。用于日文字符。
wdHalfWidth 6 半角。用于日文字符。
wdHiragana 9 平假名字符。與日文文字一起使用。
wdKatakana 8 片假名字符。與日文文字一起使用。.
wdLowerCase 0 小寫
wdNextCase -1 在大寫、小寫和句首字母大寫之間切換.
wdTitleSentence 4 句首字母大寫.
wdTitleWord 2 標(biāo)題字大寫
wdToggleCase 5 在大寫和小寫之間切換
wdUpperCase 1 大寫
3 Range.Cells 屬性
該屬性返回一個(gè) Cells 集合, 該集合代表區(qū)域中的表格單元格。
【段落字體加粗設(shè)置及添加表格字體加粗怎么設(shè)置的】 語(yǔ)法：expression.Cells
其中：expression 一個(gè)表示 Range 對(duì)象的變量。
4 實(shí)例：段落加粗的設(shè)置及表格添加
下面我們一個(gè)實(shí)例來(lái)講解一下上面屬性的應(yīng)用，我們看下面的代碼：
Sub mynzA()
[代碼詳細(xì)見教程]
End Sub
代碼截圖：

代碼解讀：
1）ActiveDocument.Paragraphs(1).Range.Bold = True 將當(dāng)前文檔第一段加粗
2）ActiveDocument.Paragraphs.Add 當(dāng)前文檔增加一個(gè)段落
3） Set myTable = ActiveDocument.Tables.Add(Range:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range, _
NumRows:=3, NumColumns:=3, DefaultTableBehavior:=wdWord9TableBehavior)
將最后的段落中添加一個(gè) 3X3 的表格。

WdDefaultTableBehavior 是為了指定 Microsoft Word 是否要根據(jù)表格單元格的內(nèi)容自動(dòng)調(diào)整其大?。ā白詣?dòng)調(diào)整”功能）我們可以指定下面的值。

wdWord8TableBehavior 0 禁用自動(dòng)調(diào)整。默認(rèn)值。
wdWord9TableBehavior 1 啟用”自動(dòng)調(diào)整”功能。
4） i = 1
For Each myce In myTable.Range.Cells
myce.Range.InsertAfter “單元格” & i
i = i + 1
Next
以上是在表格的每個(gè)單元格中插入些字符。
我們看代碼的運(yùn)行結(jié)果：