VB技巧问答10000例,是一个教程

				你 可 以 使 用 Selection.Text获 得 当 前 选 中 的 文 字 。 
				    可 以 使 用 BuiltInDocumentProperties(wdPropertyPages)获 得 页 数 ， 但 最 好 先 调 用 Repaginate方 法 确 保 页 数 正 确 。 如 ： 
				    ActiveDocument.Repaginate 
				    MsgBox ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)