Delphi 2010：Word表中的多行内容

Question

我正在使用Delphi 2010自动执行一些文档创建。

在我拥有的布局中，我需要在Word表格单元格（1、1）中插入一行文本，然后移至下一行，更改段落设置并插入水平线

我可以设置表格和第一行的内容，但是在我的一生中无法解决如何将光标移动到单元格的第二行或插入水平线的问题

到目前为止，我有：

   tbl.Cell(1, 1).Range.Text := s;
   with tbl.Cell(1, 1).Range do
   begin
      Font.Name := '+Headings';
      Font.Size := 14;
      Font.Bold := -1;
      Font.AllCaps := -1;
      ParagraphFormat.LineSpacingRule := wdLineSpaceAtLeast;
      ParagraphFormat.LineSpacing := 12;
      ParagraphFormat.SpaceAfter := 0;
      ParagraphFormat.SpaceBefore := 0;
   end;
   tbl.Cell(1, 1).Range.InsertParagraphAfter;

我什至无法为水平线创建一个宏（该宏必须正确且大小和粗细），因为Word 2010中的VBA不会通过右键单击来记录...

Answer 1

所以我要做的新行代码如下

seltype := wdLine;
lineextend := False;
WordApp.Selection.EndKey(seltype, lineextend);
WordApp.Selection.TypeParagraph;

它向Word发送“结束”信号。

至于录制新的水平线，我发现在某些情况下 ，录制宏时Windows键盘上的上下文菜单键仍然有效，而右键单击则无效。