【分享成果，隨喜正能量】 做一件事情之前，先賦予它非常重要的意義或作用，或許可以支撐你持續做這件事。每當你堅持不下去的時候，想想當初為什麼開始做這件事。想想這件事從長期角度可以給你帶來什麼，也許這樣你就可以堅持下去了。 。

我給VBA的定義：VBA是個人小型自動化處理的有效工具。利用好了，可以大大提高自己的勞動效率，而且可以提高數據的準確度。我推出的VBA系列教程共十套(本文的最後附有VBA教程目錄和VBA工具目錄)，現在已經全部完成。

如果您VBA是入門階段，可以選擇7.1.3.9教程，第7套教程是入門，第1套教程是入門後的提高，第3套教程字典是必備的VBA之精華，第9套教程是實用的典型案例講解。如果您有了一定的VBA基礎可以根據自己的需要，進行教程的選擇。教程提供的程序源碼文件就如一座大型的代碼庫支持著大家的工作。同時還有實用的資料送給學員。

VBA是面向對象編程的語言，博大精深。很多朋友諮詢英語和VBA的關係，這套《VBA即用型代碼手冊（漢英）》集合了眾多的案例，案例我用漢語和英語同時發布，學員從中可以更好的領會和掌握VBA中用到的一些英語。今日的內容：VBA即用型代碼手冊:文檔中單元格數據的修改

第六章 Word對象及示例

Word Objects and Macro Examples

21 表內單元格數據的修改Modification of cell data in the table

Sub mynzTableCellSelect()

'選擇第一個表格第二行第二列交叉的單元格

ActiveDocument.Tables(1).Cell(2, 2).Select

Selection.TypeText "58"

End Sub

• 本節內容參考程序文件：Chapter06-1.docm

22 選擇文檔的第2頁到第6頁Select pages 2 to 6 of the document

Sub mynzSelectpages()

Dim rgePages As Range

Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2

Set rgePages = Selection.Range

Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=6

'\Page 預定義書籤，指當前頁，並可能包含頁尾的分隔符。 當前頁包含插入點。

'如果當前所選內容包含多頁，則「\Page」書籤為所選內容的第一頁。

'注意，如果插入點或所選內容位於文檔中的最後一頁，則「\Page」書籤不包含文檔結尾的段落標記

rgePages.End = Selection.Bookmarks("\Page").Range.End

rgePages.Select

End Sub

• 本節內容參考程序文件：Chapter06-1.docm

【分享成果，隨喜正能量】我20多年的VBA實踐經驗，全部濃縮在下面的各個教程中：

【分享成果，隨喜正能量】挫折會來，也會走，心下心來，專注於自己，靜候幸福來敲門。試上高峰窺皓月，偶開天眼覷紅塵。可憐身是眼中人。。