我正在使用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不会通过右键单击进行记录...
答案 0 :(得分:0)
所以我需要执行新行的代码如下
seltype := wdLine;
lineextend := False;
WordApp.Selection.EndKey(seltype, lineextend);
WordApp.Selection.TypeParagraph;
向Word发送“结束”信号。
至于录制新的水平线,我发现在某些情况下,Windows键盘上的上下文菜单键在录制宏时仍然有效,而右键则没有。