excel vba 获取word 段落内容

Sub test()

Dim fso, fp, arr, wd, f, n%, fname$

Set fso = CreateObject("scriptingfilesystemobject")

Set fp = fsogetfolder(ThisWorkbookPath)

ReDim arr(1 To fpFilesCount, 1 To 2)

arr(1, 1) = "文件号": arr(1, 2) = "标题"

Set wd = CreateObject("wordapplication")

n = 1

For Each f In fpFiles

If Right(f, 3) = "doc" Or Right(f, 4) = "docx" Then

n = n + 1: arr(n, 1) = fsogetbasename(f)

fname = fsogetfilename(f)

With wdDocumentsOpen(ThisWorkbookPath & "\" & fname, True, True)

wdVisible = True

arr(n, 2) = Paragraphs(2)Range

Close

End With

End If

Next

wdQuit

Sheets(1)[a1]Resize(UBound(arr), UBound(arr, 2)) = arr

End Sub

现在有一个文件夹下有N个Word文件，要将他们的文件名和文档内的第二段提取到Excel表格，如何通过VBA实现

将_页中表的数据输出到excel中。

下面会出来要添加网页的内容和**箭头，单击要选择的表旁边的**箭头，可以看到点击后**箭头变成绿色的对号，这表示内容已经选中了，然后单击导入。

遍历修订示例：

    Dim rs As Revision

    For Each rs In ActiveDocumentRevisions

        MsgBox rsRangeText

    Next

遍历批注内容示例：

  Dim cm As Comment

    For Each cm In ActiveDocumentComments

        MsgBox cmRangeText

    Next

转到第 2 个批注示例：

   SelectionGoTo What:=wdGoToComment, Which:=wdGoToAbsolute, Count:=3

遍历转到每个修订内容：

    Dim rs As Revision

    For Each rs In ActiveDocumentRevisions

        rsRangeSelect

    Next

以上就是关于excel vba 获取word 段落内容全部的内容，包括:excel vba 获取word 段落内容、Vba 如何获取Edge网页数据、在Word2010中，如何利用VBA获取文档的修订和批注内容获取到相应的内容之后如何通过单击跳转到修改处等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！