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

aman1516

——已用开类似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, 下载次数: 770)

2018-2-18 11:29 上传

点击文件名下载附件

blackttea1

谢谢分享，收藏下

fly2sky

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

hxf4hras4s

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

鄂龙蒙

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

any1009

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

aman1516

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

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

1. 
   
2. Sub WordTab()
   
3.     Dim MyDoc As Document
   
4.     Set MyDoc = Word.ActiveDocument
   
5.     Dim tb1 As Table, tb2 As Table, tbCell As Cell
   
6.     With MyDoc
   
7.         For Each tb1 In .Tables
   
8.             If tb1.Tables.Count > 0 Then
   
9.                For Each tbCell In tb1.Range.Cells
   
10.                    Debug.Print tbCell.RowIndex, tbCell.ColumnIndex, tbCell.Range.Text
    
11.                    'Debug.Print tb1.NestingLevel
    
12.               Next
    
13.                For Each tb2 In tb1.Tables
    
14.                     Call binb(tb2)
    
15.                Next
    
16.             Else
    
17.                For Each tbCell In tb1.Range.Cells
    
18.                    Debug.Print tbCell.RowIndex, tbCell.ColumnIndex, tbCell.Range.Text
    
19.                    'Debug.Print  tb1.NestingLevel
    
20.                Next
    
21.             End If
    
22.         Next
    
23.     End With
    
24. End Sub
    
25. 
    
26. Sub binb(tb As Table)
    
27.     Dim tb1 As Table, tbCell2 As Cell
    
28.     If tb.Tables.Count > 0 Then
    
29.         For Each tbCell2 In tb.Range.Cells
    
30.             Debug.Print vCel2.RowIndex, vCel2.ColumnIndex, vCel2.Range.Text
    
31.         Next
    
32.         For Each tb1 In tb.Tables
    
33.             Call binb(tb1)
    
34.         Next
    
35.     Else
    
36.         For Each tbCell2 In tb.Range.Cells
    
37.             Debug.Print tbCell2.RowIndex, tbCell2.ColumnIndex, tbCell2.Range.Text
    
38.         Next
    
39.     End If
    
40. End Sub

复制代码

aman1516

详见附件：
表中表.rar (18.86 KB, 下载次数: 126)

2020-9-24 22:53 上传

点击文件名下载附件

loveofharee

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

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

鄂龙蒙

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

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