| 发表于：2007-12-23 22:08:36 楼主 |
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
这个宏是我从网上搜来的.目的是完成把word文档按页拆分并按页存成文件.现在想把文档中表格的的值赋在文件名中,从而实现自动化命名 |
|
|
|
|
