如何获得Word的Document中一页的文字
编号：QA002660
建立日期: 2000年3月2日 最后修改日期：2000年3月2日
所属类别：
王珏:
操作系统：Pwin98
编程工具：VB5、WORD 97
问题：我在用VB5、WORD 97开发OFFICE应用，我已经知道如何获得Document中的文字和页数，现在我要获得Document中最后一页的文字，如何实现?我用宏记录了一些VBA，可惜不能发挥作用，仅供高手一笑。
ActiveWindow.View.Type = wdPageView
'WORD 97 文档视图设定为页面方式
Selection.EndKey Unit:=wdStory
'WORD 97 文档视图中光标移动到整个文档最后一行的结束处
Application.Browser.Next
'WORD 97 文档视图中光标移动到整个文档最后一页的开始处
回答:
运行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中最后一页的文字。
此问题由王珏回答。
| |
|
|
| |
|
|
