如何用VBA分别选择 第三页到第五页的内容！跪求！

gusonaor

如何用VBA分别选择  word文件第三页到第五页的内容！

banjinjiu

这两天开学，没时间来论坛了，这个问题算你找对人了，问别人说不定真的回答不了你，我暑假曾研究过这类问题。给你一个代码，前面有个人曾问过这个问题，我回答他，成功不成功不回复我，下次谁还帮他呢。。

1. Sub 选择多页2()
   
2.     '3-5页
   
3.     Dim Pstart As Integer, PEnd As Integer, myRange As Range
   
4.     Pstart = Selection.GoTo(what:=wdGoToPage, Which:=wdGoToNext, Name:="3").Start
   
5.     PEnd = Selection.GoTo(what:=wdGoToPage, Which:=wdGoToNext, Name:="6").Start
   
6.     Set myRange = ActiveDocument.Range(Pstart, PEnd)
   
7.     myRange.Select
   
8. End Sub

复制代码

banjinjiu

这个帖子《word vba ：如何在指定的行和列插入内容？》
http://club.excelhome.net/forum. ... 6orderby%3Ddateline

924583269

请教下，代码运行后，到了Selection.GoTo(what:=wdGoToPage，显示运行错误438，对象不支持该属性或者方法是怎么回事呢？

daibao88

2楼代码没错误啊，可能是你把代码抄错了

ammyc

好好学习，天天向上

fireicefan

banjinjiu 发表于 2014-9-3 22:57
这两天开学，没时间来论坛了，这个问题算你找对人了，问别人说不定真的回答不了你，我暑假曾研究过这类问题 ...

为什么结尾一定要用第6页的start呢而不能用第5页的end呢？

lingongzhe

banjinjiu 发表于 2014-9-3 23:02
这个帖子《word vba ：如何在指定的行和列插入内容？》
http://club.excelhome.net/forum.php?mod=viewthr ...

http://club.excelhome.net/forum. ... ead&tid=1574387，大佬你能帮我看下我这个贴子里面的求助吗，按照你的方法我写了如下代码，想用循环每次获得 1 - 某一页的表格数量但是不知道为什么每次数的表格数都是1

1.                 For currentPage = 1 To pageCount
   
2.                     Pstart = Selection.GoTo(what:=wdGoToPage, Which:=wdGoToNext, Name:=1).Start
   
3.                     PEnd = Selection.GoTo(what:=wdGoToPage, Which:=wdGoToNext, Name:=currentPage).End
   
4.                     Set myRange = ActiveDocument.Range(Pstart, PEnd)
   
5.                     nowTabcount = myRange.Tables.Count
   
6.                     MsgBox "当前页数：" & currentPage
   
7.                     MsgBox "截至当前页的表格数：" & nowTabcount
   
8.                 Next

复制代码