2,464
社区成员
发帖
与我相关
我的任务
分享兄弟姐妹们，VBA操作word的一个弱弱的问题，帮解决下
我用VBA不停往word中插入文本，编程怎么判断其已经到了下一个页面呢？（因为字体不一样等原因，不能用行数确定)请指教
...全文
请发表友善的回复…
发表回复
yoyofish 2004-05-05
- 打赏
- 举报
'WORD 97 文 档 视 图 设 定 为 页 面 方 式
ActiveWindow.View.Type = wdPageView
ActiveDocument.Repaginate
'获 得 文 档 页 数 并 赋 值 给 变 量 PageNo
PageNo = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
For i = 1 To PageNo
' 光 标 移 动 到 文 档 某一 页 的 开 始
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
' 全 选 文 档某一 页 的 所 有 内 容
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
WORDstr = WORDstr & Selection.Text
Next
你看看这个宏代码就知道了
移到第一页
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=1
ActiveWindow.View.Type = wdPageView
ActiveDocument.Repaginate
'获 得 文 档 页 数 并 赋 值 给 变 量 PageNo
PageNo = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
For i = 1 To PageNo
' 光 标 移 动 到 文 档 某一 页 的 开 始
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
' 全 选 文 档某一 页 的 所 有 内 容
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
WORDstr = WORDstr & Selection.Text
Next
你看看这个宏代码就知道了
移到第一页
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=1
jintianatxd 2004-05-04
- 打赏
- 举报
up
duye 2004-04-22
- 打赏
- 举报
无pages属性，呵呵
vansoft 2004-04-22
- 打赏
- 举报
判断pages属性。
snake1122 2004-04-22
- 打赏
- 举报
那如何将光标置于第一页呢？
