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

《VBA之Word應用》，我推出的第八個教程，教程專門講解VBA在Word中的應用，以“面向對象編程”為中心，首先在Word中了解VBA的對象和對象的屬性、方法，然后通過實例感受Word VBA的妙處，本教程共3卷16章，今天5

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

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

1 Range。Tables屬性

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

語法：expression。Tables

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

2 Range。Underline屬性

返回或設置應用于一系列下劃線的類型。

語法：ex

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

3 Range。ShapeRange屬性

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

語法：ex

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

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

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

Sub mynzE()

[有關詳細代碼，請參閱教程]

End Sub

代碼屏幕截圖：

代碼解釋：

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

交流(3)。range . underline=wdunderlinedouble

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

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

WdUnderlineDash 7虛線。

WdUnderlineDashHeavy 23粗虛線。

WdUnderlineDashLong 39長劃線。

WdUnderlineDashLongHeavy 55長粗虛線。

在WdUnderlineDotDash 9點之間畫一條線。

WdUnderlineDotDashHeavy 25寬點相互劃線。

WdUnderlineDotDotDash 10點-點-虛線之間的模式。

WdUnderlineDotDotDashHeavy 26粗點-點-虛線之間的模式。

WdUnderlineDotted 4分。

WdUnderlineDottedHeavy 20粗點。

WdUnderlineDouble 3雙線。

WdUnderlineNone 0沒有下劃線。

WdUnderlineSingle 1單線。默認值。

WdUnderlineThick 6單線粗線。

WdUnderlineWavy 11單波浪線。

WdUnderlineWavyDouble 43雙波浪線。

WdUnderlineWavyHeavy 27粗波浪線。

WdUnderlineWords 2僅為一個單詞加下劃線。

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

Ac msoshaperectangle，50，50，100，200

Ac msoshaperectangle，150，150，100，200

Ac=_

RGB(255、0、25)

5)

以上代碼會添加兩個矩形圖形，關于圖形的添加我們會在以后講解到，msoShapeRectangle

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

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

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

Ac.Add

以上代碼添加一個新的段落

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

以上代碼是添加一個圖表

5）Num = 100

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

myCell.Range.Text = Num & " VBA"

Num = Num + 1

Next

以上代碼是在圖表的首列填上內容，

下面看代碼的運行情況：

今日內容回向：

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

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

本講內容參考程序文件：Doc 005文檔.docm

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

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