Word Interop: How to obtain valid selected cells collection from Word table when selection area is not a rectangle?

Question

我正在尝试从 Word 表格中获取选定的单元格。我需要收集选定的表格单元格来创建自定义书签对象，其中包含用户选择了哪些单元格范围的信息。当用户选择单元格的矩形区域时，一切正常。这就是我在 Word 插件中获取选定表格单元格的方式：

Globals.ThisAddIn.Application.Selection.Range.Application.ActiveWindow.Selection.Cells

如果用户选择非矩形区域或选择多个区域（按住 CTRL 时），此属性将返回无效的单元格集合。我创建了一个简单的 vba 代码，用于测试使用两个属性在表格中选择了哪些单元格：

Globals.ThisAddIn.Application.Selection.Range.Application.ActiveWindow.Selection.Cells
Globals.ThisAddIn.Application.Selection.Range.Cells

当用户选择非矩形表格单元格区域时，这两个属性都会返回不同且无效的选定单元格集合。这是我用于测试目的的 vba 代码，当在 Word 表中选择了单元格范围时：

Sub test()

Dim listaKomorek1 As New Collection
Dim listaKomorek2 As New Collection
Dim indekser1 As Integer
Dim indekser2 As Integer
Dim tekst1 As String
Dim tekst2 As String
Dim tabela As Table

Set tabela = Selection.Range.Tables(1)

indekser1 = 1
indekser2 = 1
liczbaKomorek1 = Selection.Range.Cells.count()
liczbaKomorek2 = Selection.Range.Application.ActiveWindow.Selection.Cells.count()
tekst1 = "Lista komorek 1 (Selection.Range.Cells): " & vbCrLf & vbCrLf & vbCrLf
tekst2 = "Lista komorek 2 (ActiveWindow.Selection.Cells): " & vbCrLf & vbCrLf & vbCrLf

For Each komorka In Selection.Range.Cells
    tekst1 = tekst1 & "#Cell: " & CStr(indekser1) & " Value: " & CStr(komorka.Range.Text) & " Column: " & CStr(komorka.ColumnIndex) & " Row: " & CStr(komorka.RowIndex) & vbCrLf
    indekser1 = indekser1 + 1
Next komorka

For Each komorka In Selection.Range.Application.ActiveWindow.Selection.Cells
    tekst2 = tekst2 & "#Cell: " & CStr(indekser2) & " Value: " & CStr(komorka.Range.Text) & " Column: " & CStr(komorka.ColumnIndex) & " Row: " & CStr(komorka.RowIndex) & vbCrLf
    indekser2 = indekser2 + 1
Next komorka

tekst1 = tekst1 & vbCrLf & "Cells count: " & CStr(liczbaKomorek1)
tekst2 = tekst2 & vbCrLf & "Cells count: " & CStr(liczbaKomorek2)
MsgBox tekst1
MsgBox tekst2
End Sub

我的问题是，当用户在 Word 表格中选择非矩形区域时，如何获得有效的选定单元格集合？

Answer 1

感谢 Tim Williams 发表的文章，我设法找到了解决方案。这个解决方案绝不是完美的，但它提供了，我没有想出更好的东西。为了获得选定单元格的有效集合，当表格中有连续选择时。我们可以更改连续选择支持的属性之一。之后，我们可以很容易地找到具有更改属性的单元格，这些单元格将是表格中所有选定的单元格。这是我创建的方法，我使用 Font.Size 来查找选定的单元格：

public static List<System.Drawing.Point> GetSelectedCells()
    {
        //We will use this to hold column and row coordinates for cells
        List<System.Drawing.Point> value = new List<System.Drawing.Point>();
        try
        {
            Microsoft.Office.Interop.Word.Range range = Globals.ThisAddIn.Application.Selection.Range; 
            if (range.Tables.Count > 0)
            {
                Table tempTable = range.Tables[1];
                float[,] backupTable = new float[range.Tables[1].Rows.Count + 1, range.Tables[1].Columns.Count + 1];

                for (int i = 1; i <= tempTable.Rows.Count; i++)
                {
                    for (int j = 1; j <= tempTable.Rows[i].Cells.Count; j++)
                        backupTable[i, j] = tempTable.Rows[i].Cells[j].Range.Font.Size;
                }

                Globals.ThisAddIn.Application.Selection.Font.Size = 1;

                foreach (Row row in range.Tables[1].Rows)
                {
                    foreach (Cell cell in row.Cells)
                    {
                        if (cell.Range.Font.Size == 1)
                        {
                            System.Drawing.Point point = new System.Drawing.Point();
                            point.X = cell.RowIndex;
                            point.Y = cell.ColumnIndex;
                            value.Add(point);
                        }
                    }
                }

                for (int i = 1; i <= tempTable.Rows.Count; i++)
                {
                    for (int j = 1; j <= tempTable.Rows[i].Cells.Count; j++)
                        tempTable.Rows[i].Cells[j].Range.Font.Size = backupTable[i, j];
                }
                Marshal.ReleaseComObject(tempTable);
            }
        }
        catch(Exception)
        {
           //This exception can be used to handle Exception that occurs when there are merged cells in the     table.
        }
        return value;
    }

这不适用于合并的单元格。

Answer 2

只需使用所选范围的 RowIndex 和 ColumnIndex-Properties：

int selectedRowIndex = Globals.ThisAddIn.Application.Selection.Range.Cells[1].RowIndex;
int selectedColumnIndex = Globals.ThisAddIn.Application.Selection.Range.Cells[1].ColumnIndex;

//to get the index of the selected Table, you could use thie titel-property, if you set it before
string selectedTableTitle = Globals.ThisAddIn.Application.Selection.Tables[1].Title;