多个类似的word怎么一次性批量生成目录。

baoliyus

RT.多个类似的word文档怎么一次性批量分别自动生成目录。

baoliyus

大神们，求助啊！！！有没有什么vb语言可以 一次性让多个word自动生成目录啊！！至少有没有办法利用vb语言可以一个文档生成目录也好啊...........在考虑怎么批量对文件运行这个宏就好了啊。。。。orz

13907933959

baoliyus 发表于 2016-7-30 18:32
大神们，求助啊！！！有没有什么vb语言可以 一次性让多个word自动生成目录啊！！至少有没有办法利用vb语言 ...

网友好！
这个是在网上找到的代码，借花献佛！看能不能如您所愿。

Sub 提取指定文件夹内的Word文档名为目录()
  Dim myPath As String, myFoundFile
    Dim GetStr As String, NewDoc As Document
    Dim myText As String
    Dim myPara As Paragraph, myRange As Range
    On Error Resume Next
    Application.ScreenUpdating = False
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择目标文件夹"
        If .Show = -1 Then
            myPath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
     With Application.FileSearch
        .LookIn = myPath
        .FileType = msoFileTypeWordDocuments
        If .Execute > 0 Then
            For Each myFoundFile In .FoundFiles
                GetStr = GetStr & myFoundFile & vbCrLf
            Next myFoundFile
            Set NewDoc = Documents.Add
            NewDoc.Range.InsertAfter GetStr
        End If
    End With
    Application.ScreenUpdating = True
End Sub

baoliyus

13907933959 发表于 2016-7-31 16:18
网友好！
这个是在网上找到的代码，借花献佛！看能不能如您所愿。

首先 谢谢，但是 我是要在word里面生成目录（虽然word自带插入目录，但是word数量比较多，一个一个打开插入目录太花时间）所以想用vb来实现在word里面插入目录，这样再利用vb实现对批量文件运行这个代码就可以实现批量生成目录了。

13907933959

baoliyus 发表于 2016-8-1 20:35
首先 谢谢，但是 我是要在word里面生成目录（虽然word自带插入目录，但是word数量比较多，一个一个打开插 ...

网友好！
抱歉！能力不够。

lwlhong

baoliyus 发表于 2016-8-1 20:35
首先 谢谢，但是 我是要在word里面生成目录（虽然word自带插入目录，但是word数量比较多，一个一个打开插 ...

有大神出来帮忙吗

daibao88

office2007及以上版本已经不支持FileSearch对象了。
这样的功能，百度很多的