分了好多节的word通过VBA调出某一节的页码范围

是这样啊，我想要分节另存为，比如说第一节另存为一个word，第二节另存为一个word；
但是，另存为的选项只能是输入确定的页码（from to），从第几页到第几页，不能像打印一样，可以直接输入S1打印第一节，或者输入S2打印第二节；
能不能自动获取第一节的页码范围，然后输入到另存为的 from 第几页 to 第几页 的公式中去？
怎么获取？VBA的方法，直接掰着指头数，倒是可以，忒麻烦！！！求VBA的方式来解决！
求指点！！！

大侠有点提示或者相关的都说一下，我初学VBA，不太懂，O(∩_∩)O谢谢

sub test ()
istart = InputBox("输入你要打印的起始节")
iEnd = InputBox("输入你要打印的结束节") '为了方便搞了两个inputbox，你可以用一个，方法如下：
'规定一个格式，然后用instr，left，right等得到起始和结束的节数

Dim doc As Document
Dim rngDoc As Range
Set doc = ActiveDocument
Set rngDoc = doc.Range(Start:=doc.Paragraphs(istart).Range.Start, _
End:=doc.Paragraphs(iEnd).Range.End)
rngDoc.Select
doc.PrintOut Range:=wdPrintSelection

Set rngDoc = Nothing
Set doc = Nothing
end sub

亲，代码如下： private sub tjys_click() dim d, p as integer dim f, ff as object set fso = createobject("scripting.filesystemobject") set ff = fso.getfolder(thisdocument.path) d = 0: p = 0 for each f in ff.files     if f.name <> thisdocument.name and left(f.name, 2) <> "~$" and f.name like "*.doc*" then         d = d + 1         documents.open filename:=thisdocument.path & "\" & f.name         p = p + activedocument.builtindocumentproperties(wdpropertypages)         activedocument.close false     end if next f msgbox "总共统计了 " & d & " 个文件，总页数为 " & p & "页。", vbokonly, "结果" end sub