用代码如何选取某一页？

wxzd · 发表于 2004-7-30 14:22

如何用代码选取ＷＯＲＤ文档的某一页，比如：第一页，然后复制到剪切板，

选取第三页等？

守柔 · 发表于 2004-7-31 05:58

请楼主参考以下两贴，定有所获：

http://club.excelhome.net/dispbbs.asp?boardid=23&star=1&replyid=220325&id=50090&skin=0&page=1

http://club.excelhome.net/viewthread.php?tid=54123

wxzd · 发表于 2004-8-1 06:15

谢谢，可看不懂，能否具体：

比如选择第二页怎么写，选第三页怎么写，不要通用的

守柔 · 发表于 2004-8-1 07:33

以下代码将选定第二页：

Sub selpage() Dim StPage As Long, EnPage As Long On Error Resume Next ActiveDocument.Range(0, 0).Select Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2" StPage = Selection.Start Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="3" EnPage = Selection.Start ActiveDocument.Range(StPage, EnPage).Select End Sub

wxzd · 发表于 2004-8-1 18:56

感谢版主的热情帮助，我不懂ＶＡＢ，我是用ＶＦＰ操作ＷＯＲＤ，比如：

oleword = CREATEOBJECT("word.application")

oleword.Documents.Add() &&新建文档

oleword.Documents.Open("e:\ls1.doc") &&打开文档，文档必须已存在。

oleword.ChangeFileOpenDirectory("c:\windows") &&改变工作目录

oleWord.visible=.t. &&可视

oleword.Selection.WholeStory &&全选

oleword.Selection.copy &&复制

oleword.Selection.cut &&剪切

oleword.Selection.Paste &&粘贴

可您上面的代码我没有看懂，不知如何改？

wxzd · 发表于 2004-8-1 20:40

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2" StPage = Selection.Start 这两行代码不理解，没有手册

		自动登录	找回密码
密码			免费注册