如何取得word前几行作为这个word文件的新名字?

文件名和word文件里面的内容不符,想取内容前几行做为新文件名?如何做,有几千个word文件?
有哪位大哥给点思路?
[75 byte] By [flyingwheat] at [2008-3-14]
# 1
1、几千个doc的文件名有规律吗?
2、 Documents.Open
ActiveDocument.SaveAs FileName:= "..\new\" _
& ActiveDocument.Paragraphs(1).Range.Text
3、新产生的文件,都在new目录下(vba无法删除文件、也无法rename)
kaoziji-靠自己 at 2007-10-21 > top of Msdn China Tech,其他开发语言,Office开发/VBA...