如何获得word的document中一页的文字.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 16 行

运 行 VBA的 一 个 宏 
    Sub 宏 1（ ） 
     Dim PageNo As String 
     ActiveWindow.View.Type = wdPageView 
     'WORD 97 文 档 视 图 设 定 为 页 面 方 式 
     ActiveDocument.Repaginate 
     PageNo = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) 
     '获 得 文 档 页 数 并 赋 值 给 变 量 PageNo 
     Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=PageNo 
    ' 光 标 移 动 到 文 档 最 后 一 页 的 开 始 
     Selection.EndKey Unit:=wdStory, Extend:=wdExtend 
    ' 全 选 文 档 最 后 一 页 的 所 有 内 容 
    End sub 
     
    Selection.text的 内 容 就 是 Document中 最 后 一 页 的 文 字 。 
<END>