[求助][讨论]有很多文章，如何提取它们的首行（题目）

skyya

我从网上下了很多文章，但文件名很乱，想提取它们的首行（一般就是题目）做为文件名。不知如何选取！在线请教。先谢过了

我的方法：

 

aYsXb0Db.rar (4.81 KB, 下载次数: 9)

2006-10-13 13:18 上传

点击文件名下载附件
[求助][讨论]有很多文章，如何提取它们的首行（题目）

[此贴子已经被作者于2006-10-13 13:19:04编辑过]

守柔

Sub Example()
    Dim myRange As Range
    On Error GoTo ErrHandle
    With ActiveDocument
        Set myRange = .Content.Paragraphs(1).Range
        myRange.SetRange myRange.Start, myRange.End - 1
        .SaveAs myRange.Text
    End With
    Exit Sub
ErrHandle:
    MsgBox Err.Number & Err.Description
End Sub

如果是已有文档，可以直接进行循环后另存为方式进行。（遍历文件夹）

skyya

谢谢

可是如首行是空，标题在后，怎么办呀。传个例子，我不知错在哪！请教

[此贴子已经被作者于2006-10-13 13:18:32编辑过]

konggs

搜索一下。应该有的。

看一下这个贴子。

http://club.excelhome.net/viewthread.php?tid=148664&extra=&page=1#148664