VBA获取Word的数据 VBA在石油工程中应用

【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

VBA获取Word的数据

推荐阅读

社区免费做的核酸检测怎么查结果

宝可梦剑盾伙伴大赛举办方法介绍自己怎么举办伙伴大赛_网

云顶之弈暗星法狙阵容怎么搭配暗星法狙玩法技巧说明

索尼a350

如何使用佐助服务器？佐助服务器怎么用

强制加班合法吗

索尼XZ3是5G手机吗？索尼xz3最高支持的充电功率

婴儿拉绿屎怎么回事

孕妇能吃韭菜吗早期孕妇能吃韭菜吗

适合姓张的网名女适合姓张的网名

帕累托最优「帕累托最优配置是指」

葛根粉什么人群不宜

今天是游戏中哪位忍者的生日火影忍者手游2月10日每日一题答案

本田锋范用什么型号机油

教你辨别身体7个异常情况

1个缸缸压不够怎么维修

c1驾照实习期扣分规定是什么

日本车五万左右的车日本铃木小型车价格

女人连吃黑米黑豆一年为什么有黑米

Icograda协会优秀创意设计作品展