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
VBA获取Word的数据
最新推荐文章于 2024-07-02 13:07:26 发布