Sub mynzC()
Set myRange = ActiveDocument.Paragraphs(2).Range
myRange.Select
MsgBox myRange.Text
'活動文檔倒數(shù)第二段之后插入一個分頁符,也就是將最后一段分頁
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)所在的整個段落
'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)所在的整個段落的方法，這里給出了兩種代碼：
其一：myRange.SetRange Start:=Selection.Range.Start, End:=Selection.Paragraphs(1).Range.End
這句代碼利用的是SetRange擴(kuò)展調(diào)整開始和結(jié)束的位置 。
還有一種方案是直接擴(kuò)展：myRange.Expand Unit:=wdParagraph
以上兩種方案都是可以的 。
代碼的運行效果：
今日內(nèi)容回向：
1 Word中Range對象的Select方法、GoTo方法、Expand 方法的意義是什么？
2 如何利用VBA移動及擴(kuò)展某區(qū)域？
本講內(nèi)容參考程序文件：Doc 006文檔.docm
我20多年的VBA實踐經(jīng)驗，全部濃縮在下面的各個教程中：
【分享成果，隨喜正能量】做事，就兩個字：堅持，多堅持一會，多忍耐一次，也許就會有意外的驚喜 。

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

• 網(wǎng)文中有那些有生之年系列的作品 有生之年寫的小說
• 朋友圈清理在哪里設(shè)置 微信朋友圈怎么清空
• 人造蛋真的存在嗎 真的有人工造蛋嗎?
• 適合家中老少的海參吃法 家庭吃海參什么樣的好
• 河南中考成績公布 今年中考學(xué)校招生分?jǐn)?shù)
• 運動后馬上吃飯對身體好嗎？
• 劇烈運動中能夠喝水嗎？
• 產(chǎn)后真的可以做瑜珈嗎？
• 什么時候做有氧運動適合？
• 跳高背越式怎么訓(xùn)練呢？