[分享成果，喜悅和正能量]追隨所有緣分稱為解脫。不執(zhí)著，不攀登，苦樂完全取決于自己。不能貪圖任何東西，一旦喜歡就執(zhí)著于那里，就不要被打擾?？慈耸呛萌耍词虑槭呛檬?，看環(huán)境是好環(huán)境，一切都是自己的心。

《VBA之Word應(yīng)用》，我推出的第八個(gè)教程，教程專門講解VBA在Word中的應(yīng)用，以“面向?qū)ο缶幊獭睘橹行?，首先在Word中了解VBA的對象和對象的屬性、方法，然后通過例子感受Word VBA的妙處，本教程共3卷16章，今天第5章。

第6節(jié)Range對象屬性(5)

大家好，我將繼續(xù)解釋Range對象的屬性。本節(jié)的內(nèi)容是Range屬性的最后一節(jié)。本章中的Range對象是了解Word VBA的重要內(nèi)容。我們要特別把握。

1 Range。Tables屬性

該屬性返回表示指定區(qū)域中所有表的tables集合。

語法：expression。Tables

其中expression是表示Range對象的變量。

2 Range。Underline屬性

返回或設(shè)置應(yīng)用于一系列下劃線的類型。

語法：ex

其中expression是表示Range對象的變量。

3 Range。ShapeRange屬性

這個(gè)屬性會(huì)傳回代表指定區(qū)域中所有Shape物件的ShapeRange集合。

語法：ex

其中expression是表示Range對象的變量。

圖形范圍可以包括圖形、圖形、圖片、OLE對象、ActiveX控件、文字對象和標(biāo)注。4示例：添加下劃線、添加圖表、添加圖形顏色

例如，為當(dāng)前活動(dòng)文檔中的一段加下劃線，為當(dāng)前文檔添加表，為表添加文本，最后為當(dāng)前文檔添加兩個(gè)圖形，為圖形添加顏色。現(xiàn)在讓我們看一下代碼。

Sub mynzE()

[有關(guān)詳細(xì)代碼，請參閱教程]

End Sub

代碼屏幕截圖：

代碼解釋：

' 1)'在文件的第三段加上雙下劃線

交流(3)。range . underline=wdunderlinedouble

上面的代碼為當(dāng)前文檔的第三段添加雙下劃線，wdUnderlineDouble添加雙下劃線。

讓我們看一下WdUnderline的枚舉值。

WdUnderlineDash 7虛線。

WdUnderlineDashHeavy 23粗虛線。

WdUnderlineDashLong 39長劃線。

WdUnderlineDashLongHeavy 55長粗虛線。

在WdUnderlineDotDash 9點(diǎn)之間畫一條線。

WdUnderlineDotDashHeavy 25寬點(diǎn)相互劃線。

WdUnderlineDotDotDash 10點(diǎn)-點(diǎn)-虛線之間的模式。

WdUnderlineDotDotDashHeavy 26粗點(diǎn)-點(diǎn)-虛線之間的模式。

WdUnderlineDotted 4分。

WdUnderlineDottedHeavy 20粗點(diǎn)。

WdUnderlineDouble 3雙線。

WdUnderlineNone 0沒有下劃線。

WdUnderlineSingle 1單線。默認(rèn)值。

WdUnderlineThick 6單線粗線。

WdUnderlineWavy 11單波浪線。

WdUnderlineWavyDouble 43雙波浪線。

WdUnderlineWavyHeavy 27粗波浪線。

WdUnderlineWords 2僅為一個(gè)單詞加下劃線。

2)添加兩個(gè)填滿“紫色”的正方形

Ac msoshaperectangle，50，50，100，200

Ac msoshaperectangle，150，150，100，200

Ac=_

RGB(255、0、25)

5)

以上代碼會(huì)添加兩個(gè)矩形圖形，關(guān)于圖形的添加我們會(huì)在以后講解到，msoShapeRectangle

是指矩形，后面跟的四個(gè)數(shù)值分別指圖形的位置Left, Top大小Width,Height。

添加圖形后給圖形添加上紫色RGB(255, 0, 255)，大家要注意添加顏色的寫法： Ac

3） '添加圖表，圖表的第一列填上數(shù)據(jù)

Ac.Add

以上代碼添加一個(gè)新的段落

4） Set myTable = Ac(Range:=Ac(Ac.Count).Range, NumRows:=3, NumColumns:=3, DefaultTableBehavior:=wdWord9TableBehavior)

以上代碼是添加一個(gè)圖表

5）Num = 100

For Each myCell In Ac(1).Columns(1).Cells

myCell.Range.Text = Num & " VBA"

Num = Num + 1

Next

以上代碼是在圖表的首列填上內(nèi)容，

下面看代碼的運(yùn)行情況：

今日內(nèi)容回向：

1 什么是Word中Range對象的Tables屬性、Underline屬性、ShapeRange屬性的意義是什么？

2 如何設(shè)置段落的圖表、圖形及下劃線？

本講內(nèi)容參考程序文件：Doc 005文檔.docm

我20多年的VBA實(shí)踐經(jīng)驗(yàn)，全部濃縮在下面的各個(gè)教程中：

【分享成果，隨喜正能量】人生有更多美好的東西在等待我們，對他人不指責(zé)，不計(jì)較，其實(shí)也是放過了自己。糾纏你的是你的執(zhí)著和猜疑，解放你的只有你的輕松與放手。一個(gè)人如果不能從內(nèi)心去原諒別人，那他就永遠(yuǎn)不會(huì)心安理得。