⑴ 如何利用VBA批量提取文件夾下所有word文檔的標題和指定段落
Sub test()
Dim fso, fp, arr, wd, f, n%, fname$
Set fso = CreateObject("scripting.filesystemobject")
Set fp = fso.getfolder(ThisWorkbook.Path)
ReDim arr(1 To fp.Files.Count, 1 To 2)
arr(1, 1) = "文件號": arr(1, 2) = "標題"
Set wd = CreateObject("word.application")
n = 1
For Each f In fp.Files
If Right(f, 3) = "doc" Or Right(f, 4) = "docx" Then
n = n + 1: arr(n, 1) = fso.getbasename(f)
fname = fso.getfilename(f)
With wd.Documents.Open(ThisWorkbook.Path & "\" & fname, True, True)
wd.Visible = True
arr(n, 2) = .Paragraphs(2).Range
.Close
End With
End If
Next
wd.Quit
Sheets(1).[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub
現在有一個文件夾下有N個Word文件，要將他們的文件名和文檔內的第二段提取到Excel表格，如何通過VBA實現
⑵ 您好 請問如何對大量WORD文檔提取標題 非常感謝
你說的是生成目錄嗎？如果是的話，直接設置大綱級別，插入目錄與索引就行了！網上有步驟，你可以查查看看，挺簡單，一看就會
⑶ vba處理word獲取各級標題及內容
兩種可行的思路：
1、利用正則表達式提取；
2、利用VBA編程提取