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
推荐阅读
- EditText默认不获取焦点弹出键盘
- whlie循环和for循环的应用
- 【实用教程】4种获取无水印视频素材的方法
- 插件化无法获取或找到.so文件
- 不会PS没关系,用Word更换证件照背景色只要30秒!
- WordPress安装后必须要做的10件事
- 获取知识的门槛
- 提取ipa|提取ipa 包内资源
- Word|Word Power Made Easy Review 5
- elon's|elon's keywords of 2016