vba处理word获取各级标题及内容
如何利用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=1For Each f In fp.FilesIf Right(f，3)=\"doc\"Or Right(f，4)=\"docx\"Thenn=n+1：arr(n，1)=fso.getbasename(f)fname=fso.getfilename(f)With wd.Documents.Open(ThisWorkbook.Path&\"\\\"&fname，True，True)wd.Visible=Truearr(n，2)=.Paragraphs(2).RangeCloseEnd WithEnd IfNextwd.QuitSheets(1).[a1].Resize(UBound(arr)，UBound(arr，2))=arrEnd Sub现在有一个文件夹e799bee5baa6e59b9ee7ad9431333361323633下有N个Word文件，要将他们的文件名和文档内的第二段提取到Excel表格，如何通过VBA实现
(VBA)怎么提取Word中指定级 标题中正文内容？1 标题11.1 标题1.1正文…2 标题22.1 标题2.1正文…怎么提取x.1正文里面的内 容，里面有图片和表格？高手help 在word工具栏中。
