VBA可否确定表格的特定文字所处的行数和列数？

kevinchan2006

对于Word VBA，如果某文档中有一个表格，表格的某单元格中有“AAAAA”的文字，如何利用VBA代码获得“AAAAA”所处的行数和列数？

413191246se

将光标放在表格中文字所在单元格后应用下面的宏：

Sub 行列判定()
'
' 行列判定 Macro
' 宏在 2012-12-27 由 微软用户 录制
'
    Dim x As Long, y As Long
' 自动选定当前文字所在单元格
    Selection.Cells(1).Select


' 表格最大行数、最大列数
'    x = Selection.Information(wdMaximumNumberOfRows)
'    y = Selection.Information(wdMaximumNumberOfColumns)

' 当前光标所在单元格所在行数、列数
    x = Selection.Information(wdEndOfRangeRowNumber)
    y = Selection.Information(wdEndOfRangeColumnNumber)
   
    MsgBox x & "行" & "\" & y & "列"
End Sub

kevinchan2006

多谢楼上！

这样做还有需要大量代码。因为首先要写查找目标文字的代码，然后再插入您写的代码，没有Excel方便。不过毕竟是Word表格，也只能这样了。

我的电子表1516

很受启发，谢谢楼主，收藏了！