0

我正在使用 Word Automation 从我的应用程序创建一个文档，我需要在文档的页脚添加三个签名。这很容易，但是，让它们按我的意愿出现是行不通的。

这是我正在使用的代码：

            //add initials to footer
            if (oWordDoc.Sections.Count > 0) {
                Range r = oWordDoc.Sections[1].Footers[WdHeaderFooterIndex.wdHeaderFooterPrimary].Range;
                Object colapseDir = WdCollapseDirection.wdCollapseStart;
                r.Collapse(ref colapseDir);

                oWord.ActiveWindow.View.Type = WdViewType.wdPrintView;
                oWord.ActiveWindow.ActivePane.View.SeekView = WdSeekView.wdSeekCurrentPageFooter;
                oWord.Selection.TypeParagraph();

                oWord.Selection.Paragraphs.Alignment = WdParagraphAlignment.wdAlignParagraphLeft;
                oWord.ActiveWindow.Selection.Font.Name = "Arial";
                oWord.ActiveWindow.Selection.Font.Size = 8;


                if (!String.IsNullOrEmpty(plaintiffInitialFile)) {
                    r.InlineShapes.AddPicture(plaintiffInitialFile, ref oMissing, ref oTrue, ref oMissing);
                }

                oWord.ActiveWindow.Selection.TypeText("Plaintiff's Initals");
                oWord.ActiveWindow.Selection.TypeText("\t");


                if (!String.IsNullOrEmpty(plaintiffAttInitialFile)) {
                    r.InlineShapes.AddPicture(plaintiffAttInitialFile, ref oMissing, ref oTrue, ref oMissing);
                }

                oWord.ActiveWindow.Selection.TypeText("Plaintiff's Attorney's Initals");
                oWord.ActiveWindow.Selection.TypeText("\t");


                if (!String.IsNullOrEmpty(ekfgInitialFile)) {
                    r.InlineShapes.AddPicture(ekfgInitialFile, ref oMissing, ref oTrue, ref oMissing);
                }

                oWord.ActiveWindow.Selection.TypeText("EKFG's Initals");
            }

这是它正在产生的内容（我添加了注释） 结果

这就是我想要的 期望的反应

我需要做什么？

4

1 回答 1

0

我设法解决了这个问题，以防有人遇到这个问题。我按照这里的说明：http: //support.microsoft.com/kb/316384创建了单行六列表。

如果其他人正在尝试这样做，请不要忘记单词自动化本质上是 Visual Basic，因此在寻址表格单元格时，索引从 1 开始，而不是 0。

添加文本的工作方式类似于示例：

oTable.Cell(1, 2).Range.Text = "Plaintiff's Initials";

并像以前一样添加图像，除了这次范围是您的单元格：

oTable.Cell(1, 1).Range.InlineShapes.AddPicture(plaintiffInitialFile, ref oMissing, ref oTrue, ref oMissing);
于 2010-11-08T16:27:24.183 回答