您的位置：程序门 -> 其他开发语言 -> office开发/ vba

如何把word文档中表格的值赋在文件名中

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

如何把word文档中表格的值赋在文件名中

发表于：2007-12-23 20:30:29 楼主

sub saveaspage（)
dim pagecount as integer, startrange as long, endrange as long, myrange as range, fn as string, mydoc as document

on error resume next
pagecount = selection.information（wdnumberofpagesindocument)
range（0, 0).select '将光标移至文档起点
for i = 1 to pagecount '设置循环次数

startrange = selection.start '取得该页的第一个字符位置
selection.endkey unit:=wdline '将光标移动到该页首行的最后位置
fn = range（startrange, selection.end - 1) '-1的目的是防止该页首行含有段落标记,导致出错.

if i = pagecount then '如果循环到达最后一页
endrange = activedocument.content.end '将文档最后位置赋值于endrange
else
selection.gotonext （wdgotopage) '否则,将下一页的起始位置赋值于endrange（等同于本页的最后位置)
endrange = selection.start
end if

set myrange = range（startrange, endrange) '将本页中的内容进行复制
myrange.copy
set mydoc = documents.add '新建一空白文档
mydoc.range（0, 0).paste '在文档开始处粘贴

'如何把word中表格中的第三行的第二列的值赋在文件名里面???

activedocument.saveas filename:=activedocument.path & "file" & 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

发表于：2007-12-23 20:33:251楼得分:0

这个宏是我从网上搜来的.目的是完成把word文档按页拆分并按页存成文件.现在想把文档中表格的的值赋在文件名中,从而实现自动化命名

发表于：2007-12-23 23:01:432楼得分:0

学习

下一篇：怎样获得word中插入控件的对象
上一篇：excel 引用querytable对象，服务器如何安装和配置

其他资讯