欧美性猛99久久99,欧美日韩国产一区二区三区地区

文章插圖
【分享成果，隨喜正能量】根本沒有那條“更好的路”，只有一條路，就是你選擇的那條路。關(guān)鍵是，你要勇敢地走上去，而且要堅(jiān)持走下去。。
《VBA之Word應(yīng)用》，是我推出第八套教程，教程是專門講解VBA在Word中的應(yīng)用，圍繞“面向?qū)ο缶幊獭敝v解，首先讓大家認(rèn)識Word中VBA的對象，以及對象的屬性、方法，然后通過實(shí)例讓大家感受到Word VBA 的妙處。本套教程共三冊十六章，今日內(nèi)容第六章 “Word中的Range對象（下）”第4節(jié)：在文檔中插入分頁符及位置的擴(kuò)展
第四節(jié) Range對象的方法（八）大家好，我們這講繼續(xù)Range對象方法的講解，在上一講中我們講解了Range對象的SetRange 方法、PasteAndFormat方法、PasteSpecial 方法，這節(jié)我們將講解Select方法、GoTo方法、Expand 方法。
1 Range.Select方法此方法選擇指定的范圍。
語法：expression.Select
其中expression 是必需的，是一個(gè)代表Range對象的變量
2 Range.GoTo方法此方法返回一個(gè) Range 對象，該對象表示指定的item，如頁、書簽或字段的起始位置。
語法：expression. GoTo(What,Which,Count,Name)
其中expression 是必需的，是一個(gè)代表Range對象的變量
參數(shù)：
1）What 可選 Variant 范圍要移動(dòng)到的項(xiàng)的類型。可以是wdGoToItem常量之一。
2）Which 可選 Variant 范圍要移動(dòng)到的項(xiàng) ?？梢允?*wdGoToDirection** 常量之一。
3）Count 可選 Variant 在文檔中的項(xiàng)的數(shù)目。默認(rèn)值為 1 。只有正值是有效的。要指定之前范圍的項(xiàng)，請使用 wdGoToPrevious 作為其參數(shù)并指定計(jì)數(shù)值。
4）Name 可選 Variant 如果哪些參數(shù)是wdGoToBookmark、wdGoToComment、 wdGoToField或wdGoToObject ，則此參數(shù)指定一個(gè)名稱。只有正值是有效的。要指定之前范圍的項(xiàng)，請使用 wdGoToPrevious 作為其參數(shù)并指定計(jì)數(shù)值。
3 Range.Expand方法擴(kuò)展指定的區(qū)域或所選內(nèi)容。返回添至該區(qū)域或所選內(nèi)容的字符數(shù).
語法：expression. Expand(Unit)
其中expression 是必需的，是一個(gè)代表Range對象的變量
【在文檔中插入分頁符及位置的擴(kuò)展文檔怎么插分頁符】參數(shù)：
1）Unit 可選 Variant 度量單位以展開該區(qū)域。可以是下列的移常量之一: wdCharacter、wdWord、wdSentence、wdParagraph、wdSection、wdStory、wdCell wdColumn、 wdRow或wdTable.
WdGoToItem 常量枚舉值：
wdGoToBookmark -1 書簽bookmark.
wdGoToComment 6 批注 comment.
wdGoToEndnote 5 尾注endnote.
wdGoToEquation 10 公式equation.
wdGoToField 7 域 field.
wdGoToFootnote 4 腳注 footnote.
wdGoToGrammaticalError 14 語法錯(cuò)誤grammatical error.
wdGoToGraphic 8 圖形graphic.
wdGoToHeading 11 標(biāo)題 heading.
wdGoToLine 3 線段 line.
wdGoToObject 9 對象 object.
wdGoToPage 1 頁 page.
wdGoToPercent 12 百分比 percent.
wdGoToProofreadingError 15 校對錯(cuò)誤proofreading error.
wdGoToSection 0 節(jié) section.
wdGoToSpellingError 13 拼寫錯(cuò)誤 spelling error.
wdGoToTable 2 表格table.
WdGoToDirection 常量枚舉值：
wdGoToAbsolute 1 絕對位置.
wdGoToFirst 1 所指定對象的第一個(gè)實(shí)例.
wdGoToLast -1 所指定對象的最后一個(gè)實(shí)例
wdGoToNext 2 所指定對象的下一個(gè)實(shí)例
wdGoToPrevious 3 所指定對象的上一個(gè)實(shí)例。
wdGoToRelative 2 相對于當(dāng)前位置的位置
4 實(shí)例：選擇某范圍，然后移動(dòng)光標(biāo)到其他位置并擴(kuò)展我們下面就一個(gè)實(shí)例來講解一下本節(jié)方法的應(yīng)用。這講的實(shí)例中：首先選擇活動(dòng)文檔的的第二段作為基礎(chǔ)，然后在活動(dòng)文檔倒數(shù)第二段之后插入一個(gè)分頁符,分頁。并將光標(biāo)轉(zhuǎn)到第二頁開始，擴(kuò)展到整個(gè)段落。我們看代碼：
Sub mynzC()
Set myRange = ActiveDocument.Paragraphs(2).Range
myRange.Select
MsgBox myRange.Text
'活動(dòng)文檔倒數(shù)第二段之后插入一個(gè)分頁符,也就是將最后一段分頁
With myRange
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdPageBreak
End With
'將光標(biāo)轉(zhuǎn)到第二頁開始
myRange.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2
myRange.Select
'將myRange范圍擴(kuò)展到第二頁光標(biāo)所在的整個(gè)段落
'myRange.SetRange Start:=Selection.Range.Start, End:=Selection.Paragraphs(1).Range.End
myRange.Expand Unit:=wdParagraph
myRange.Select
MsgBox myRange.Text
End Sub
代碼截圖：
代碼解讀：
這里只給大家講解一下將myRange范圍擴(kuò)展到第二頁光標(biāo)所在的整個(gè)段落的方法，這里給出了兩種代碼：
其一：myRange.SetRange Start:=Selection.Range.Start, End:=Selection.Paragraphs(1).Range.End
這句代碼利用的是SetRange擴(kuò)展調(diào)整開始和結(jié)束的位置。
還有一種方案是直接擴(kuò)展：myRange.Expand Unit:=wdParagraph
以上兩種方案都是可以的。
代碼的運(yùn)行效果：
今日內(nèi)容回向：
1 Word中Range對象的Select方法、GoTo方法、Expand 方法的意義是什么？
2 如何利用VBA移動(dòng)及擴(kuò)展某區(qū)域？
本講內(nèi)容參考程序文件：Doc 006文檔.docm
我20多年的VBA實(shí)踐經(jīng)驗(yàn)，全部濃縮在下面的各個(gè)教程中：
【分享成果，隨喜正能量】做事，就兩個(gè)字：堅(jiān)持，多堅(jiān)持一會(huì)，多忍耐一次，也許就會(huì)有意外的驚喜。

以上關(guān)于本文的內(nèi)容，僅作參考！溫馨提示：如遇健康、疾病相關(guān)的問題，請您及時(shí)就醫(yī)或請專業(yè)人士給予相關(guān)指導(dǎo)!

「愛刨根生活網(wǎng)」www.malaban59.cn小編還為您精選了以下內(nèi)容，希望對您有所幫助：

在文檔中插入分頁符及位置的擴(kuò)展 文檔怎么插分頁符

在文檔中插入分頁符及位置的擴(kuò)展文檔怎么插分頁符