如何：使用 .net 在 Word 上添加多个表格

Question

我尝试使用 c# 在 Word 文档中添加多个表

// Tables is a list of items which I want to present each in a table
foreach (List<string[]> ClassTable in Tables)
        {
            // tbl is a "Microsoft.Office.Interop.Word.Table"
            // myRange is like MyDoc.Range(ref missing, ref missing)
            tbl = MyDoc.Tables.Add(myRange, ClassTable.Count(), 3, missing, missing);
            tbl.Borders.Enable = 1;
            RowCounter = 1;
            foreach (string[] item in TableContent)
            {
                ColumnCounter = 1;
                foreach (string str in item)
                {
                    tbl.Cell(RowCounter, ColumnCounter).Range.Text = str;
                    ColumnCounter++;
                }
                RowCounter++;
            }
        }

，此代码仅添加一个表，每当在第二个循环中时，我应该创建另一个表并添加下一个项目值，

我尝试通过设置 myRange.start 或 myRange 来更改范围.setRange() ...等 如果在一张表上创建大量行，则仅添加到文档事件的一张表会失败 但不是多桌

Answer 1

该行在

tbl = MyDoc.Tables.Add(myRange, ClassTable.Count(), 3, missing, missing); 

第二次执行时抛出异常，并显示消息“无法删除范围”。此异常被 Word 吞噬，但会停止进一步执行。添加 try/catch 并设置断点会对您有所帮助。

我将您的代码编辑为以下内容以重现并找到引发的异常：

    var myRange = Globals.ThisAddIn.Application.ActiveDocument.Range();
    foreach (List<List<string>> ClassTable in new List<List<List<string>>> { new List<List<string>> { new List<string> { "A" }, new List<string> { "B" } }, new List<List<string>> { new List<string> { "C" }, new List<string> { "D" } } })
    {
        // tbl is a "Microsoft.Office.Interop.Word.Table"            
        // myRange is like MyDoc.Range(ref missing, ref missing)            
        Microsoft.Office.Interop.Word.Table tbl = null;
        try
        {
            tbl = Globals.ThisAddIn.Application.ActiveDocument.Tables.Add(myRange, ClassTable.Count(), 3);

            tbl.Borders.Enable = 1;
            int RowCounter = 1;
            foreach (var item in ClassTable)
            {
                int ColumnCounter = 1;
                foreach (string str in item)
                {
                    tbl.Cell(RowCounter, ColumnCounter).Range.Text = str;
                    ColumnCounter++;
                }
                RowCounter++;
            }
        }
        catch (Exception ex)
        {
            System.Diagnostics.Debug.WriteLine(ex.Message);
        }
 }

msdn 上的文档声明：

必需的范围对象。您希望表格出现的范围。
如果范围未折叠，则表格将替换范围。

事实证明，您需要的是通过折叠它来“移动”到范围的末端。如果这样做，您将遇到另一个单词问题，即如果文档中有两个紧邻的表格，单词会自动将它们连接到一个表格中。您的固定代码最终会向一个表添加越来越多的行，并不断用值覆盖前几行。所有这些都会导致以下代码应该解决您的问题：

    var myRange = Globals.ThisAddIn.Application.ActiveDocument.Range();
    foreach (List<List<string>> ClassTable in new List<List<List<string>>> { new List<List<string>> { new List<string> { "A" }, new List<string> { "B" } }, new List<List<string>> { new List<string> { "C" }, new List<string> { "D" } } })
    {
        // tbl is a "Microsoft.Office.Interop.Word.Table"            
        // myRange is like MyDoc.Range(ref missing, ref missing)            

        Microsoft.Office.Interop.Word.Table tbl = null;
        try
        {
            tbl = Globals.ThisAddIn.Application.ActiveDocument.Tables.Add(myRange, ClassTable.Count(), 3);

            tbl.Borders.Enable = 1;
            int RowCounter = 1;
            foreach (var item in ClassTable)
            {
                int ColumnCounter = 1;
                foreach (string str in item)
                {
                    tbl.Cell(RowCounter, ColumnCounter).Range.Text = str;
                    ColumnCounter++;
                }
                RowCounter++;
            }

            // Move to the end
            myRange.Collapse(Microsoft.Office.Interop.Word.WdCollapseDirection.wdCollapseEnd);
            // Now add something behind the table to prevent word from joining tables into one
            myRange.InsertParagraphAfter();
            // gosh need to move to the end again
            myRange.Collapse(Microsoft.Office.Interop.Word.WdCollapseDirection.wdCollapseEnd);

        }
        catch (Exception ex)
        {
            System.Diagnostics.Debug.WriteLine(ex.Message);
        }

    }

最后一个警告是该段中的第一行读取：

var myRange = Globals.ThisAddIn.Application.ActiveDocument.Range();

如果文档为空，则将表添加到此范围将起作用，否则它将抛出相同的异常，因为我们是在这种情况下不是最后。 .Collapse() 也会在那里解决它。