VBA获取Word的数据

【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

    推荐阅读