定位WORD表格的“单元格”－－行列坐标

aman1516 · 发表于 2018-2-18 11:36

——已用开类似WtoE或EtoW、Doc2Exl或Exl2Doc等工具的（论坛就有，非常好），或高手请绕道。
Word、Excel都可画表格（天下第一废话！），但除了各自独有功能必需使用该软件操作外，平时画表格那简直就是萝卜白菜，各有所爱了，稍复杂点的表格，对用惯Excel画表的人，看到Word表格就犯晕，而用惯Word画表的人，对Excel表格想修改排版时就恨的咬牙……
没办法，很多时候又不得不面对从Word表格提取数据到EXCEL，或从Excel将数据写入Word表格的情形，但Word的表格格式偏偏又与Excel表格不是同一回事，当你用Excel的单元格概念、表格的行列坐标在Word中去对号入座时，得到的结果经常让你一面懵逼，心里一千遍的唱着：你伤害了Word，我Excel而过……
好了，在被虐待千百遍之后，本着知其然及知其所以然的原则，搞清楚Word的“单元格”、“行”、“列”坐标到底是乍回事，弄了个定位Word表格的东东，以备不时之需，对Word表格进行简单的操作，方便后面编写相关的操作代码，两种显示格式，见附件：

定位Word表格单元格.rar (59.01 KB, 下载次数: 781)

blackttea1 · 发表于 2018-2-21 14:27

谢谢分享，收藏下

fly2sky · 发表于 2018-7-17 09:51

请问下，WtoE或EtoW、Doc2Exl或Exl2Doc等工具,在哪里下载？

hxf4hras4s · 发表于 2018-7-17 10:16

厉害了，我正是在为了EXCEL 和 WORD 表格之间的数据相互转移而头疼呢

鄂龙蒙 · 发表于 2020-9-22 18:47

请教表格中套表格怎么定位？谢谢！

any1009 · 发表于 2020-9-23 15:35

先标记，同问嵌套表格如何定位

aman1516 · 发表于 2020-9-24 22:51

鄂龙蒙发表于 2020-9-22 18:47
请教表格中套表格怎么定位？谢谢！

在Word文档的立即窗口中查看：

Sub WordTab()
Dim MyDoc As Document
Set MyDoc = Word.ActiveDocument
Dim tb1 As Table, tb2 As Table, tbCell As Cell
With MyDoc
For Each tb1 In .Tables
If tb1.Tables.Count > 0 Then
For Each tbCell In tb1.Range.Cells
Debug.Print tbCell.RowIndex, tbCell.ColumnIndex, tbCell.Range.Text
'Debug.Print tb1.NestingLevel
Next
For Each tb2 In tb1.Tables
Call binb(tb2)
Next
Else
For Each tbCell In tb1.Range.Cells
Debug.Print tbCell.RowIndex, tbCell.ColumnIndex, tbCell.Range.Text
'Debug.Print tb1.NestingLevel
Next
End If
Next
End With
End Sub
Sub binb(tb As Table)
Dim tb1 As Table, tbCell2 As Cell
If tb.Tables.Count > 0 Then
For Each tbCell2 In tb.Range.Cells
Debug.Print vCel2.RowIndex, vCel2.ColumnIndex, vCel2.Range.Text
Next
For Each tb1 In tb.Tables
Call binb(tb1)
Next
Else
For Each tbCell2 In tb.Range.Cells
Debug.Print tbCell2.RowIndex, tbCell2.ColumnIndex, tbCell2.Range.Text
Next
End If
End Sub

复制代码

aman1516 · 发表于 2020-9-24 22:54

详见附件：

表中表.rar (18.86 KB, 下载次数: 135)

loveofharee · 发表于 2020-9-25 08:54

鄂龙蒙发表于 2020-9-22 18:47
请教表格中套表格怎么定位？谢谢！

同问,我也遇到了同样的问题,表格套表格

鄂龙蒙 · 发表于 2020-9-25 09:45

aman1516 发表于 2020-9-24 22:54
详见附件：

再请教：如在表中表的“性别”改为“女”怎么写法？谢谢！

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

[分享] 定位WORD表格的“单元格”－－行列坐标

评分

评分