♀♀♀♀♀♀♀各位，请指点关于VBA的问题♂♂♂♂♂♂♂

[sniper920]

各位高手，请赐教：
小弟在一个目录中有一百多篇Word文档，全部都是以1.doc, 2.doc, 3.doc……之类命名的，想查找很不方便。
我想把每一篇内容的第一行（即 每一篇文章的标题）作为其文件名，用手工改显然太麻烦。
请问在VBA代码中如何实现？

[沐NeMo]

你去试一试:


Dim objWord As Word.Application
Dim wDoc As Document
dim NameString as string
dim i as long

for i =1 to 100
set objWord =new word.application
Set wDoc = objWord.documents.open("d:\路径\" & i &" .doc") ' 打开你的文件
With wDoc
Namestring=""
Namestring= .Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend '选中第一行的数据
.ChangeFileOpenDirectory "D:\test\"
.SaveAs NmaeString & ".doc" '文件保存在D:\test\目录里.
.close
End with
objWord.Quit
Set wDoc = Nothing
Set WordApp = Nothing
next

[arden1019]

第一行名字不短啊~~

[sniper920]

多谢！！
我试一下

[sniper920]

Namestring= .Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend '选中第一行的数据
这一句有语法错误。
我不怎么懂，请你改一下。
多谢了！！

[sniper920]

兄弟们，帮一下忙
拜托，拜托！！

[arden1019]

用Dim objLine As Line

Set objLine = ActiveDocument.ActiveWindow _
.Panes(1).Pages(1).Rectangles(1).Lines.Item(1)
namestring=objLine.range
替换：
Namestring= .Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend '选中第一行的数据
.ChangeFileOpenDirectory "D:\test\"
试试

[sniper920]

多谢

[pzl686]

up

[sniper920]

多谢关心！
但好像还是不对。