请教：如何用vba实现：选择当前页面的全部内容（从本页第一个字符到本页最后一个字...

褪墨

如题：选择当前页面的全部内容（从本页第一个字符到本页最后一个字符）
在论坛呆了2个月。

excel vba 学了一段时间了，基本能算是入门了。
但是word vba没学过，一点都不会。


请各位帮忙。谢谢。


附图没啥用处。

hhjjpp

1. Sub Macro1()
   
2.     p = Selection.Information(wdActiveEndPageNumber)
   
3.     Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=p
   
4.     Do
   
5.        i = i + 1
   
6.        Selection.MoveDown Unit:=wdLine, Count:=1
   
7.     Loop Until Selection.Information(wdActiveEndPageNumber) > p
   
8.     Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=p
   
9.     Selection.MoveDown Unit:=wdLine, Count:=i, Extend:=wdExtend
   
10. End Sub
    

复制代码

dafanshu1

ActiveDocument.Bookmarks("\page").Range.Select
但若当前页最后一个字符是段落标记符时，是不会选择的。

kqbt

3楼用的是预定义书签，有兴趣的朋友可以在本版块中搜索相关帖子。