VBA获取Word的数据

Public Sub 获取Word的数据()
    Dim sFName As String, strFilt As String, strTitle As String
    Dim docApp As Word.Application, pg As Word.Paragraph
    Dim i As Long, str1 As String
    
    strFilt = "Word文档(*.doc;*.docx;*.docm),*.doc;*.docx;*.docm,"
    strTitle = "打开Word文档"
    
    sFName = Application.GetOpenFilename _
        (filefilter:=strFilt, _
        Title:=strTitle)
    If sFName = "False" Then Exit Sub


    Set docApp = CreateObject("Word.Application")   '实例化Word对象变量
    docApp.Documents.Open sFName    '打开Word文档
    
    i = 1
    With docApp.ActiveDocument
        For Each pg In .Paragraphs  '处理Word中的每一个段落
            str1 = pg.Range.Text    '获取段落中的文本
            Worksheets("sheet2").Cells(i, 1) = str1
             i = i + 1
        Next
    End With
    
    docApp.Quit '退出Word文档
    Set docApp = Nothing    '释放对象变量
End Sub