VBA读取word中的内容到Excel中-白红宇

VBA读取word中的内容到Excel中

阅读量：6702 次

发布时间：2019-06-25

本文共 503 字，大约阅读时间需要 1 分钟。

原文:

Public Sub Duqu()

Dim myFile As String

Dim docApp As Word.Application

Dim docRange As Word.Range

myFile = ThisWorkbook.Path & "\Word文档的名字" '指定Word文档

Set docApp = New Word.Application

docApp.Documents.Open myFile

For i = 1 To docApp.ActiveDocument.Paragraphs.Count

With docApp.ActiveDocument

'If .Paragraphs.Count >= 4 Then

Set docRange = .Paragraphs(i).Range

cp = cp & docRange

'End If

End With

Next i

Range("a1") = cp

docApp.Quit

Set docRange = Nothing

Set docApp = Nothing

Set ws = Nothing

End Sub

转载地址：http://wuzlo.baihongyu.com/

你可能感兴趣的文章

CentOS 6.5环境 MongoDB 3.2.8 单实例安装部署

查看>>

基于阿里云MaxCompute实现复杂事件检测

查看>>

一键部署自动感知服务的Docker集群（一）

查看>>

【D3.js 学习总结】17、D3布局-分区图（矩形）

查看>>

《C语言及程序设计》实践项目——数组与指针

查看>>

MySQL中char和varchar有啥区别？优缺点是啥？

C++语言基础例程类声明和成员函数定义的分离

动态分配的顺序线性表的十五种操作—C语言实现

查看>>

解决海量数据计算、降低企业成本的利器——MaxCompute

Nginx学习笔记（二） Nginx--connection&request

查看>>

喝酒易醉，品茶养心，人生如梦，品茶悟道，何以解忧？唯有杜康！-- 愿君每日到此一游！

强烈建议你试试无所不能的CHAT-GPT，快点击我