我想以编程方式在Word文档中添加多个表。我尝试了以下代码以添加表(在下面的示例代码中,我没有使用循环)
Microsoft.Office.Interop.Word.Table imageTable1 = wordDoc.Tables.Add(initialRange, 1, 2, ref oMissing, ref oMissing);
imageTable1.Rows.SetHeight(40, WdRowHeightRule.wdRowHeightExactly);
imageTable1.AllowAutoFit = true;
var text = "ABC";
// Add feature name in bold in table
if (!string.IsNullOrEmpty(text))
{
Cell cell1 = imageTable1.Cell(1, 1);
cell1.Range.Bold = 1;
cell1.Range.Underline = WdUnderline.wdUnderlineSingle;
cell1.Range.Font.Size = 18;
cell1.Range.Font.AllCaps = 1;
cell1.Range.Font.Name = "Times New Roman";
cell1.VerticalAlignment = WdCellVerticalAlignment.wdCellAlignVerticalCenter;
cell1.Range.Text = "ABC";
}
initialRange.Collapse(WdCollapseDirection.wdCollapseEnd);
initialRange.InsertParagraphAfter();
initialRange.Collapse(WdCollapseDirection.wdCollapseEnd);
Microsoft.Office.Interop.Word.Table imageTable2 = wordDoc.Tables.Add(initialRange, 1, 2, ref oMissing, ref oMissing);
imageTable2.Rows.SetHeight(40, WdRowHeightRule.wdRowHeightExactly);
imageTable2.AllowAutoFit = true;
text = "DEF"
// Add feature name in bold in table
if (!string.IsNullOrEmpty(text))
{
Cell cell1 = imageTable2.Cell(1, 1);
//cell1.Range.InsertAfter(feature.Name + Environment.NewLine);
cell1.Range.Bold = 1;
cell1.Range.Underline = WdUnderline.wdUnderlineSingle;
cell1.Range.Font.Size = 18;
cell1.Range.Font.AllCaps = 1;
cell1.Range.Font.Name = "Times New Roman";
cell1.VerticalAlignment = WdCellVerticalAlignment.wdCellAlignVerticalCenter;
cell1.Range.Text = "DEF";
}
在上面的代码中,initialRange变量是我文档中的Selection范围。使用上面的代码,我得到了重叠的表,并且在打开文档时只有最后一个表可见。代码正确创建了所有表,但是所有表都放置在同一位置,因此最后创建的表才可见。我无法弄清楚在上面的代码中需要进行哪些更改才能依次显示这些表。
此外,我想在表之间添加一些文本行。如何插入文本,以便在文档中有表格以及其相关的文字。
谢谢
答案 0 :(得分:0)
问题不是表是重叠的。问题中的代码正在发生的事情是,随后的表被插入到先前表的单元格中。原因是因为initialRange
不包含在范围内添加的整个表-initialRange
在表的第一个单元格中。
技巧是将Range对象放在表的末尾,如下所示:
initialRange = imageTable1.Range;
initialRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd);
initialRange.InsertParagraphAfter();
initialRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd);