您的位置：程序门 -> vb -> vba

在 vb6.0 中如何实现对word的doc文件,页面整页选择?

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

在 vb6.0 中如何实现对word的doc文件,页面整页选择?

发表于：2008-01-04 16:36:09 楼主

在 vb6.0 中如何实现对word的doc文件的某一页的选择?比如这个文件一共10页,我只需要第二页.
我目前碰到的问题是:如何在vb中获得页面范围?

发表于：2008-01-04 16:41:111楼得分:0

doc.range（start:=doc.content.end - 1, end:=doc.content.end)
这样选择范围可以吗?

发表于：2008-01-04 16:53:452楼得分:0

sub saveaspage（)
dim pagecount as integer, startrange as long, endrange as long, myrange as range, fn as string, mydoc as document
dim savefilename$
savefilename = "c:\zj" '设置文件保存的路径和文件名，这里为c:\zj*.doc,*为页码序号
on error resume next
pagecount = selection.information（wdnumberofpagesindocument)
thisdocument.range（0, 0).select '将光标移至文档起点
for i = 1 to pagecount '设置循环次数
startrange = selection.start '取得该页的第一个字符位置
selection.endkey unit:=wdline '将光标移动到该页首行的最后位置
fn = thisdocument.range（startrange, selection.end - 1) '-1的目的是防止该页首行含有段落标记,导致出错.
if i = pagecount then '如果循环到达最后一页
endrange = thisdocument.content.end '将文档最后位置赋值于endrange
else
selection.gotonext （wdgotopage) '否则,将下一页的起始位置赋值于endrange（等同于本页的最后位置)
endrange = selection.start
end if
set myrange = thisdocument.range（startrange, endrange) '将本页中的内容进行复制
myrange.copy
set mydoc = documents.add '新建一空白文档
mydoc.range（0, 0).paste '在文档开始处粘贴
activedocument.saveas filename:=savefilename & i & ".doc", fileformat:= _
wdformatdocument, lockcomments:=false, password:="", addtorecentfiles:= _
true, writepassword:="", readonlyrecommended:=false, embedtruetypefonts:= _
false, savenativepictureformat:=false, saveformsdata:=false, _
saveasaoceletter:=false
mydoc.close '关闭文档
next
end sub

这个代码在vb6中如何实现

下一篇：如何给自定义函数添加描述信息
上一篇：vba中是否有命令能够实现cad的拉伸命令的关键词？

其他资讯