如何确定word文档中有多少个表以及各表的行、列数，并提取数据

jiminyanyan · 发表于 2017-3-26 12:24

……………………。

cunfu2010 · 发表于 2017-3-26 22:58

本帖最后由 cunfu2010 于 2017-3-27 11:43 编辑

duquancai 发表于 2017-3-26 12:19
Sub text()
Dim wd As New Word.Application
With CreateObject(ThisWorkbook.Path & "\" & "1 ...

问题解决了，谢谢。

cunfu2010 · 发表于 2017-3-26 23:02

本帖最后由 cunfu2010 于 2017-3-27 11:43 编辑

jiminyanyan 发表于 2017-3-26 12:22
都中级了，基础不怎么好呀…………
Sub text()
Dim wd As New Word.Application

问题解决了，谢谢。

cunfu2010 · 发表于 2017-3-26 23:24

本帖最后由 cunfu2010 于 2017-3-27 11:44 编辑

QQ214189912 发表于 2017-3-26 08:27

问题解决了，谢谢。

wj2368 · 发表于 2019-5-13 13:19

本帖最后由 wj2368 于 2019-5-13 13:20 编辑

cunfu2010 发表于 2017-3-25 12:27
自己顶顶，求助各位

。。。。。。。。。。。。。。。。。

EXCELLMY · 发表于 2019-12-15 08:42

ThisDocument.Tables.Count

考试加油站 · 发表于 2020-11-30 21:55

jiminyanyan 发表于 2017-3-26 12:24
……………………。

致敬学习中

考试加油站 · 发表于 2020-12-1 10:28

duquancai 发表于 2017-3-26 12:19
Sub text()
Dim wd As New Word.Application
With CreateObject(ThisWorkbook.Path & "\" & "1 ...

老师好，请问假如WORD中有身份证等，复制如变成E+格式，如何修改代码或设置格式，谢谢

		自动登录	找回密码
密码			免费注册

[求助] 如何确定word文档中有多少个表以及各表的行、列数，并提取数据