在一個檔案里面有多個表格，我想獲取滑鼠選中的表格的索引號，即 ActiveDocument.Tables(i)中的i
uj5u.com熱心網友回復：
If Selection.Information(wdWithInTable) = True Then Selection.Tables(1).Select
通過infomation 判斷游標是否在table里面
如果得到true 那么 selection.table(1)就是這個表物件。至于他在整個document的tables里面的索引值 我暫時也不知道怎么獲得。
uj5u.com熱心網友回復：
搞定，結貼給分吧
uj5u.com熱心網友回復：
參考 2 樓 chewinggum 的回復: 搞定，結貼給分吧
經我剛才試驗，可能會有“張冠李戴”的問題。
測驗方法如下：
1. 新建一個Word檔案，然后隨便插入一個表格（任意大小都行，比如3列×2行的）；
2. 選定剛才的表格，Ctrl+C，然后Ctrl+V兩次（隨意，1次也行的），現在檔案中是“3個表格”了。
把”游標“定在其中的任意一個表格內。
3. Alt+F11打開VBE，插入一個“標準模塊”，粘貼上面的代碼。
運行，可以看到：有多少個表格，就會MsgBox多少次，跟游標在哪個表格內無關。
當然我是“故意搗亂”的…………你們都可以忽略我的回復。
uj5u.com熱心網友回復：
參考 3 樓 Chen8013 的回復: Quote: 參考 2 樓 chewinggum 的回復:
好吧，沒測驗這個情況
uj5u.com熱心網友回復：
修訂一下，加個條件
uj5u.com熱心網友回復：
參考 5 樓 chewinggum 的回復: 修訂一下，加個條件
厲害！
不過其實不用“加條件”，代碼第11行只要這樣就行了：
If t1.Range.End = t2.Range.End Then
uj5u.com熱心網友回復：
參考 6 樓 Chen8013 的回復: Quote: 參考 5 樓 chewinggum 的回復:
這不是不想刪掉原來的東西么
其實我在考慮，兩個表格可以橫向平行放么？
uj5u.com熱心網友回復：
有結論了，通過設定表格的文字環繞啥啥啥的，可以把兩個表格橫向平行放置，但是兩個表格的range end屬性值不一樣。
所以，按6樓的，去掉兩個表物件的直接比對貌似到目前為止也沒發現有問題。
uj5u.com熱心網友回復：
注釋掉所有On Error Resume Next陳述句，在VBA IDE中運行，
出錯后點擊除錯，游標會停在出錯的那條陳述句處，
或者
事先在懷疑可能有邏輯錯誤的陳述句處設定斷點，運行經過斷點時中斷，
此時可以在立即視窗中使用
?變數名
或
?函式名(函式引數)
或
程序名(引數)
輔助除錯。
uj5u.com熱心網友回復：
覺得趙老師應追趕一下潮流該研究一下人工智能，根據問題自動貼比較能搭得上樓主問題邊的東西。蹭分也要讓人心服口服嘛
uj5u.com熱心網友回復：
參考 10 樓 chewinggum 的回復: 覺得趙老師應追趕一下潮流該研究一下人工智能，根據問題自動貼比較能搭得上樓主問題邊的東西。蹭分也要讓人心服口服嘛
你覺得它能“研究”得有一定進展？
是不是太高估他了……
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/55845.html
標籤：VBA
上一篇：求《Visual Basic插件開發人員指南》配套光碟內容
下一篇：vb中的keyup,keypress,keydown事件的區別？
