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的数据

推荐阅读

椰子油的生活小妙用椰子油有什么用途和功效

庆东锅炉故障代码是什么如何解决

教学教务管理人员是干什么的

联想yoga2

如何选择抗体稀释液？抗体稀释液

下载导航地图，导航地图下载

流媒体后视镜可以当行车记录仪吗行车记录仪有必要买流媒体吗

炒苔菜用不用焯水，苔菜用不用焯水再炒

昆明工业职业技术学院怎么样

（152）感赏女儿|（152）感赏女儿 2020-12-4

桃子核发霉外面是好的还能吃吗

离散傅立叶分析,origin怎么进行傅立叶分析

次密接触者的一般接触者需要隔离吗

海带炖土豆的做法海带炖土豆的做法窍门

大概的近义词大概的近义词是什么标准答案

合金筷子是塑料还是金属合金筷子是什么材质

真我与假我

钢材包括哪些钢材怎么分类

heos,黑色素瘤

【家事】节如流水